Has anyone ever translated a P6 schedule into Russian?

H
Hannes de Bruyne 👤 Member for 20 years 10 months

Hello Oliver



I know this problem from Primavera P3.1, in P6 I did not try this yet. So for P3.1 I wrote this small macro in Excel:



Name of the worksheet must be Activity, Column 21 has the Cyrillic text, column 12 gets some Hieroglyphic signs which can be read by Primavera, first text in row 3.





Dim Zwischen As String, Test as sting, i as integer, iRow as integer



Sub TranslateRussian()

iRow = 3

Worksheets("Activity").Activate

Do While Not IsEmpty(Cells(iRow, 21))

Application.StatusBar = "© Hannes de Bruyne Transforming Row: " & iRow - 2

If Cells(iRow, 21) <> "" Then

Test = ""

For i = 1 To Len(Cells(iRow, 21))

Zwischen = AscW(Mid(Cells(iRow, 21), i, 1))

Test = Test & IIf(Zwischen < 256, ChrW(Zwischen), ChrW(Zwischen - 848))

Next i

Cells(iRow, 12) = Test

End If

iRow = iRow + 1

Loop

End SUB

Forum Sponsor

Top Posters

Nick Johnson-Pond
3 posts
sairedz25
0 posts
Ahmed Awad
2 posts
Syed Shoeb
0 posts
Vimukthi
0 posts
bal aji
2 posts
Lee Mallek
23 posts
Viet Tran
9 posts
Ola Gbotoso
0 posts
Jaturapit Multongka
1 posts