Fråga : Från min VB6 app, hur jag byter ut specifik text i ett dokument för uttrycka 2003 med en hyperlink?

Hi den Experts

I förmiddagen ”som kör”, uttrycker 2003 från min VB6 app, using OLE Automation. Förmiddag som I byter ut lyckat specifika textobjekt uttrycker in, docs med andra bitar av text (värderar I-handtag från en databas). Emellertid hur gör I-repalce som en närmare detalj bet av text med en hyperlink? Jag vet hur till uppsättningen rekvisitan av en hyperlink, det skapar den i första förlägger mig har ett problem med. Hur jag får ett passande anmärker för att använda för ankraparametern av Document.Hyperlinks.Add-metoden? den pröva förmiddagen för

I detta, var mobjDoc är ett uttryckadokument, anmärker och ”%ApplicantOnlineTimesheetsLink%” är lappa av text som jag önskar att finna och byta ut:

med mobjDoc
. Range.Find.ClearFormatting 'som ser till vi, specificerar inte att formatera i vår sökandecriteria
om. Range.Find.Execute (Findtext: = " %ApplicantOnlineTimesheetsLink%”, _
MatchCase: =False _
MatchWholeWord: =False _
MatchWildcards: =False _
MatchSoundsLike: =False _
MatchAllWordForms: =False _
eftersänder: =True sjal för _
: =wdFindContinue _
formaterar: =False) Then
. Hyperlinks.Add tilltalar: = nofollow "” för rel= för _blank " " för http://www.myurl .com/”, ankrar: =mobjDoc.Range
avslutar If
avslutar With

This byter ut allt i dokumentet med hyperlinks, inte precis lappa av text som jag önskar till replace.



 " klar "

Svar : Från min VB6 app, hur jag byter ut specifik text i ett dokument för uttrycka 2003 med en hyperlink?

Oops I specificerade inte vilken typ av hyperlinken i det dunkla meddelandet
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

UnderReplaceWithHyperlink (mobjDoc som dokument)
Dunkel rng som Word.Range
Dunkel hyp som Word.Hyperlink

Fastställd rng = mobjDoc.Range
  Gör stundrng. Find.Execute (”%ApplicantOnlineTimesheetsLink%”)
       Fastställd hyp = mobjDoc.Hyperlinks.Add (rng, ”http://www.myurl.com/”)
        Fastställd rng = hyp. Spänna
        rng. KollapswdCollapseEnd 'ser till att den nya hyperlinktexten inte är inklusive i sökandet
        rng. Avsluta = mobjDoc.Range.End 'fördjupa fyndet spänner till avsluta av dokumentet
   Kretsa
Avsluta suben
Andra lösningar  
 
programming4us programming4us