Создайте нижний колонтитул в Word Doc с VBA и выравниванием по правому краю

Question

Я создаю документ Word с использованием VBA, и мне просто нужно отредактировать верхний / нижний колонтитулы. Когда я запускаю VBA ниже, нижний колонтитул центрируется ... как мне выровнять его по правому краю? Спасибо!

With ActiveDocument.Sections(1)
.Headers(wdHeaderFooterPrimary).range.Text = DocName
.Headers(wdHeaderFooterPrimary).range.Font.Name = "Arial"
.Headers(wdHeaderFooterPrimary).range.Font.size = 9
.Footers(wdHeaderFooterPrimary).range.Text = Format(Date, "Long Date") 
.Footers(wdHeaderFooterPrimary).range.Font.Name = "Arial"
.Footers(wdHeaderFooterPrimary).range.Font.size = 9
End With

Answer 1

Существует несколько способов форматирования содержимого нижнего колонтитула ...

1. Самый «правильный» способ - изменить определение стиля нижнего колонтитула. Это будет включать форматирование шрифта, к которому непосредственно применяется код в вопросе.

Например:

With ActiveDocument.Styles("Footer")
  .Font.Name = "Arial"
  .Font.Size = 9
  .ParagraphFormat.Alignment = wdAlignParagraphRight
End With

2. Если форматирование должно применяться напрямую, можно просто применить правильное выравнивание напрямую:

Пример на основе кода в вопросе

.Footers(wdHeaderFooterPrimary).range.ParagraphFormat.Alignment = wdAlignParagraphRight

3. Стиль нижнего колонтитула по умолчанию имеет три позиции табуляции: по левому краю, по центру и по правому краю. Это позволяет выравнивать содержимое по всей странице. Чтобы использовать это, оставьте выравнивание абзаца вне (1) или (2) и поместите два символа табуляции (vbTab) в начало строки, записываемой в нижний колонтитул:

Пример на основе кода в вопросе

.Footers(wdHeaderFooterPrimary).range.Text = vbTab & vbTab & Format(Date, "Long Date")