Вопрос : От моего VB6 app, как я заменяю ть специфически текст в документе слова 2003 с hyperlink?

Hi Experts

I am «управляя» словом 2003 от моего VB6 app, using ОЛЕ автоматизация. Я успешно заменяю ть специфически детали текста в слове docs с другими битами текста (значений, котор я вытягиваю от базы данных). Однако, как делает repalce I специфически бит текста с hyperlink? Я умею как установить свойства hyperlink, его создаю его во-первых, котор я имею проблему с. Как я получают, что целесообразный предмет использую для параметра анкера метода Document.Hyperlinks.Add?

I am пытаясь это, где mobjDoc будет предметом документа слова и «%ApplicantOnlineTimesheetsLink%» будет часть текста, котор я хочу найти и заменить:

с mobjDoc
. Range.Find.ClearFormatting 'для того чтобы обеспечить мы не определяем форматизацию в нашем criteria
поиска если. Range.Find.Execute (Findtext: = " %ApplicantOnlineTimesheetsLink%», _
MatchCase: =False, _
MatchWholeWord: =False, _
MatchWildcards: =False, _
MatchSoundsLike: =False, _
MatchAllWordForms: =False, _
препровождает: =True, обруч _
: =wdFindContinue, форма _
: =False) Then
. Адрес Hyperlinks.Add: = " nofollow "» rel=» _blank "» target= " http://www.myurl.com/ href= .com/ http://www.myurl», анкер: Конец With

This If
конца =mobjDoc.Range
заменяет ть все в документе с hyperlinks, как раз части текста, котор я хочу к replace.



class=

Ответ : От моего VB6 app, как я заменяю ть специфически текст в документе слова 2003 с hyperlink?

Oops iий не определило что тип hyperlink в тусклом заявлении

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

Sub ReplaceWithHyperlink (mobjDoc как документ) Тусклое rng как Word.Range Тусклое hyp как Word.Hyperlink Установите rng = mobjDoc.Range Сделайте пока rng. Find.Execute («%ApplicantOnlineTimesheetsLink%") Установите hyp = mobjDoc.Hyperlinks.Add (rng, «http://www.myurl.com/ ") Установите rng = hyp. Ряд rng. wdCollapseEnd сброса давления 'делает конечно что новый текст hyperlink не включен в поиск rng. Конец = mobjDoc.Range.End 'продлевают ряд находки к концу документа Петля Подводная лодка конца