Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Помогите с кодом сделать проверку на обнаружение "пустых ссылок" в тексте. А именно, нужна проверка, если к выделенному тексту применен только стиль "Гиперссылка", значит это не ссылка как объект. Как в моем примере на скриншоте.
Проверка условия:
Selection.Style = ActiveDocument.Styles("Гиперссылка")Не об этом речь?
Проверка условия:
Selection.Style = ActiveDocument.Styles("Гиперссылка")Не об этом речь?
Нет, не совсем то, а вернее маловато для того, чтобы выявить по тексту все так сказать "0-ые" гиперссылки. Ведь ссылка как объект оформляется также стилем "Гиперссылка". А мне нужно было выявить в выделенном фрагменте текста, что текст является непосредственно объектом гипертекстовой связи, а не простым оформленным стилем "Гиперссылка". Но все равно спасибо, за отклик. 
Я уже сама решила свою проблему, вот таким кодом:
Sub ГС_Как_Стиль_Гиперссылка()
On Error GoTo ErrNumber
'==============================================
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Гиперссылка")
Selection.Find.Replacement.ClearFormatting
While Selection.Find.Execute("", , , , , , 1, 0, 1)
If (Selection.Hyperlinks.Count = 0) Then
Selection.Range.HighlightColorIndex = wdTurquoise
Selection.Range.Font.DoubleStrikeThrough = True
Selection.Collapse wdCollapseEnd
End If
ExitHere:
Wend
Selection.Collapse wdCollapseEnd
'==============================================
Exit Sub
ErrNumber:
If Error <> 0 Then
MsgBox Err.Description, , "№ " & Err.Number & ", Процедура: «ГС_Как_Стиль_Гиперссылка»"
Resume ExitHere
End If
End SubЕсли кто то знает как сделать код проще, легче, лучше и эффективней, пишите, я также рассмотрю примеры. 
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться