Статьи из блога

Статьи из блога

Как переместить автофигуру из текста документа в колонтитулы

Вопрос от Светланы:

На странице имеется объект, например 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

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Оставьте комментарий!

(обязательно)

^ Наверх