Замена текста в надписях Word


Dim s As Shape
Dim OldText As String
For Each s In ActiveDocument.Shapes
  If s.Type = msoTextBox Then
    OldText = s.TextFrame.TextRange.Text
    s.TextFrame.TextRange.Text = Replace(OldText, "Текст", "Замена")
  End If
Next
Реклама
Запись опубликована в рубрике программирование с метками , . Добавьте в закладки постоянную ссылку.

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s