Una macro en Word

[RCAMARGO]

Buenas noches.

Necesito ayuda sobre una macro en Word: Cómo hacer una macro para abrir un archivo en Word que ya existe y salvarlo con otro nombre que el usuario digita a través de un textbox.

El problema lo tengo en la parte del

ActiveDocument.SaveAs FileName:="NOMBRE1.doc"

y no se cómo hacer que en lugar de "NOMBRE1.doc" aparezca el nombre que se digitó en el textbox que se ejecuta al abrir el archivo con la macro y que pregunta algo así como "Digite el nombre con que quiere salvar el archivo".

No debe ser muy complicado pero si bien algo me defiendo con macros no muy complejas en Excel, me declaro ignorante cuando se trata de hacerlas en Word.

Gracias anticipadas.

Roberto C.

[lufe]

Si tu textbox es el 1 entonces te queda:

ActiveDocument.SaveAs FileName:=TextBox1.Value

[RCAMARGO]

Gracias por la respuesta, Lufe.

Caigo en cuenta cuando la veo que lo que tengo no es un textbox sino un inputbox. Es igual?

[lufe]

Debería ser similar la sintaxis, te fijas como se llama tu inputbox y con .value te devuelve el valor ingresado

[RCAMARGO]

Hola Lufe.

Gracias otra vez.

Finalmente encontré la forma de hacer lo que necesito. Aquí lo dejo por si le interesa a alguien más.

Saludos!


Private Sub CommandButton1_Click()

Dim Valor

Valor = InputBox("Digite el nombre con el quiere guardar el arhivo :", "ANTES DE CONTINUAR...")

'CAMBIA A UN DIRECTORIO EN C:\ LLAMADO PRUEBAS
ChangeFileOpenDirectory "C:\PRUEBAS\"

'La siguiente instrucción abre un archivo de Word llamado ARCHIVO DE PRUEBA.doc que ya existe en la
'carpeta C:\PRUEBAS
Documents.Open FileName:="""ARCHIVO DE PRUEBA.doc""", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""

'Esta es la instrucción que guarda el archivo con el nombre que se digitó en el inputbox inicial
'y luego lo cierra
ActiveDocument.SaveAs FileName:="C:\PRUEBAS\" & Valor, FileFormat:=wdFormatDocument, _
LockComments:=True, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ActiveDocument.Close

End Sub