1

Тема: Ширина параграфа

Как с помощью макроса определить ширину параграфа?
Простое сложение полней страницы и параграфа мы знаем.
А как определить размеры в следующих случаях:
1. в документе несколько колонок
2. в таблице
3. в надписи
И т.д.
Надеюсь найдется универсальный вариант  wink

Макросы под заказ и готовый пакет - mtdmacro.ru

2

Re: Ширина параграфа

В пикселах? Можно получить в пикселах, а потом перевести в пункты:

Sub test()
  Dim pLeft As Long
  Dim pTop As Long
  Dim pWidth As Long
  Dim pHeight As Long

ActiveWindow.GetPoint pLeft, pTop, pWidth, pHeight, _
    Selection.Paragraphs(1).Range
MsgBox "Left = " & pLeft & vbLf _
    & "Top = " & pTop & vbLf _
    & "Width = " & pWidth & vbLf _
    & "Height = " & pHeight
End Sub
Лучше день потерять — потом за пять минут долететь!

3

Re: Ширина параграфа

viter.alex пишет:

В пикселах? Можно получить в пикселах, а потом перевести в пункты...

Э нет, это ширина текста в параграфе  tongue

Нужна ширина самого параграфа!
Ширина параграфа – это расстояние на инструменте «Линейка» от маркера «Отступ слева» до маркера «Отступ справа».

Отредактировано Вождь (13.01.2010 18:01:39)

Макросы под заказ и готовый пакет - mtdmacro.ru