Excel - abrir varios archivos de word condicional IF

 
Vista:
sin imagen de perfil

abrir varios archivos de word condicional IF

Publicado por Eduardo (10 intervenciones) el 16/11/2016 01:05:05
Buenas noches, tengo un problema con mi macro para abrir unos archivos de Word.

El problema es que no importa cual sea la condicion que esta declarada abre TODOS los archivos y deberia respetar la condicion.

ESTE ES EL CODIGO


Sub OpenWordDoc()
'In order to use this code you must set a reference to the
'Word object library by doing this. In the VB Editor click
'Tools, References. Then search for Microsoft Word n.n Object Library
'where n.n will depend on your version of Word.

Dim wdApp As New Word.Application, wdDoc As Word.Document


On Error Resume Next
Set wdApp = GetObject(“Word.Application”)
If Err.Number <> 0 Then 'Word isn’t already running
Set wdApp = CreateObject(“Word.Application”)
End If

If Worksheets("Source").Range("h2") = Verdadero Then 'Deberia abrir el archivo que esta debajo
With wdApp
.Visible = True
.Documents.Open Filename:=ThisWorkbook.Path & "\1- F-61260.doc"
End With
Else

End If

If Worksheets("Source").Range("h3") = Verdadero Then 'Deberia abrir el archivo que esta debajo
With wdApp
.Visible = True
.Documents.Open Filename:=ThisWorkbook.Path & "\2.- F-15940.doc"
End With
Else
End If

If Worksheets("Source").Range("h4") = Verdadero Then 'Deberia abrir el archivo que esta debajo
With wdApp
.Visible = True
.Documents.Open Filename:=ThisWorkbook.Path & "\3.- F-61050.doc"
.Documents.Open Filename:=ThisWorkbook.Path & "\4.- F-60770.doc"
.Documents.Open Filename:=ThisWorkbook.Path & "\5.- F-61880.doc"
.Documents.Open Filename:=ThisWorkbook.Path & "\6.- F-61060.doc"
.Documents.Open Filename:=ThisWorkbook.Path & "\7.- F-61370.doc"
End With

End If

If Worksheets("Source").Range("h9") = Verdadero Then 'Deberia abrir el archivo que esta debajo
With wdApp
.Visible = True
.Documents.Open Filename:=ThisWorkbook.Path & "\8- F-58621.doc"
.Documents.Open Filename:=ThisWorkbook.Path & "\9- F-58622.doc"
.Documents.Open Filename:=ThisWorkbook.Path & "\10- F-60690.doc"
End With

End If


End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

abrir varios archivos de word condicional IF

Publicado por Eduardol (10 intervenciones) el 18/11/2016 05:50:15
Bueno, a cualquiera que le interese la solucion esta en el Valor del Condicional IF, es decir, en ves de VERDADERO, tiene que ser TRUE.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar