[решено] Вставка в открытый (текущий) документ Word графического элемента и даты

[Denis-reut]

Всем доброго времени суток.
Есть большая потребность (в связи с немаленьким ежедневным документооборотом) вставлять в открытый (текущий) документ Word графический элемент и текущую дату.
Нагуглил на vbs готовое решение, но только для создания нового документа:

Set objWord = CreateObject("Word.Application")

objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection

objSelection.Font.Name = "Arial"
objSelection.Font.Size = "18"
objSelection.TypeText "Network Adapter Report"
objSelection.TypeParagraph()

objSelection.Font.Size = "14"
objSelection.TypeText "" & Date()
objSelection.TypeParagraph()

А как сделать это в открытом (текущем) документе?
Способ реализации - cmd или vbs не принципиален
Заранее признателен за помощь!

[Iska]

Denis-reut, код на форуме оформляется не жирным шрифтом, а тэгом (http://forum.oszone.net/misc.php?do=bbcode#code).

Вставьте следующий код в макрос шаблона документа и назначьте этому макросу кнопку или сочетание горячих клавиш:
[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, спасибо большое!
Немного переделал, соединил две части и - вуаля - все получилось!
Вообще, на данном форуме все участники стараются помочь и решением, и советом.