1

Тема: Объект стиль «Гиперссылка» и Объект Гиперссылка

Помогите с кодом сделать проверку на обнаружение "пустых ссылок" в тексте. А именно, нужна проверка, если к выделенному тексту применен только стиль "Гиперссылка", значит это не ссылка как объект. Как в моем примере на скриншоте.

Post's attachments

ГСкакСтильГиперссылка.PNG 66.86 Кб, файл не был скачан. 

You don't have the permssions to download the attachments of this post.
Ищу соратников по программированию

2

Re: Объект стиль «Гиперссылка» и Объект Гиперссылка

Проверка условия:

Selection.Style = ActiveDocument.Styles("Гиперссылка")

Не об этом речь?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3

Re: Объект стиль «Гиперссылка» и Объект Гиперссылка

Alex_Gur пишет:

Проверка условия:

Selection.Style = ActiveDocument.Styles("Гиперссылка")

Не об этом речь?

Нет, не совсем то, а вернее маловато для того, чтобы выявить по тексту все так сказать "0-ые" гиперссылки. Ведь ссылка как объект оформляется также стилем "Гиперссылка". А мне нужно было выявить в выделенном фрагменте текста, что текст является непосредственно объектом гипертекстовой связи, а не простым оформленным стилем "Гиперссылка". Но все равно спасибо, за отклик. roll
Я уже сама решила свою проблему, вот таким кодом:

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
Ищу соратников по программированию

4

Re: Объект стиль «Гиперссылка» и Объект Гиперссылка

Если кто то знает как сделать код проще, легче, лучше и эффективней, пишите, я также рассмотрю примеры. cool

Ищу соратников по программированию