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 に答える