如何识别特定的文本框？

Question

我的 VBA 例程旨在更改文档页脚文本框中的文本。目前识别如下：

Dim R1 as Word.Range
Set R1 = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
R1.ShapeRange(1).TextFrame.TextRange.Text = "xxxx"

但是，用户可以修改此模板并可能添加其他文本框。我如何保证我输入的是正确的文本框？

Answer 1

首先找出那个文本框的名称。为此，您可以使用此代码

Sub Sample()
    Dim shp
    Dim R1 As Word.Range

    Set R1 = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range

    For Each shp In R1.ShapeRange
        Debug.Print shp.Name
    Next shp
End Sub

一旦您知道了名称，就可以简单地使用该名称

Sub Sample()
    Dim R1 As Word.Range

    Set R1 = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range

    R1.ShapeRange("Text Box 1").TextFrame.TextRange.Text = "xxrrrxx"
End Sub

这样即使添加了新形状，您的代码也始终会写入正确的文本框。

如何识别特定的文本框？

How to identify a particular text box?

vba

textbox

ms-word

word-2013