Question

我写了一个vba宏，以便用文字打印许多抽奖券。我的VBA代码：

        For I = 1 To 10
            ActiveDocument.Shapes(1).TextFrame.TextRange.Text = N
            ActiveDocument.Shapes(2).TextFrame.TextRange.Text = N
            ActiveDocument.Shapes(3).TextFrame.TextRange.Text = N + 10
            ActiveDocument.Shapes(4).TextFrame.TextRange.Text = N + 10
            ActiveDocument.Shapes(5).TextFrame.TextRange.Text = N + 20
            ActiveDocument.Shapes(6).TextFrame.TextRange.Text = N + 20
            ActiveDocument.Shapes(7).TextFrame.TextRange.Text = N + 30
            ActiveDocument.Shapes(8).TextFrame.TextRange.Text = N + 30
            Application.PrintOut
            N = N + 1
        Next

但是，当我运行它时，出现错误：

该对象不支持附加文本

当我调试时，vba代码的shapes（8）行被突出显示。其他7个文本框已正确填充，并且如果我删除了最后一行代码，则可以正常打印，但第8个文本框显然无法填充。我在这里想念什么？

Answer 1

我看到这已经有一年多的历史了，但是如果有人从Google搜索结果中登陆，我在尝试为MyShape.TextFrame.TextRange.Text赋值时遇到了这个异常，其中MyShape是{{ 1}}类型为ContentControl。请记住，复选框和图片内容控件不支持在其上附加文本。

Word 2016中的文本框“对象不支持附加的文本”

1 个答案: