¿Como abrir un archivo de .docx en un formulario Excel?
Desearía que me ayuden en un comando para que pueda abrir un documento .docx desde un formulario, pero para selecciona el archivo que se use un ComboBox. Ejemplo:
Selecciono el nombre "Documento 1" y que se habrá su respectivo documento, y si selecciono "Documento 2" que se habrá su respectivo documentos.
1 respuesta
Respuesta de Elsa Matilde
3
Lo primero será habilitar, si aún no lo está, la referencia a Word desde el Editor, menú Herramientas, Referencias (puede variar el nro de la aplicación)
Y en el Userform tendrás un control Combobox con la lista de nombres de documentos (imaginé que no tendrían la extensión) y un botón para abrir el documento seleccionado.
La macro para el botón será:
Private Sub CommandButton1_Click()
'x Elsamatilde
Dim oWord As Word.Application, wdDoc As Word.Document
Set oWord = CreateObject("Word.Application")
'se abre el doc
'se establece la ruta de los docs
ruta = "C:\Users\elsam\Downloads\CONTRATOS\"
'al nombre del doc se le agrega la extensión si no fue incluída en la lista
nbredoc = ComboBox1.Value & ".docx"
Set wdDoc = oWord.Documents.Open(ruta & nbredoc)
'se activa Word
oWord.Visible = True
End Sub
