Hola:
Respondiendo a este post:
http://www.ayudaexcel.com/foro/thre...titulo-en-la-primera-linea.36187/#post-175982
Respondiendo a este post:
CÓDIGO:
Sub GrabarApdf() Dim titulo As Variant Dim intLineas As Integer Selection.HomeKey wdStory intLineas = Selection.HomeKey & Selection.EndKey For i = 0 To intLineas Set titulo = ActiveDocument.Range(Start:=0, End:=i) Next i titulo = Replace(titulo, Chr(13), "") ActiveDocument.ExportAsFixedFormat OutputFileName:= _ ActiveDocument.Path & "\" & titulo & ".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 'ActiveDocument.Path & “” & ActiveDocument.Name & “.pdf” End Sub
Titulo de la primera linea word a pdf