Pergunta : De meu VB6 app, como eu substituo o texto específico em um original da palavra 2003 com um hipervínculo?

Olá! Experts

I am “que conduz” a palavra 2003 de meu VB6 app, using a automatização VELHO. Eu estou substituindo com sucesso artigos específicos do texto na palavra docs com outros bocados do texto (valores que eu puxo de uma base de dados). Entretanto, como faz o repalce de I um bocado específico do texto com um hipervínculo? Eu sei ajustar as propriedades de um hipervínculo, ele estou criando-o no primeiro lugar que eu tenho um problema com. Como eu consigo um objeto apropriado se usar para o parâmetro da escora do método de Document.Hyperlinks.Add? o

I am que tenta este, onde o mobjDoc é um objeto do original da palavra e um “%ApplicantOnlineTimesheetsLink%” é a parte de texto que eu quero encontrar e substituir:

com mobjDoc
. Range.Find.ClearFormatting 'para assegurar nós não estamos especific o formato em nosso criteria
da busca se. Range.Find.Execute (Findtext: = " %ApplicantOnlineTimesheetsLink%”, _
MatchCase: =False, _
MatchWholeWord: =False, _
MatchWildcards: =False, _
MatchSoundsLike: =False, _
MatchAllWordForms: o =False, _
envia: =True, envoltório do _
: =wdFindContinue, formato do _
: =False) Then
. Endereço de Hyperlinks.Add: = do " nofollow " do” rel=” do _blank " do” target= " de http://www.myurl.com/ do href= .com/ de http://www.myurl”, escora: A extremidade With

This de If
do fim de =mobjDoc.Range
substitui tudo no original com os hipervínculo, não apenas a parte do texto que eu quero a replace.



 class= do

Resposta : De meu VB6 app, como eu substituo o texto específico em um original da palavra 2003 com um hipervínculo?

Oops I não especific que tipo de hipervínculo na indicação não ofuscante
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

ReplaceWithHyperlink secundário (mobjDoc como o original)
Rng não ofuscante como Word.Range
Hyp não ofuscante como Word.Hyperlink

Ajustar o rng = o mobjDoc.Range
  Fazer quando o rng. Find.Execute (“%ApplicantOnlineTimesheetsLink%")
       Ajustar o hyp = o mobjDoc.Hyperlinks.Add (rng, “http://www.myurl.com/ ")
        Ajustar o rng = o hyp. Escala
        rng. O wdCollapseEnd do colapso 'certifica-se de que o texto novo do hipervínculo não está incluído na busca
        rng. A extremidade = mobjDoc.Range.End 'estendem a escala do achado à extremidade do original
   Laço
Submarino da extremidade
Outras soluções  
 
programming4us programming4us