Вопрос от пользователя Bata:

Я могу вам предложить следующий макрос для вставки в документ текста с указанием количества рисунков в текущем документе.

Подробнее

Вопрос от Сергея:

Сергей, вот пример такого макроса, предложенного Александром Витером:

Подробнее

Андрей задал вопрос:

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

Подробнее

Если вам нужно определить количество вхождений в документ некоторого слова, то здесь может помочь следующий макрос (навеяно заметкой Грега Макси "Count Selected Word\Phrase").

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

Подробнее

Светлана спрашивает:

Светлана, вот пример макроса, который предложил Александр Витер:

Sub InsertFieldToCaption()
  With Selection.ShapeRange(1).TextFrame
    .TextRange.Fields.Add .TextRange, wdFieldPage, , True
  End With
End Sub

Надпись при этом должна быть выбрана.

Андрей спрашивает:

Андрей, это можно сделать с помощью простого макроса. Выделяете текст на странице с альбомной ориентацией и применяете следующий макрос:

Sub rotating()
Selection.Orientation = wdTextOrientationVerticalFarEast
End Sub

Если вы не знаете, как подключить к документу и применить эти макросы, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса