#

Word Makro: Automatische Korrektur von falschen Übersetzungslinks
 
Betrifft: Word Dokument Übersetzungen mit Links zur Adresse https://ssl.translatoruser.net/bv.aspx?
 
Wenn man Word Text-Dokumente mit dem Microsoft Word Übersetzer in eine andere Sprache übersetzen lässt, dann werden die Links im Dokument auf einen Link zur Adresse Translatoruser.net übertragen.
Mit einem Makro kann man die Links automatisch korrigieren, sofern sich beide Versionen (die Englische Übersetzung und das deutsche Original ) noch im gesamten Word-Dokument befinden.
 
 
www.Rue25.de
http://www.microsoft-programmierer.de  
 

 
 
Hier das komplette Makro, welches die schadhaften Links von mit den originalen Links austauscht
Word Makro:

Sub change_Links()
'-----------------< change_Links() >-----------------
Dim link_Trans As Hyperlink
 
Dim iLink As Integer
For iLink = 1 To ActiveDocument.Hyperlinks.Count
'< get wrong >
Set link_Trans = ActiveDocument.Hyperlinks(iLink)
'</ get wrong >

'Address : "https://ssl.translatoruser.net/bv.aspx?from=de&to=en&a=http%3A%2F%2Fwww.rue25.de%2F" : String : ThisDocument.change_Links
If link_Trans.Address Like "*translatoruser.*" Then
'----< Change Translatoruser >----
Dim sLink_Text As String
sLink_Text = link_Trans.TextToDisplay
 
 
'< search rightLink >
Dim iSearch As Integer
'----< @Loop: Good Links >----
For iSearch = 1 To ActiveDocument.Hyperlinks.Count
Dim link As Hyperlink
Set link = ActiveDocument.Hyperlinks(iSearch)
If LCase(link.TextToDisplay) = LCase(link_Trans.TextToDisplay) Then
If Not link.Address Like "*translatoruser.*" Then
'< change link >
link_Trans.Address = link.Address
'</ change link >
End If
End If
Next
'----</ @Loop: Good Links >----
'</ search rightLink >
 
'----</ Change Translatoruser >----
End If
Next
'-----------------</ change_Links() >-----------------
End Sub

 
 
 
Mobile

.

123movies