Question : Est-ce que mon VB6 $$etAPP, comment je remplace le texte spécifique dans un document du mot 2003 par un lien hypertexte ?

Salut Experts

I AM « conduisant » le mot 2003 par mon VB6 $$etAPP, using la VIEILLE automation. Je remplace avec succès les articles spécifiques des textes dans des Doc.s de mot par d'autres morceaux de texte (valeurs que je tire d'une base de données). Cependant, comment vont-ils le repalce d'I un morceau spécifique de texte avec un lien hypertexte ? Je sais placer les propriétés d'un lien hypertexte, il le crée en premier lieu que j'ai un problème avec. Comment est-ce que j'obtiens un objet approprié pour employer pour le paramètre d'ancre de la méthode de Document.Hyperlinks.Add ? le

I AM essayant ceci, où le mobjDoc est un objet et un « %ApplicantOnlineTimesheetsLink% » de document de mot est le morceau de texte que je veux trouver et remplacer :

avec le mobjDoc
. Range.Find.ClearFormatting 'pour nous assurer ne spécifions pas le formatage dans notre criteria
de recherche si. Range.Find.Execute (Findtext : = " %ApplicantOnlineTimesheetsLink% », _
MatchCase : =False, _
MatchWholeWord : =False, _
MatchWildcards : =False, _
MatchSoundsLike : =False, _
MatchAllWordForms : le =False, le _
expédient : =True, enveloppe du _
: =wdFindContinue, format du _
: =False) Then
. Adresse de Hyperlinks.Add : = nofollow " de » rel= de _blank " de » target= » de http://www.myurl.com/ " de href= " de .com/ de http://www.myurl », ancre : L'extrémité With

This d'If
de fin de =mobjDoc.Range
remplace tout dans le document par des liens hypertextes, pas simplement le morceau du texte que je veux à replace.



class= de

Réponse : Est-ce que mon VB6 $$etAPP, comment je remplace le texte spécifique dans un document du mot 2003 par un lien hypertexte ?

Oops I n'a pas spécifié quel type de lien hypertexte dans le faible rapport

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

ReplaceWithHyperlink secondaire (mobjDoc comme document) Faible rng comme Word.Range Faible hyp comme Word.Hyperlink Placer le rng = le mobjDoc.Range Faire tandis que le rng. Find.Execute (« %ApplicantOnlineTimesheetsLink%") Placer le hyp = le mobjDoc.Hyperlinks.Add (rng, « http://www.myurl.com/ ") Placer le rng = le hyp. Gamme rng. Le wdCollapseEnd d'effondrement 's'assurent que le nouveau texte de lien hypertexte n'est pas inclus dans la recherche rng. L'extrémité = les mobjDoc.Range.End 'développent la chaîne de trouvaille à la fin du document Boucle Sous-marin d'extrémité