[Iska]

Denis-reut, код на форуме оформляется не жирным шрифтом, а тэгом [code].

Вставьте следующий код в макрос шаблона документа и назначьте этому макросу кнопку или сочетание горячих клавиш:

читать дальше »

Код:

Option Explicit

Sub InsertSome()
    With Selection
        With .Font
            .Name = "Arial"
            .Size = "18"
        End With
        
        .TypeText "Network Adapter Report"
        .TypeParagraph
        
        .Font.Size = "14"
        .TypeText "" & Date
        .TypeParagraph
    End With
End Sub

Но лучше будет, если Вы выложите готовый документ с потребным текстом и вставленным изображением.

[Denis-reut]

Доброго дня.
Спасибо за идею.
Что касается нужных деталей: как уже было реализовано, нужна текущая дата + вставка графического элемента, это что-то типа штампа, который отсканирован и находится в папке D:\Документы\Штамп в формате *.jpg.
Так сделать можно?
Заранее благодарю.

[Iska]

и находится в папке D:\Документы\Штамп в формате *.jpg. »

Как он называется — я должен сам догадаться?

[Dr.DG]

Denis-reut,
команда вставки рисунка в текущее положение курсора

Код:

Selection.InlineShapes.AddPicture FileName:= _
"D:\Документы\Штамп.jpg", _
LinkToFile:=False, SaveWithDocument:=True

Но лучше бы вам освоить запись макросов. Для простых механических действий это самое оно.

[Iska]

Код: , _ LinkToFile:=False, SaveWithDocument:=True »

— необязательно.

[Denis-reut]

Iska, Dr.DG, спасибо большое!
Немного переделал, соединил две части и - вуаля - все получилось!
Вообще, на данном форуме все участники стараются помочь и решением, и советом.