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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

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

Всем доброго времени суток.
Есть большая потребность (в связи с немаленьким ежедневным документооборотом) вставлять в открытый (текущий) документ 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 не принципиален
Заранее признателен за помощь!

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

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

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

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

Цитата:

Цитата Denis-reut

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

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

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

Код:

Selection.InlineShapes.AddPicture FileName:= _

"D:\Документы\Штамп.jpg", _

LinkToFile:=False, SaveWithDocument:=True

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

Цитата:

Цитата Dr.DG

Код:

, _

 LinkToFile:=False, SaveWithDocument:=True

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

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