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

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

Как вставить поле номера страницы в надпись

Рубрика: Макросы, Вопрос-Ответ
Метки: | |
Пятница, 12 июня 2009 г.
Просмотров: 2595
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

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

Имеется надпись. Как в надпись вставить поле, в котором отображался бы номер текущей страницы. Все это на языве VBA.

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

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

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

]]>twitter.com facebook Вконтакте Google Buzz google.com bobrdobr.ru del.icio.us technorati.com linkstore.ru news2.ru rumarkz.ru memori.ru moemesto.ru]]>

Это может пригодиться:

Комментариев: 2

  1. andrkar
    06.04.2010 в 20:49 | #1

    а вот такой вот способ предложу, вставку поля при создании надписи

    With Activedocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes
          Set MyBox = .AddTextbox(msoTextOrientationHorizontal, _
        X, Y, L, W)
        With MyBox
            .TextFrame.TextRange.Select
             .TextFrame.TextRange.Fields.Add Range:=Selection.Range, _
 Type:=wdFieldEmpty, Text:="PAGE  ", PreserveFormatting:=True
  
        End With
    End With

    X - координата по горизонтали верхнего левого угла надписи от левого края страницы

    Y - координата по вертикали верхнего левого угла надписи от верхнего края страницы

    L - длина надписи

    W - высота надписи

    все эти величины перед использованием в коде должны быть переведены из сантиметров в пикселы, то есть их нужно умножить на 28.35

  2. Александр Витер
    07.04.2010 в 11:11 | #2

    andrkar, для перевода сантиметров в пункты, существует функция CentimetersToPoints

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

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

контакты

 
^ Наверх