1 Тема от mav1984

  • mav1984
  • рядовой
  • Неактивен
  • Зарегистрирован: 16.09.2012
  • Сообщений: 2

Тема: вопрос по удалению замещающего текста

Добрый день!

Только-только начал осваивать макросы, даже учебника никакого нет, все делаю методом тыка. У меня простая задачка, которую я раньше делал вручную, а теперь додумался, что можно написать макрос:

Удалить во всех картинках замещающий текст (если есть)
+
Удалить во всех картинках гиперссылки (если есть)

Для профессионала по макросам данная задачка не представляет труда. Помогите новичку  big_smile

Или может быть есть стандартные функции в ворд, позволяющие это сделать?

Заранее спасибо!

2 Ответ от mav1984

  • mav1984
  • рядовой
  • Неактивен
  • Зарегистрирован: 16.09.2012
  • Сообщений: 2

Re: вопрос по удалению замещающего текста

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

Sub Макрос1()

ActiveDocument.Shapes.SelectAll
Selection.ShapeRange.AlternativeText = ""

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

А вот с гиперссылками никак не получается. Написал один код при помощи макрос-рекордера, но если гиперссылки в одной из картинок нет, то макрос выдает ошибку.