Guardar word a pdf con nombre variable.

[falexramos]

buenas tardes

estoy haciendo una macro para que me guarde los archivos de word de a 2 hojas, pero cuando llega la parte de guardar cun un nombre que alimenta una variable me genera el error " no es un nombre de archivo valido", pero el nombre del arhivo yo lo veo bien no se que pasa o si la variable con el nombre debiera tener una caracteristica de texto pero no se como hacerla.

agradezco la ayuda.

Sub guardar_word()


u = ActiveDocument.BuiltInDocumentProperties("Number of Pages")

For x = 2 To u

    With Selection.Find

        .Text = "Recibí:"

        .Forward = True

        .Wrap = wdFindContinue

    End With

    Selection.Find.Execute

    Selection.MoveDown Unit:=wdLine, Count:=1

    Selection.EndKey Unit:=wdLine, Extend:=wdExtend

nombre = Selection

    ActiveDocument.ExportAsFixedFormat OutputFileName:= _

        "C:\Users\ramo06\Documents\ok liquidaciones cerrar\" & nombre & ".pdf", _

        ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _

        wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=(x - 1), To:=x, Item:= _

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

        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _

        BitmapMissingFonts:=True, UseISO19005_1:=False

Next


End Sub[/CODE]

[ABOHORQUEZ]

Estuve revisando y note que la varibale cuando recibe el nombre del selection, recibe alho asi " texto selecionado... y al concatenar con la ext .pdf no lo hacia el texto almacenaba un salto de linea... mejor dicho esta complicado a simple vista.

No se si esta es mejor forma pero yo lo soluciono asi:

Sub guardar_word()

Dim Ruta As String, nombre As String

Dim u, x

u = ActiveDocument.BuiltInDocumentProperties("Number of Pages")

For x = 1 To u

    With Selection.Find

        .Text = "Recibí:"

        .Forward = True

        .Wrap = wdFindContinue

    End With

    Selection.Find.Execute

    Selection.MoveDown Unit:=wdLine, Count:=1

    Selection.EndKey Unit:=wdLine, Extend:=wdExtend


    nombre = Selection.Text

    If Right(nombre, 1) = vbCr Then _

    nombre = Left(nombre, Len(nombre) - 1)

    nombre = Trim(RTrim(nombre) & ".pdf")


    Ruta = "C:\Users\ABOHORQUEZ\Desktop\" & nombre & ".pdf"


    ChangeFileOpenDirectory "C:\Users\ABOHORQUEZ\Desktop\"


    ActiveDocument.ExportAsFixedFormat OutputFileName:= _

        Ruta, 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



Next


End Sub[/CODE]

Un saludo!.

[falexramos]

ok, gracias amigo estaba atorado con esto, creo que tiene que ver que no estaba reconociendo la variable nombre como texto. Podrias explicar estas lines como las hicistes, gracias.

If Right(nombre, 1) = vbCr Then _

    nombre = Left(nombre, Len(nombre) - 1)

    nombre = Trim(RTrim(nombre) & ".pdf")[/CODE]

[ABOHORQUEZ]

Si, al revisar tu caso creeme que tabien quedealgo aotrado tambien, pero me gusto poder averiguar el por que y encontre el detalle.

Eso lo que hace es si tiene un salto de linea a la deracha pues se lo quita dejando la cadena sin el salto de linea y asi poder concatenar luego la extension .pdf

[falexramos]

ok, gracias.

[ABOHORQUEZ]

uplacer ayudarte, de todas formas confirma si con eso se solucionatu caso.

[falexramos]

ok, si no hay mas comensatarios, solucionado.