Тема: Сохранить открытый файл именем из буфера обмена
Помогите, пожалуйста!
Нужно создать макрос для Word 2007, который бы при открытии автоматически сохранял файл именем из буфера обмена. Пробовал вручную,
Sub Save()
Dim MyDataObj As String
MyDataObj = GetFromClipboard
ChangeFileOpenDirectory "D:\vadim\doc\"
ActiveDocument.SaveAs fileName:=MyDataObj, fileFormat:= _
wdFormatXMLDocument, lockComments:=False, password:="", addToRecentFiles _
:=True, writePassword:="", readOnlyRecommended:=False, embedTrueTypeFonts _
:=False, saveNativePictureFormat:=False, saveFormsData:=False, _
saveAsAOCELetter:=False
ShowVisualBasicEditor = True
ActiveWindow.Close
End Sub
перечитал множество форумов, но максимальное чего добился : Run time error 5152
Я не специалист в VBA, но очень нужен этот макрос, помогите, плиз