[VBA Word] Удаление замещающего текста и гиперссылок

[mav1984]

Здравствуйте! Только-только начал осваивать макросы, пока еще многого не понимаю.

У меня простая задачка, которую я раньше делал вручную, а теперь додумался, что можно написать макрос:
1. Удалить во всех картинках (и отформатированных в тексте, и не в тексте (вокруг рамки, за текстом, перед текстом)) замещающий текст
2. Удалить во всех картинках (также по-разному расположенных) гиперссылки (если есть)

Пока что при помощи поиска "додумался" до удаления замещающего текста:

Sub Макрос()

ActiveDocument.Content.ShapeRange.AlternativeText = ""

Dim i As Integer
For i = 0 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).AlternativeText = ""
Next i
    
End Sub

А вот с гиперссылками вообще не получается. Пробовал через рекордер макросов, но столкнулся с проблемой, что если гиперссылки на картинке вообще нет, то выдается ошибка (то есть нужно проверить наличие гиперссылки).

[Ципихович Эндрю]

в самом макросе снять выделение со всех картинок, тогда строку
ActiveDocument.Shapes.SelectAll в утиль

[Ципихович Эндрю]

топик надо в ветке по профилю задавать

[mav1984]

В соответствии с правилами форума разместил ее в разделе новичков. Если есть модераторы, то прошу перенести.

Если удалить строку ActiveDocument.Shapes.SelectAll, то он требует наличие объекта для следующей строки: Selection.ShapeRange.AlternativeTex t = ""

А как ее по-другому записать, пока не представляю.

[mav1984]

О, нашел ответ на вопрос по выделению:

ActiveDocument.Content.ShapeRange.A lternativeText = ""

А вопрос по гиперссылкам остается.

[Ципихович Эндрю]

под себя делайте

Среди всех ссылок в документе удалить ссылки, которые ссылаются не на имеющуюся в документе закладку. Но есть исключение нельзя удалять ссылки на файл D:\Рабочая папка\ и D:\Рабочая папка\

    Dim link As Field
    Dim bm As String
    Dim start As Long
    Dim finish As Long
    For Each link In ActiveDocument.Fields
If Not (link.Code.Text Like "* D:\Рабочая папка*") Or Not (link.Code.Text Like "* D:\Рабочая папка*") Then
            start = InStr(2, link.Code.Text, " ")
            finish = InStr(start + 1, link.Code.Text, " ")
            bm = Mid$(link.Code.Text, start + 1, finish - start - 1)
            If Not (Bookmarks.Exists(bm)) Then
                link.Delete
            End If
        End If
Next

[mav1984]

Честно говоря, не понял, как мне под себя этот код настроить.

Мне нужно удалить гиперссылки только из картинок, а в тексте оставить.

Нашел еще вот такой код:

Sub RemoveHyperlinks()
Dim oHyp As Hyperlink
  Do
    For Each oHyp In ActiveDocument.Hyperlinks
      oHyp.Range.Delete
    Next
  Loop While ActiveDocument.Hyperlinks.Count <> 0
End Sub

Каким образом в данном коде можно указать только на рисунки?

[mav1984]

Немного по-корявому, но тем не менее, работает:

Удаляет все гиперссылки из рисунков!

Sub Макрос1()

Dim PicTest As Shape

For Each PicTest In ActiveDocument.Shapes
On Error Resume Next
     PicTest.Select
     Selection.ShapeRange.Hyperlink.Delete
Next
 
Dim i As Integer

For i = 0 To ActiveDocument.InlineShapes.Count
On Error Resume Next
ActiveDocument.InlineShapes(i).Hyperlink.Delete
Next i

End Sub

[Ципихович Эндрю]

цикл должен быть

For i = 0 To ActiveDocument.Hyperlink.Count
If ActiveDocument.Hyperlink(i).тут думать надо Then Hyperlink(i).Delete
Next i

и не пользоваться Selection......
зачем выделять?

[Stilet]

Тему перенес.