[Iska]

Что-то коллеги молчат, я думал они и продолжат…

Добавьте в начало скрипта:

Код:

Const wdPropertyTitle = 1
Const wdPropertyAuthor = 3
Const wdPropertyKeywords = 4

и перед «Call .ActiveDocument.SaveAs2(…)»:

Код:

				With .ActiveDocument.BuiltInDocumentProperties
					.Item(wdPropertyAuthor)   = "Пупкин"
					.Item(wdPropertyTitle)    = ""
					.Item(wdPropertyKeywords) = ""
				End With