Frage : Von meiner APP VB6 wie ersetze ich spezifischen Text in einem Dokument des Wortes 2003 durch ein Hyperlink?

Hallo Experts

I morgens Wort 2003 von meiner APP VB6, using ALTE Automatisierung „fahrend“. Ich ersetze erfolgreich spezifische Texteinzelteile im Wort Doc. durch andere Spitzen des Textes (Werte, die ich von einer Datenbank ziehe). Jedoch wie tun I repalce eine spezifische Spitze des Textes mit einem Hyperlink? Ich kann die Eigenschaften eines Hyperlink, es einstellen verursache es, an erster Stelle, das ich ein Problem mit habe. Wie erhalte ich einen verwendbaren Gegenstand, um für den Ankerparameter der Document.Hyperlinks.Add Methode zu verwenden? das

I morgens dieses versuchend, wo mobjDoc ein Wortdokumentengegenstand und „ein %ApplicantOnlineTimesheetsLink%“ ist, ist das Stück des Textes, den ich finden und ersetzen möchte:

mit mobjDoc
. Range.Find.ClearFormatting ', zum spezifizieren wir sicherzustellen Formatierung nicht in unserem Suchecriteria
wenn. Range.Find.Execute (Findtext: = " %ApplicantOnlineTimesheetsLink%“, _
MatchCase: =False, _
MatchWholeWord: =False, _
MatchWildcards: =False, _
MatchSoundsLike: =False, _
MatchAllWordForms: =False, _
nachschicken ken: =True, _
Verpackung: =wdFindContinue, _
Format: =False) Then
. Hyperlinks.Add Adresse: = " http://www.myurl .com/“, Anker: =mobjDoc.Range
Ende If
Ende With

This ersetzt alles im Dokument durch Hyperlink, nicht gerade das Stück vom Text, den ich zu replace.



wünsche

Antwort : Von meiner APP VB6 wie ersetze ich spezifischen Text in einem Dokument des Wortes 2003 durch ein Hyperlink?

Oops I spezifizierte nicht, welche Art von Hyperlink in der schwachen Aussage

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:

VorReplaceWithHyperlink (mobjDoc als Dokument) Schwaches rng als Word.Range Schwaches hyp als Word.Hyperlink Rng = mobjDoc.Range einstellen Tun während rng. Find.Execute („%ApplicantOnlineTimesheetsLink%") Hyp = mobjDoc.Hyperlinks.Add (rng, „http://www.myurl.com/ ") einstellen Rng = hyp einstellen. Strecke rng. Einsturz wdCollapseEnd 'überprüfen, ob der neue Hyperlinktext nicht in der Suche eingeschlossen rng. Ende = mobjDoc.Range.End 'erweitern die Entdeckungstrecke auf das Ende des Dokuments Schleife Enden-Unterseeboot