sábado, 4 de octubre de 2014

Titulo de la primera linea word a pdf

Hola:

Respondiendo a este post:




http://www.ayudaexcel.com/foro/thre...titulo-en-la-primera-linea.36187/#post-175982
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