Добавление текст в прямоугольники - VBA
Формулировка задачи:
Есть документ *.doc. В нем Панель рисования>Прямоугольник Далее в документе рисуем несколько прямоугольников (аналог добавить/изменить текст через контекстное меню).
Задача добавить определенный текст в прямоугольники (например в условно 1й "тест1", в другой "тест2" и т.д.). Самостоятельно найти решение не получилось. Заранее спасибо.
Решение задачи: «Добавление текст в прямоугольники»
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д