Статьи из блога
Как переместить автофигуру из текста документа в колонтитулы
Вопрос от Светланы:
На странице имеется объект, например 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
Рубрика: Вопрос-Ответ, Макросы, Стили и форматирование
Метки: автофигура | колонтитулы | макросы | рисунки
Просмотров: 15962
Подписаться на комментарии по RSS
Версия для печати
Метки: автофигура | колонтитулы | макросы | рисунки
Просмотров: 15962
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Оставьте комментарий!