[a_axe]

-Phantom-, сохраняйте с помощью скрипта. Если речь про Excel - допустим таким (предварительно подключив в редакторе VBA → Tools → References → Browse библиотеку по пути C:\Windows\system32\FM20.DLL):

Код:

Sub save_from_bufer()
Dim myData As New DataObject

myData.GetFromClipboard
pdfPath = myData.GetText
If pdfPath <> False Then
ChDir "C:\temp"
  pdfPath = Replace(pdfPath, "*", "")
  pdfPath = Replace(pdfPath, ";", "")
 
 ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath _
      , Quality:=xlQualityStandard, IncludeDocProperties:=True _
      , IgnorePrintAreas:=False, OpenAfterPublish:=True
  End If
End Sub

PS регулярное выражение не вписываю сознательно, чтоб вы могли дополнить строчками по аналогии с pdfPath = Replace(pdfPath, ";", "") любыми нужными символами.
Ну и проверки на ошибки (например - каталог не существует) - за вами.
Также в коде нужно подправить текущую папку (у меня вписано "C:\temp")