Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

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
»
Zwischenspeicher als Bild mit 19 Zentimeter Breite einfügen
»
MS Word: Einfügen Paste Ereignis in Word einbauen
»
Word Code: Word Find
»
Word Makro: Alle Sätze markieren und Markierungen wieder löschen
»
Word Makro: Word automatischer Zoom auf 100% beim Dokument öffnen
»
Word Makro: Tabellen durchlaufen und Inhalt kopieren und Einfügen
»
Word Makro: Automatische Korrektur von falschen Übersetzungslinks
»
Word Makro: Einfügen von neuen Zeilen nach einer Textmarke

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de