使用Word VBA重新定义现有文本框的位置和大小

Question

我在Word 2019中创建了文本框。 文本框的名称是“A1001”。 文本框的位置为“Left=37 and Top=155”。 文本框的大小为“高度=18，重量=100”。 这个参数可以在Development-Property中看到。

如果/当我再次打开同一个文档时，我想使用 VBA 并通过代码重新定义“A1001”的位置和大小。

我不想删除文本框并创建新文本框，而只是重新定义它！

有人可以帮忙吗？

谢谢您！

Answer 1

Option Explicit

Sub ReshapeTextBox()
    Dim oShp As Shape
    On Error Resume Next
    Set oShp = ActiveDocument.Shapes("A1001")
    On Error GoTo 0
    If oShp Is Nothing Then
        MsgBox "Can't find A1001"
    Else
        With oShp 
            .Left = 30
            .Top = 30
            .Height = 36
            .Width = 200
        End With
    End If
End Sub