时间戳

首页 > 解决方案 > Word 2016 中的文本框“对象不支持附加文本”

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

问题描述

我写了一个 vba 宏，以便用 word 打印一些抽奖券。我的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 代码的 shape(8) 行会突出显示。其他 7 个文本框已正确填充，如果我删除最后一行代码，它打印得很好，但第 8 个文本框显然没有被填充。我在这里想念什么？

标签： vbams-word

解决方案

我看到这已经有一年多的历史了，但是如果有人从 Google 搜索结果中来到这里，我会在尝试将值分配给 时遇到此异常MyShape.TextFrame.TextRange.Text，其中MyShapeaContentControl类型为Checkbox。请记住，复选框和图片内容控件不支持将文本附加到它们。

推荐阅读