Ciao a tutti. Ho registrato la seguente macro che seleziona e copia tutto il testo di un doc. esistente; crea un nuovo documento e lo incolla; si posiziona in un punto preciso e copia la prima riga del documento... A questo punto vorrei salvare il file in pdf e che la riga appena copiata (il cui testo varia per contenuto e lunghezza, senza mai finire nella riga successiva) fosse il nome del pdf ottenuto. Il file word dovrebbe essere infine chiuso, senza salvare le modifiche. Qualcuno può aiutarmi ? Ve ne sarei davvero grato. Utilizzo office 2010 su windows 7 64 bit.
Macro4 Macro
'
'
Selection.WholeStory
Selection.Copy
Documents.Add DocumentType:=wdNewBlankDocument
Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
Selection.MoveUp Unit:=wdScreen, Count:=16
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\Desktop\esempio.pdf", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=True, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveWindow.Close
ActiveWindow.Close
End Sub