1
Utilice el Explorador de Windows para copiar un archivo de Word que contiene al menos una tabla en la carpeta "C : \\". Cambie el nombre del archivo como " table.docx . " Vas a escribir un programa de introducción que leerá una celda de la tabla de este archivo.
2 Haga clic en la pestaña de " desarrolladores" , a continuación, haga clic en el botón de "Visual Basic " para entrar en el entorno de programación Visual Basic . Pega el siguiente programa en la ventana de código VB . Este programa crea un enlace a la Palabra , que permite sobresalir utilizar objetos virtuales de Word como si el programa se ejecuta dentro de un documento de Word . Este proceso se denomina " Automatización ".
Public Sub LoadWordTablebak ()
pgmWord As Word.Application
Set pgmWord = CreateObject ( " Word.Application ")
pgmWord.Documents.Open . ("c : \\ table.docx ")
MsgBox pgmWord.ActiveDocument.Tables ( 1 ) celular ( 1 , 1) spanish
pgmWord.ActiveDocument . Close to
pgmWord.Quit
End Sub
3 Haga clic en el menú " Herramientas" , haga clic en el comando " Referencias". Desplácese por la ventana que aparece para localizar el elemento " Microsoft Word " , haga clic en la casilla de verificación de ese elemento . Esta acción permite que Excel acceder a los objetos visuales en un documento de Word .
4
clic cualquier declaración en el programa, a continuación, haga clic en el comando " Ejecutar" del menú " Ejecutar" . El programa mostrará un cuadro de mensaje que muestra el contenido de una celda de la tabla en un documento de Word. Ahora vamos a ampliar el programa para cargar en una tabla completa de cualquier documento de Word.
5
Pega el siguiente programa revisado por debajo de la "End Sub" declaración del programa original. Este programa pide al usuario el nombre de archivo de un documento de Word. El usuario deberá introducir el número de una tabla en el documento. El programa utiliza el método de automatización del primer programa para cargar copiar la celda de la tabla especificada por celda en una hoja de cálculo Excel.
Public Sub LoadWordTable2 ()
DocNombre As
secuencia
TableID Dim As Integer Dim
c , r, startRow As Integer Dim
curcell
pgmWord As Word.Application
Set curcell = ActiveCell
Set pgmWord = CreateObject ( " Word.Application " )
DocNombre = InputBox ("Escriba el nombre del documento Word " )
DocNombre = InputBox ("Escriba el nombre del documento Word ")
While ( DocNombre < > "" )
TableID = InputBox ( " Introduzca el número de la mesa" )
pgmWord.Documents.Open ("c : \\ table . docx " )
pgmWord.ActiveDocument.Tables ( TableID )
startRow = ActiveCell.Row
Para c = 1 To. Columns.Count
para r = 1 To. Rows.Count
curCell.Value = . celular (r, c )
' Mover a la siguiente fila
Establecer curcell curCell.Offset = ( 1 , 0 )
Siguiente r
'Mover a la columna siguiente
Set curcell = Cells ( startRow , curCell.Column + 1) spanish
Siguiente c
extremo con
pgmWord.ActiveDocument.Close
DocNombre = InputBox ("Escriba el nombre del documento Word " )
Wend
pgmWord . Salir
End Sub
6
Haga clic en el icono de la aplicación "Excel" en la barra de tareas de Windows para volver a Excel , a continuación, haga clic en el botón " Macros " de la pestaña " Developer " . Haga doble clic en la macro " LoadWordTable " para ejecutar esa macro .
7
Escriba el nombre de un documento de Word que contiene una tabla cuando el sistema para hacerlo parecer . Escriba el número de la tabla que desea que el mensaje para que el cuadro parece . Por ejemplo , si desea que la segunda tabla en el documento , " 2 ". Tipo Excel se carga la tabla en la hoja de cálculo actual.
8
Continuar cargar tablas de Word con el programa según sea necesario. Pulse el botón " Enter" en el " nombre del documento " pronto para terminar el programa .