Добавление текст в прямоугольники - VBA

Формулировка задачи:

Есть документ *.doc. В нем Панель рисования>Прямоугольник Далее в документе рисуем несколько прямоугольников (аналог добавить/изменить текст через контекстное меню). Задача добавить определенный текст в прямоугольники (например в условно 1й "тест1", в другой "тест2" и т.д.). Самостоятельно найти решение не получилось. Заранее спасибо.

Код к задаче: «Добавление текст в прямоугольники - VBA»

textual
Sub writeField(index As Long, text As String, Optional isTime As Boolean)
    With ActiveDocument.Shapes(index)
        .Select
        .TextFrame.TextRange.text = text
    End With
   
    If isTime Then
        Selection.EndKey Unit:=wdLine, Extend:=wdMove
        Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
        With Selection
                With .Font
                    .Superscript = True
                    .Underline = wdUnderlineSingle
                End With
        End With
    End If
End Sub

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ