Vraag : Van mijn VB6 app, hoe vervang ik specifieke teksten in een document van Word 2003 met een hyperlink?

Drijf“ Word 2003 hallo van Experts

I am „van mijn VB6 app, die Automatisering OLE gebruiken. Ik vervang met succes specifieke tekstpunten in doc. van Word met andere beetjes van tekst (waarden die ik van een gegevensbestand heb getrokken). Nochtans, hoe ik repalce een specifiek beetje van tekst met een hyperlink? Ik weet het hoe te om de eigenschappen van een hyperlink te plaatsen, leidt het tot het in de eerste plaats ik een probleem met heb. Hoe breng ik een geschikt voorwerp ertoe om voor de parameter van het Anker van de methode Document.Hyperlinks.Add te gebruiken?

I am dit proberen, waar mobjDoc een het documentvoorwerp van Word en „is %ApplicantOnlineTimesheetsLink%“ het stuk van tekst is die ik heb willen om vinden en vervangen:

met mobjDoc
. Range.Find.ClearFormatting 'om te verzekeren specificeren wij niet formatterend in ons onderzoek criteria
als. Range.Find.Execute (Findtext: = " %ApplicantOnlineTimesheetsLink%“, _
MatchCase: =False, _
MatchWholeWord: =False, _
MatchWildcards: =False, _
MatchSoundsLike: =False, _
MatchAllWordForms: =False, Voorwaartse _
: =True,/> Omslag _ Formaat _. Hyperlinks.Add Adres: = " http://www.myurl .com/“, Anker: /> het Eind With

This van If
vervangt alles in het document met hyperlinks, niet alleen het stuk van tekst die ik aan replace.



 heb gewild

Antwoord : Van mijn VB6 app, hoe vervang ik specifieke teksten in een document van Word 2003 met een hyperlink?

Oops specificeerde ik welk niet type van hyperlink in de Schemerige verklaring
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Sub ReplaceWithHyperlink (mobjDoc als Document)
Schemerige rng als Word.Range
Schemerige hyp als Word.Hyperlink

Reeks rng = mobjDoc.Range
  Doe terwijl rng. Find.Execute („%ApplicantOnlineTimesheetsLink%“)
       Plaats hyp = mobjDoc.Hyperlinks.Add (rng, „http://www.myurl.com/“)
        Plaats rng = hyp. Waaier
        rng. De instorting wdCollapseEnd 'zorgt ervoor dat de nieuwe hyperlinktekst niet inbegrepen in het onderzoek is
        rng. Het eind = mobjDoc.Range.End 'breidt de waaier van de Vondst tot het eind van het document uit
   Lijn
Sub van het eind
Andere oplossingen  
 
programming4us programming4us