Titulo de la primera linea word a pdf

Hola:

Respondiendo a este post:

Hola! Alguien sabe como puedo crear una macro en word para guardar un documento en pdf cuyo nombre sea la primera linea del word?
el proceso que realizo siempre es: en un documento en blanco nuevo, pego la informacion que quiero y ejecuto una macro, que cambia el formato y otras muchas cosas. ahora quiero completarla guardando el documento en pdf, con el nombre de la primera linea.
he hecho una macro pero el nombre del pdf resultante es siempre el mismo, es decir, no es el de la primera linea.
Alguien puede decirme cómo se hace eso, si se puede?
Muchas gracias.

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