Word. Сохранить как.

[svrotko]

подскажите, как сделать, чтоб документ сохранялся под другим именем? (т.е. - "сохранить как")

Код: Выделить всё

Sub proba()
Dim objWrdApp As Object, objWrdDoc As Object 'открыть Word
Set objWrdApp = CreateObject("Word.Application")
Set objWrdDoc = objWrdApp.dOCUMENTS.Open("D:\!Excel\primer\111\222.doc")
Range("A2").Copy 'копировать ячейку
'objWrdDoc.Range(0).Paste 'вставить скопированную ячейку
objWrdDoc.Bookmarks("з1").Range.Text = Range("A2")
objWrdDoc.Bookmarks("з2").Range.Text = Range("B2")
objWrdDoc.Bookmarks("з3").Range.Text = Range("C2")
objWrdDoc.Close True    
objWrdApp.Quit 'закрыть
Set objWrdDoc = Nothing
Set objWrdApp = Nothing
'Set objWrdDoc = Nothing: Set objWrdApp = Nothing 'очистить переменные
End Sub

[Naeel Maqsudov]

objWrdDoc.SaveAs(....)

[svrotko]

Спасибо! попробую