
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
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


0