Footer dinamis MS Word VBA

Saya ingin mengganti label di footer. Ini berfungsi tetapi penggantiannya menghapus garis horizontal di atas teks footer. Bagaimana cara mengganti label tanpa menghapus garis horizontal? Bagaimana cara menggambar garis di footer?

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 sumber

Jawaban (1)


arrow_upward
2
arrow_downward

Ada beberapa cara untuk melakukan apa yang Anda inginkan, tidak semuanya di VBA. Apa yang sudah Anda coba sejauh ini?

Jika Anda ingin menggunakan VBA untuk menggambar garis di atas teks, atur kursor di tempat yang Anda inginkan lalu panggil perintah berikut:

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