Если у вас есть идея или совет по эффективному использованию редактора Word, то пишите мне через форму контактов на сайте. Любые ваши дельные советы и подсказки будут размещены в очередных выпусках рассылки и на сайте (с указанием вашего авторства).
Количество рисунков в документе: макрос
Вопрос от пользователя Bata:
Как указать кол-во используемых в тексте рисунков? Рисунки пронумерованы как Caption (SEQ Рисунок).
Я могу вам предложить следующий макрос для вставки в документ текста с указанием количества рисунков в текущем документе.
Установите курсор ввода в том месте документа, где вы хотите вставить текст с количеством рисунков и запустите макрос:
Sub picCount()
'Подсчет количества рисунков в документе (тип InlineShape)
If ActiveDocument.InlineShapes.Count < 0 Then
MsgBox "Рисунков типа InlineShape в документе не обнаружено", vbInformation
Else
Selection.TypeText Text:="Количество рисунков: " & ActiveDocument.InlineShapes.Count
End If
End Sub
Станислав интересуется: Подскажите, пожалуйста, как можно преобразовать закладки в обычный текст. Например, из документа с полями и формами я "вырезаю" какой либо фрагмент, содержащий закладки. После вставки в новый документ все отображается, но при попытке отправить на печать, закладки обновляются и на листе отображаются ошибки.
Станислав, появление ошибок на месте полей говорит о том, что отсутствуют элементы, на которые ссылаются поля.
В вашем случае я бы рекомендовал следующий способ: преобразовать все поля в обычный текст (как вы и просили). Для этого нужно просто выделить весь текст документа (используйте сочетание клавиш «Ctrl+A») и применить к нему команду преобразования (сочетание клавиш «CTRL+SHIFT+F9».
Поля будут преобразованы в обычный текст, ошибок не должно быть и документ можно распечатывать.
Как переместить автофигуру из текста документа в колонтитулы
Вопрос от Светланы: На странице имеется объект, например shape1. Его необходимо перенести в колонтитулы этой же страницы. Каким образом это возможно сделать на vba?
Светлана, если у вас в документе действительно содержится объект shape (автофигура), то вот пример макроса, который занесет эту фигуру в верхний колонтитул:
Sub shape_to_HF()
'Перемещение автофигуры (shape) в верхний колонтитул
Dim hfRange As Range 'диапазон колонтитулов
If Selection.Type = wdSelectionIP Then
MsgBox "Пожалуйста, выделите вашу автофигуру"
Else
Set hfRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
Selection.Cut
With hfRange
.Delete
.Paste
End With
ActiveWindow.View.Type = wdPrintView 'переключаемся в режим Разметка страницы
ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit 'формат по ширине страницы
End If
End Sub
Наталия интересуется:
У меня версия word - 2007-го года. Сейчас пришлось активно рассылать вордовские документы через почту другим пользователям. Но они просят прислать этот же документ в формате doc. Я подозреваю, что у них установлены более старые версии word (что-то я про это слышала). Что мне делать?
Наталия, вам нужно в настройках редактора установить опцию сохранения ваших файлов по умолчанию в формате doc.
Для этого откройте диалоговое окно Параметры Word (кнопка Office - кнопка Параметры Word). Перейдите на закладку Сохранение. В поле "Сохранять файлы в следующем формате" выберите значение "Документ Word 97-2003 (*.doc)" (рисунок).
Теперь все ваши документы будут по умолчанию сохраняться в этом формате и должны открываться в прежних версиях редактора Word без проблем.
Вся информация, представленная на сайте WordExpert.ru и в этой рассылке, никаким образом не связана с корпорацией Microsoft. В рассылке упоминаются компании и продукты, которые могут быть зарегистрированными торговыми марками и принадлежать различным физическим и юридическим лицам как на территории РФ, так и за ее пределами.
Авторские права на все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке (включая текст, фотографии, подборку, расположение и т.п.) принадлежат Кокину Антону Вадимовичу, если не указано иное. Вы можете свободно использовать и распространять эти материалы с обязательной ссылкой вида "Информация с сайта WordExpert.ru" и с обязательным указанием автора материала.
Все материалы, опубликованные на сайте WordExpert.ru и в этой рассылке, представлены на информационной основе. Вы можете использовать любую информацию с сайта WordExpert.ru или из данной рассылки исключительно на свой страх и риск. Тем не менее, я рекомендую перед применением какой-либо информации с сайта WordExpert.ru или из данной рассылки обязательно сохранять и создавать резервные копии ваших документов.
В этой рассылке также упоминаются различные web-страницы с соответствующими ссылками. Эти ссылки указываются исключительно в информационных целях и никакой рекомендации или одобрения с моей стороны данных веб-страниц не подразумевается, если не указано иное.