I didn't start my Office solution thinking of localization. Which is the best way to recover from my lack of foresight

Chenchen Li on Fri, 30 Jun 2017 03:06:45

Hello,

Do you develop with VBA? You could add reference "Microsoft Visual Basics for Applications Extensibility 5.3" and use its methods to read your code. Then you could automate IE and navigate Google Translate to translate Italian to English.

E.g.

In module1:

Sub test()
Dim s As String
s = "this is a test: questo"
End Sub

In module2:

Sub D()
Dim text As String
Dim VBP As VBProject
Dim VBM As VBComponent
Dim VBModule As CodeModule
Dim VBProc As VBComponent
Set VBP = ActiveDocument.VBProject
Set VBModule = VBP.VBComponents.Item("Module1").CodeModule
With VBModule
For i = 1 To .CountOfLines
text = text + vbNewLine + transalte_using_vba(.Lines(i, 1))
Next
.DeleteLines 1, .CountOfLines
.AddFromString text
End With
End Sub

Function transalte_using_vba(str As String) As String
    Dim IE As Object, i As Long
    Dim result_data As String
    Set IE = CreateObject("InternetExplorer.application")
    IE.Visible = False
    'https://translate.google.com/#it/en/abc
    IE.navigate "http://translate.google.com/#it/en/" & str
    Do Until IE.ReadyState = 4
        DoEvents
    Loop
    CLEAN_DATA = Split(Replace(IE.Document.getElementById("result_box").innerHTML, "</SPAN>", ""), "<")
    For j = LBound(CLEAN_DATA) To UBound(CLEAN_DATA)
        result_data = result_data & Right(CLEAN_DATA(j), Len(CLEAN_DATA(j)) - InStr(CLEAN_DATA(j), ">"))
    Next
    IE.Quit
    transalte_using_vba = result_data
End Function

Run subroutine D, the subroutine test is replaced:

Sub test ()
Dim s As String
S = "this is a test: this"
End Sub

Reference:

https://stackoverflow.com/questions/19098260/translate-text-using-vba

Regards,

Celeste

Lauro2 on Tue, 04 Jul 2017 04:49:26

Thanks Celeste for your suggestion.

Lauro