Una macro en Word

[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