Cuestión : ¿De mi VB6 app, cómo substituyo el texto específico en un documento de la palabra 2003 por un enlace hipertexto?

Hola Experts

I “que conduce” la palabra 2003 de mi VB6 app, usar la automatización VIEJA. Estoy substituyendo con éxito artículos específicos del texto en la palabra doc. por otros pedacitos del texto (valores que tiro de una base de datos). ¿Sin embargo, cómo hace el repalce de I un pedacito específico del texto con un enlace hipertexto? Sé fijar las características de un enlace hipertexto, él lo estoy creando en el primer lugar que tengo un problema con. ¿Cómo consigo un objeto conveniente para utilizar para el parámetro del ancla del método de Document.Hyperlinks.Add? el

I que intenta esto, donde está un objeto y un “%ApplicantOnlineTimesheetsLink%” del documento de la palabra es el pedazo de texto que quiero encontrar y substituir:

con el mobjDoc
. Range.Find.ClearFormatting 'para asegurar nos no estamos especificando el formato en nuestro criteria
de la búsqueda si. Range.Find.Execute (Findtext: = " %ApplicantOnlineTimesheetsLink%”, _
MatchCase: =False, _
MatchWholeWord: =False, _
MatchWildcards: =False, _
MatchSoundsLike: =False, _
MatchAllWordForms: el =False, _
remite: =True, abrigo del _
: =wdFindContinue, formato del _
: =False) Then
. Dirección de Hyperlinks.Add: = " nofollow " del” rel= del _blank " del” target=” de http://www.myurl.com/ del href= " del .com/ de http://www.myurl”, ancla: El extremo With

This de If
del final de =mobjDoc.Range
substituye todo en el documento por enlaces hipertexto, no apenas el pedazo del texto que quiero a replace.



 class= del

Respuesta : ¿De mi VB6 app, cómo substituyo el texto específico en un documento de la palabra 2003 por un enlace hipertexto?

Oops I no especificó qué tipo de enlace hipertexto en la declaración dévil
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

ReplaceWithHyperlink secundario (mobjDoc como documento)
Rng dévil como Word.Range
Hyp dévil como Word.Hyperlink

Fijar el rng = mobjDoc.Range
  Hacer mientras que el rng. Find.Execute (“%ApplicantOnlineTimesheetsLink%")
       Fijar el hyp = mobjDoc.Hyperlinks.Add (rng, “http://www.myurl.com/ ")
        Fijar el rng = el hyp. Gama
        rng. El wdCollapseEnd del derrumbamiento 'se cerciora de que el nuevo texto del enlace hipertexto no esté incluido en la búsqueda
        rng. El extremo = mobjDoc.Range.End 'prolongan la gama del hallazgo al extremo del documento
   Lazo
Submarino del extremo
Otras soluciones  
 
programming4us programming4us