0

我想替换页脚中的标签。它可以工作，但替换会删除页脚文本上方的水平线。如何在不删除水平线的情况下替换标签？如何在页脚中画一条线？

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
4

1 回答 1

2

有几种方法可以做你想做的事，并不是所有的方法都在 VBA 中。你试过什么了？

如果您想使用 VBA 在文本上方画一条线，请将光标设置在您想要的位置，然后调用以下命令：

With Selection.Borders(wdBorderTop)
    .LineStyle = Options.DefaultBorderLineStyle
    .LineWidth = Options.DefaultBorderLineWidth
    .Color = Options.DefaultBorderColor
End With
于 2012-08-15T10:16:59.857 回答