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

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

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

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

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

Sub InsertFieldToCaption()
  With Selection.ShapeRange(1).TextFrame
    .TextRange.Fields.Add .TextRange, wdFieldPage, , True
  End With
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
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

DOGE Адрес: DENN2ncxBc6CcgY8SbcHGpAF87siBVq4tU

 

BAT Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

XRP Адрес: rEb8TK3gBgk5auZkwc6sHnwrGVJH8DuaLh Депозит Tag: 105314946

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

Вебмани (R ещё работает): R140551758553 или Z216149053852

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

 

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

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

  1. 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

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

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

^ Наверх