Динамический нижний колонтитул MS Word VBA

Я хотел бы заменить ярлык в нижнем колонтитуле. Это работает, но замена удаляет горизонтальную линию над текстом нижнего колонтитула. Как заменить метку, не удаляя горизонтальную линию? Как нарисовать линию в футере?

Private Sub Document_Open()
   Dim unit As String
   Dim footer As String
   unit = "New text"
   footer = ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Range.Text
   ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Range.InlineShapes.AddHorizontalLineStandard   
   footer = Replace(footer, "<<Label>>", unit)
   ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage).Range.Text = footer
End Sub

vba footer ms-word
person sada    schedule 15.08.2012    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Есть несколько способов сделать то, что вы хотите, не все из них в VBA. что ты уже испробовал?

Если вы хотите использовать VBA для рисования линии над текстом, установите курсор там, где вы хотите, а затем вызовите следующее:

With Selection.Borders(wdBorderTop)
    .LineStyle = Options.DefaultBorderLineStyle
    .LineWidth = Options.DefaultBorderLineWidth
    .Color = Options.DefaultBorderColor
End With
person Olle Sjögren    schedule 15.08.2012