使用具有自动调整大小功能的 vba 添加文本框

编程问答 2022-05-15

问题描述

我们可以使用以下代码添加新的文本框：

ActiveDocument.Shapes.AddTextBox Orientation:=msoTextOrientationHorizontal,Left:=1,Top:=1,Width:=300,Height:=100

我需要创建一个宏来将注释消息文本框添加到 .docm 文件中，如下所示：

请注意（需要）：

  • 灯泡符号需要慢跑。
  • 灰色框的大小应随着写入更多文本而调整
  • 如果在书写过程中出现分页符，该框应保持在一起。

然后我意识到我们对 ms word 中的形状无能为力？请帮我放置一个满足上述要求的文本框。

解决方法

你不可能非常努力。 StackOverflow 不是免费的代码编写服务。自动调整大小就像：

ActiveDocument.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,_
  Left:=1,Top:=1,Width:=300,Height:=100).TextFrame.AutoSize = 1
autosizems-wordtextboxtextboxvba