Как создать макрос для вставки текстового поля, предварительно заполненного текстом в Word 2010?

Question

Я пытаюсь создать макрос для вставки текстового поля, заполненного заранее заданным текстом, когда выбрана комбинация клавиш. Я могу записать макрос для генерации текста, но не могу его заполнить текстовое поле текстом внутри. Например, если я выберу Ctrl+Alt+T, будет создано текстовое поле со словом "грузовик" .

Используя Microsoft Word 2010, как я могу это сделать?

Answer 1

Это не относится к вашему VBA, потому что мы не знаем, что это такое, но ниже показано, как добавить текстовое поле с текстом с помощью VBA.

Sub addBox()
    Dim Box As Shape
    Set Box = ActiveDocument.Shapes.addTextBox( _
    Orientation:=msoTextOrientationHorizontal, _
    Left:=50, Top:=50, Width:=100, Height:=100)

    'This adds text to the box...
    Box.TextFrame.TextRange.Text = "Truck"
End Sub

источник