я преобразовал макрос под себя,
но случается что вот таким способом
не всегда заменяется текст из этой серии
например
5.7.43
Sub hyperlink_instead_text()
Dim sMask As String 'Маска поиска файлов
Dim urlMask As String 'Маска ссылки
Dim textMask As String 'Маска текста
i = 4
j = 0
' Selection.Find.Text = ""
'Selection.Find.Execute
'Selection.HomeKey Unit:=wdStory
Do While i = 4 And j < 10
sMask = "5.7.4" & j
urlMask = "2%20ОБЩАЯ%20ЧАСТЬ_Методика_OLAP_ПФР.doc#Классификатор_5_7_4" & j
textMask = "5.7.4" & j
Selection.Find.Forward = True
Selection.Find.Text = sMask
If Selection.Find.Execute = True Then
ActiveDocument.Hyperlinks.Add _
Anchor:=Selection.Range, _
Address:=urlMask, _
TextToDisplay:=textMask
ElseIf Selection.Find.Execute = False Then j = j + 1
End If
If j = 10 Then i = 5
Loop
End Sub
но если я сделаю так, то записи заменятся:
Sub hyperlink_instead_text()
Selection.Find.Text = ""
Selection.Find.Execute
Selection.HomeKey Unit:=wdStory
Do While i = 7
Selection.Find.Forward = True
Selection.Find.Text = "5.7.43"
If Selection.Find.Execute = True Then
ActiveDocument.Hyperlinks.Add _
Anchor:=Selection.Range, _
Address:="2%20ОБЩАЯ%20ЧАСТЬ_Методика_OLAP_ПФР.doc#Классификатор_5_7_43", _
TextToDisplay:="5.7.43"
ElseIf Selection.Find.Execute = False Then i = 8
End If
Loop
End Sub
Как так?
Что делать?