Domino 9 und frühere Versionen > ND7: Entwicklung

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

(1/1)

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 ;D )
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

Navigation

[0] Themen-Index