Renombrar archivo word con macro. titulo en la primera linea

[camaleon11]

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.

[rolano]

Prueba con esta macro grabada en word 2007.

Sub Macro1()

'

' Macro1 Macro

'

'

    Selection.MoveRight Unit:=wdCharacter, Count:=15, Extend:=wdExtend

    Selection.Copy

    ActiveDocument.ExportAsFixedFormat OutputFileName:= _

        "C:\Documents\LOS INVENCIBLES.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

End Sub

[/CODE]

LOS INVENCIBLES.rar

[camaleon11]

Muchas gracias Rolano. Lo que pasa es que al ejecutar tu macro el archivo se llama "LOS INVENCIBLES", sea cual sea la primera línea, que es lo q quiero q sea el nombre del archivo.

Explico un poco más. lo que hago es copiar de una web los diálogos de una película en inglés para seguir el dialogo mientras veo la peli. pego en word y por ejemplo cambio el tamaño de la fuente. guardo como pdf en dropbox y así lo tengo en la tablet en un momento.

en la primera línea pongo el título de esa peli, por eso quiero q el nombre del archivo sea distinto cada vez.

si no se puede hacer con una macro, pues no pasa nada x hacerlo manualmente, pero aprovecho ya q estoy aprendiendo macros.

otra vez, gracias!

[rolano]

Hola camaleon11, dejame verlo mañana, no se por que no funca con este codigo. Haber si tu vez el error.

Sub Macro1()

'

Dim mitexto As String

mitexto = ActiveDocument.Range(Start:=0, End:=15)

'ActiveDocument.Path & “” & ActiveDocument.Name & “.pdf”


    ActiveDocument.ExportAsFixedFormat OutputFileName:= _

    ActiveDocument.Path & "" & mitexto & ".pdf", ExportFormat:= _

wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _

wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _

Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _

CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _

BitmapMissingFonts:=True, UseISO19005_1:=False

End Sub

[/CODE]

[rolano]

Haber ahora creo que ya esta

Sub Macro1()

    Dim titulo As Variant

    Dim intLineas As Integer


    intLineas = ActiveDocument.Characters.Count


    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[/CODE]

[rolano]

Hola [uSER=183348]@camaleon11[/uSER], he estado leyendo tu tema, creo que tu tienes un título en word pero tambien hay parrafos. esta macro coge la primera linea del documento.

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[/CODE]

[camaleon11]

Gracias Rolano! Ahora ya funciona perfectamente. He tenido que cambiar alguna cosa. En lugar de

ActiveDocument.Path & "\" & titulo & ".pdf" he puesto la direccion donde quiero enviar el documento. Al guardar en dropbox me sale directamente en la tablet. Al final queda así:

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:= _

"C:\Users\Alex14\Dropbox\" & titulo & ".pdf", ExportFormat:= _

wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _

wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _

Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _

CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _

BitmapMissingFonts:=True, UseISO19005_1:=False

ChangeFileOpenDirectory "C:\Users\Alex14\Dropbox\"

End Sub