Question

我对此完全陌生。我想创建一个宏，该宏将文件路径（在宏运行时）添加到文档末尾的文本框中。我在Mac上使用Word 2016。

我在其他线程上找到了代码，这些代码可以帮助我了解如何创建文本框并在文档中处理其位置，但是我无法添加文件路径代码。

这是我到目前为止提出的：

    Sub percorsofile2()
    Dim Box As Shape
    Set Box = ActiveDocument.Shapes.AddTextbox( _
    Orientation:=msoTextOrientationHorizontal, _
    Left:=50, Top:=50, Width:=100, Height:=15)
    Box.TextFrame.TextRange: Selection.Fields.Add Range:=Selection.Range, 
    Type:=wdFieldEmpty, Text:="FILENAME \p "

Answer 1

您非常亲密！只是一点零钱...

所选内容不在文本框中，这就是为什么未在正确的位置插入域代码的原因。虽然您可以首先选择TextBox范围，但通常最好直接使用Range对象，而不要使用选择。

我的示例代码声明了一个Range对象，然后将其设置为Box.TextFrame.TextRange。然后可以在此位置插入域代码。

Sub percorsofile2()
    Dim Box As Shape
    Dim rng As Word.Range

    Set Box = ActiveDocument.shapes.AddTextbox( _
              Orientation:=msoTextOrientationHorizontal, _
              Left:=50, Top:=50, width:=100, height:=15)
    Set rng = Box.TextFrame.TextRange
    rng.Fields.Add Range:=rng, Type:=wdFieldEmpty, Text:="FILENAME \p " 
End Sub

Word中的宏以添加带有文件路径的文本框

1 个答案: