MS Word VBA動態頁腳

Question

我想替換頁腳中的標籤。它可以工作，但替換刪除頁腳文本上方的水平線。 如何在不刪除水平線的情況下更換標籤？ 如何在頁腳中繪製一條線？

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 

Answer 1

有幾種方法可以做到你想要什麼，而不是在VBA所有的人。你試過什麼了？

如果你想使用VBA來繪製文本上面一條線，設置您希望它光標，然後調用如下

With Selection.Borders(wdBorderTop) 
    .LineStyle = Options.DefaultBorderLineStyle 
    .LineWidth = Options.DefaultBorderLineWidth 
    .Color = Options.DefaultBorderColor 
End With