none
Macro en word para Guardar archivos indendientes en PDF con un nombre diferente cada uno RRS feed

  • Pregunta

  • Buen día

    Estoy intentando crear un macro para correspondencia en word que me permita guardar cada uno de los archivos en forma separada y con un nombre (dato que se encuentra en cada una de las hojas), ya tengo el macro para que me los guarde en pdf y en archivos separados, pero todos me los guarda con el nombre que yo le doy mas un indicador numérico, me gustaría que estos archivos fueran guardados obteniendo el nombre de cada una de las hojas dato que se encuentra en ellas. ejemplo con el nombre de cada persona o numero de celular. Agradezco si me pueden ayudar lo necesito urgente.

    Este es el macro que estoy utilizando

    Sub GUARDAR_HOJAS()


    Dim num_paginas As Integer
    Dim num_doc As Integer
    Dim pag_inicial As Integer
    Dim pagina_final As Integer
    Dim URL As String
    Dim nombres As Object

    num_paginas = InputBox("Ingrese el numero de paginas por documento")
    num_doc = InputBox("¿Cuantos documentos desea generar?")
    URL = InputBox("¿Donde desea crear los documentos?")
    nombres = InputBox("Nombre del Archivo")  'esta parte es la que quiero cambiar para que el macro me tome el dato del archivo y lo guarde con ese mismo dato

    pag_inicial = 1
    pagina_final = num_paginas

    For i = 1 To num_doc
        ActiveDocument.ExportAsFixedFormat OutputFileName:= _
            URL & "\" & nombres & i & ".pdf", ExportFormat:= _
            wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
            wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=pag_inicial, To:=pagina_final, Item:= _
            wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
            CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
            BitmapMissingFonts:=True, UseISO19005_1:=False
        ChangeFileOpenDirectory URL
        
    pag_inicial = pagina_final + 1
    pagina_final = pagina_final + num_paginas
    Next i
    End Sub


    jueves, 16 de mayo de 2019 22:35