Abrir Cerrar Guardar como archivo de Word Este programa abre un archivo de palabras en un sitio predefinido y guarda el archivo con otro nombre a otro lugar.
Explicación Con el fin de que el programa funcione, la referencia "Microsoft Word Object Library xx.x" tiene que estar habilitado. Un fichero de ejemplo del código es posible descargar al final de este sitio web, diviértete! O simplemente copia y pega el código directamente desde esta página.
Código Sub Open_Close_Save_As_Word_File()
Dim Open_Close_Save_As_Word_File_APP As Word.Application
Dim Open_Close_Save_As_Word_File_DOC As Word.Document
Set Open_Close_Save_As_Word_File_APP = CreateObject("Word.Application")
Dim PlaceOfWordFile As String
Dim NameOfWordFile As String
Dim NewPlaceOfWordFile As String
Dim NewNameOfWordFile As String
PlaceOfWordFile = Range("B4").Value
NameOfWordFile = Range("B5").Value
NewPlaceOfWordFile = Range("B6").Value
NewNameOfWordFile = Range("B7").Value
NamePlace = PlaceOfWordFile + "\" + NameOfWordFile
NewNamePlace = NewPlaceOfWordFile + "\" + NewNameOfWordFile
Open_Close_Save_As_Word_File_APP.Visible = True
Set Open_Close_Save_As_Word_File_DOC = Open_Close_Save_As_Word_File_APP.Documents.Open(NamePlace, ReadOnly:=True)
Open_Close_Save_As_Word_File_DOC.SaveAs (NewNamePlace)
Open_Close_Save_As_Word_File_APP.Quit
Set Open_Close_Save_As_Word_File_DOC = Nothing
Set Open_Close_Save_As_Word_File_APP = Nothing
End Sub
Descargar archivo de Excel!Open_Close_Save_As_Word_File.xls |
