Has anyone ever translated a P6 schedule into Russian?
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
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