Questione : Dal mio VB6 app, come sostituisco il testo specifico in un documento di parola 2003 con un hyperlink?

Ciao Experts

I “che determina„ parola 2003 dal mio VB6 app, using l'automazione OLE. Sto sostituendo con successo gli elementi specifici del testo nei documenti di parola con altre punte di testo (valori che tiro da una base di dati). Tuttavia, come fa il repalce di I una punta specifica di testo con un hyperlink? So regolare le proprietà di un hyperlink, esso sto generandolo in primo luogo che ho un problema con. Come convinco un oggetto adatto per usare per il parametro dell'ancoraggio del metodo di Document.Hyperlinks.Add? il

I che prova questo, dove il mobjDoc è un oggetto del documento di parola e “un %ApplicantOnlineTimesheetsLink%„ è la parte di testo che voglio trovare e sostituire:

con mobjDoc
. Range.Find.ClearFormatting 'per accertare non stiamo specificando la formattazione nel nostro criteria
di ricerca se. Range.Find.Execute (Findtext: = " %ApplicantOnlineTimesheetsLink%„, _
MatchCase: =False, _
MatchWholeWord: =False, _
MatchWildcards: =False, _
MatchSoundsLike: =False, _
MatchAllWordForms: il =False, _
trasmette: =True, involucro del _
: =wdFindContinue, disposizione del _
: =False) Then
. Indirizzo di Hyperlinks.Add: = " nofollow "„ del rel=„ del _blank "„ del target= " di http://www.myurl.com/ del href= di .com/ di http://www.myurl„, ancoraggio: L'estremità With

This di If
di conclusione di =mobjDoc.Range
sostituisce tutto nel documento con i hyperlinks, non appena la parte di testo che voglio a replace.



 class= del

Risposta : Dal mio VB6 app, come sostituisco il testo specifico in un documento di parola 2003 con un hyperlink?

Oops I non ha specificato che tipo di hyperlink nella dichiarazione fioca
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

ReplaceWithHyperlink secondario (mobjDoc come documento)
Rng fioco come Word.Range
Hyp fioco come Word.Hyperlink

Regolare il rng = mobjDoc.Range
  Fare mentre rng. Find.Execute (“%ApplicantOnlineTimesheetsLink%")
       Regolare il hyp = mobjDoc.Hyperlinks.Add (rng, “http://www.myurl.com/ ")
        Regolare il rng = il hyp. Gamma
        rng. Il wdCollapseEnd di crollo 'si assicura che il nuovo testo di hyperlink non sia incluso nella ricerca
        rng. L'estremità = mobjDoc.Range.End 'estendono la gamma del ritrovamento fino l'estremità del documento
   Ciclo
Sommergibile dell'estremità
Altre soluzioni  
 
programming4us programming4us