Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Andysun am 28.03.07 - 11:56:29

Titel: Text-String im Word durch einen Wert aus Notes ersetzen.
Beitrag von: Andysun am 28.03.07 - 11:56:29

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

Titel: Re: Text-String im Word durch einen Wert aus Notes ersetzen.
Beitrag von: m3 am 28.03.07 - 12:00:03

Forums-Suche

Titel: Re: Text-String im Word durch einen Wert aus Notes ersetzen.
Beitrag von: Andysun am 30.03.07 - 12:32:53

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