如何用Word VBA在打开文档时重新定义文本框A1001的位置和大小？

实现步骤： #

1. 打开目标Word文档，按下Alt + F11组合键打开VBA编辑器。
2. 在左侧项目资源管理器中，展开当前文档的节点，双击ThisDocument模块。
3. 将以下代码粘贴到模块窗口中：

Private Sub Document_Open()
    Dim targetShape As Shape
    ' 定位名为"A1001"的文本框（Word中文本框属于Shape对象）
    On Error Resume Next
    Set targetShape = ThisDocument.Shapes("A1001")
    On Error GoTo 0
    
    If Not targetShape Is Nothing Then
        ' 根据需求设置新的位置和尺寸参数
        targetShape.Left = 37    ' 左侧边距
        targetShape.Top = 155    ' 顶部边距
        targetShape.Height = 18  ' 文本框高度
        targetShape.Width = 100  ' 文本框宽度（注：你提到的"Weight"应为Width）
        ' 若需要打开文档后自动保存修改，取消下方注释
        ' ThisDocument.Save
    End If
End Sub

代码说明： #

• Document_Open()是Word的内置事件，文档打开时会自动执行这段代码。
• On Error Resume Next用于避免因找不到指定名称的文本框而弹出错误提示。
• 直接修改Left/Top/Height/Width的数值，就能定义文本框的新位置和尺寸。
• 如果希望修改后自动保存文档，移除ThisDocument.Save前的注释符号即可。

内容的提问来源于stack exchange，提问作者RSing