Text-String im Word durch einen Wert aus Notes ersetzen.

[Andysun]

Ich möchte über Notes ein Worddokument öffnen und in diesem Dokument einen bestimmten TEXT-STRING finden.
Diesen möchte ich dann durch einen String ( URL-Link ) aus einer Notes-DB ersetzen.

Ich suche Tipps und Ideen.

vielen Dank

andysun

[m3]

Forums-Suche

[Andysun]

Aufgabe war :

1. Es gibt ein Text-Feld ( Beschreibung + eine URL ) im Notes,  dieses soll an eine TEXTMARKE im Word gesetzt werden.
2. Die URL wird als Text und nicht als Link im Word angezeigt
3. Desweiteren sieht man den vollständigen URL-String ( was nicht schön ist )
4. Jetzt soll mein Script diese URL finden und diese als einen Hyperlink im Word-Dok umwandeln.

Lösung :
wordApp.ActiveDocument.Bookmarks("textmarke").Select 
wordApp.Selection.TypeText doc.Text(0)   
wordApp.ActiveDocument.content.Select    ' Markiert den ganzen Textbereich
Forall x In doc.Feld_Mit_URL_Link      
   ' Die Url wird gesucht und durch einen Hyperlink ersetzt      
   wordApp.Selection.Find.Text = x
   wordApp.Selection.Find.Execute               
   wordApp.ActiveDocument.Hyperlinks.Add wordApp.Selection.Range, x, "", "Hier klicken", "Link", "_blank"            
End Forall

Beste Grüsse

Andy