Bronwyn preguntó si había alguna forma de forzar que el cuadro de diálogo Abrir permaneciera visible para que se pudieran abrir varios archivos de forma consecutiva. Si bien se pueden abrir varios documentos al mismo tiempo usando el cuadro de diálogo Abrir, esto no es lo que Bronwyn quería hacer.

Una solución, que solo involucra tangencialmente a Word, es usar el Explorador de Windows para mostrar los archivos en una carpeta. Abra una ventana del Explorador que muestra todos los archivos del documento. A continuación, puede hacer doble clic en los archivos o crear una selección de archivos y hacer clic con el botón derecho en ellos y elegir Abrir.

La ventana está disponible continuamente y no tiene que preocuparse por mostrar repetidamente el cuadro de diálogo Abrir.

Si prefiere una solución directamente dentro de Word, recuerde que Word es muy configurable, lo que significa que puede cambiar casi todos los aspectos del programa. Esto incluye el comportamiento del cuadro de diálogo Abrir. Todo lo que necesita hacer es crear un reemplazo para el comando FileOpen, como se muestra a continuación:

Public Sub FileOpen()

Dim err_handler     On Error GoTo err_handler

With Dialogs(wdDialogFileOpen)

.Name = "."

Do While .Show <> 0             .Name = "."

Loop     End With     Exit Sub

err_handler:

If Err.Number = 5174 Then         MsgBox "You can open only one file at a time.", vbCritical         Resume Next     Else         MsgBox Err.Number & vbCrLf & Err.Description, vbExclamation     End If End Sub

Con esta macro en su lugar, siempre que elija Abrir en el menú Archivo, Word muestra el cuadro de diálogo Abrir con Todos los archivos como el tipo de archivo especificado. A continuación, puede seleccionar un archivo y el cuadro de diálogo se abre nuevamente para esperar su próxima selección. Si hace clic en Cancelar en el cuadro de diálogo, el comando finaliza y puede comenzar sus otras tareas en Word.

Existe una diferencia entre esta implementación del cuadro de diálogo Abrir y la que normalmente presenta Word. En Word, puede crear un «conjunto de selección» dentro del cuadro de diálogo Abrir para poder abrir varios archivos al mismo tiempo. Cuando usa el cuadro de diálogo wdDialogFileOpen (como se hace cuando crea su propio reemplazo para el comando Abrir), solo puede seleccionar un solo archivo a la vez. Esto no pareció ser un gran problema para Bronwyn, pero podría ser un problema para otros usuarios.

Si debe conservar la capacidad de abrir varios archivos a la vez, puede ejecutar un comandobarcontrol. Sin embargo, al ejecutar el control de la barra de comandos, no puede probar si alguien hace clic en Cancelar. Por lo tanto, necesita otra forma de salir del bucle. En la siguiente rutina, puede seleccionar / abrir varios archivos, pero también debe responder a un cuadro de diálogo para salir del bucle que muestra el cuadro de diálogo.

Sub GetNewFiles()

Dim Response     Do While Response <> vbNo         CommandBars("Standard").Controls("&Open...").Execute         Response = MsgBox(Prompt:="Open another file?", Buttons:=vbYesNo)

Loop End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (1869) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Modifying_Behavior_of_the_Open_Dialog_Box [Modificar el comportamiento del cuadro de diálogo abierto].