1

Тема: Как форматировать текущий абзац

Подскажите, пожалуйста, как форматировать весь абзац, в котором стоит курсор.
Нашел

Selection.Paragraphs.First 

, но как увязать с конструкцией типа:

    With Selection.Font
        .Name = "Arial"
        .Size = 16
        .........
    End With
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        ..........
    End With

не знаю.
Помогите, кто может

2

Re: Как форматировать текущий абзац

Все просто:
Задайте переменные

Dim prg as Paragraph
Dim rng as Range
Set prg = Selection.Paragraphs.First
Set  rng = prg.Range
    With rng.Font
        .Name = "Arial"
        .Size = 16
        .........
    End With
    With rng.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        ..........
    End With

3

Re: Как форматировать текущий абзац

aap77, большое спасибо