Сохранить открытый файл именем из буфера обмена

выдает окошко compille error: User-defined type not definet на этапе Dim Data1 As NEW DATAOBJECT, Буфер1$
я так понимаю надо заменить NEW DATAOBJECT но на что?

Все, разобрался, работает!
чтобы не выдавало ошибку Compile error: User-defined type not defined на  этапе
Dim MyDataObj As New DataObject ', надо поставить галку  в Tools - References у Microsoft Forms 2.0 Object Library. Если нету библиотеки Microsoft Forms 2.0 Object Library, через обзор, в папке system 32 находим файл FM20.dll, и добавляем ее.  Если галка стоит, снять, применить и поставить снова (мне потребовалось сделать так несколько раз). Галку убрать нельзя пока строку "Dim MyData As DataObject" не удалишь или закомментируешь.
окончательный вариант макроса:
Sub Save()
Dim strDocName As String
Dim MyDataObj As New DataObject
MyDataObj.GetFromClipboard
strDocName = MyDataObj.GetText
    ChangeFileOpenDirectory "D:\vadim\doc\"
    ActiveDocument.SaveAs FileName:=strDocName, FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
End Sub

Согласен с Вами, когда спешишь и мысли бегут впереди пальцев на клавиатуре, потом самому трудно разобраться, не то что другим.
Итак:
Если нету библиотеки Microsoft Forms 2.0 Object Library в окне References - Project (Alt+F11 -> Tools - > References), то в этом же окне разыскиваем и нажимаем  Browse... сразу же попадаем в папку system 32. Тут же находим FM20.dll. Нажимаем ОК. Все, библиотеки Microsoft Forms 2.0 Object Library есть в списке, ставим галочку на этой библиотеке.
Длину буфера обмена проверять не нужно, для меня, вообще-то, это к лучшему, т.к. макрос нужен для связи медицинской программы с шаблоном дневниковой записи. Программа передает в буфер название файла (комбинацию цифр, по которой в будущем будет связывать этот файл с другими данными), макрос срабатывает, называет файл цифрами из буфера обмена, и пользователь продолжает работу в новом, только что сохраненном, файле с нужным названием. При этом шаблон остается неизмененным (макрос только для этого документа). Но, если все-таки нужно внести изменения в шаблон, то нужно очистить буфер (я упрощаю Alt+PrtScr  ), макрос выдает ошибку, и я редактирую шаблон. Может это, коненчно же, не рационально, но как получается, так и выкручиваемся.

разница между сочетаниями клавиш в том, что две кнопки приводят к копированию в буфер изображение только активного окна, которое может и не занимать весь экран.. А когда просто PrintScreen - тогда в буфер копируется изображение всего экрана!