Programación integral de word y excel vba

Programe en Excel y use la siguiente instrucción para abrir el documento de Word

Dim Wrd

Set Wrd = CreateObject("Word.Application")

Wrd.documents.Open Filename:=DOCFile, ReadOnly:=True 'Abre el documento de Word en modo de solo lectura

Wrd.Visible = True 'Hazlo visible (cuando se abre en modo de lectura) solo estado, es invisible de forma predeterminada)

Puede acceder a datos tabulares en un documento de Word a través de declaraciones similares a las siguientes (nota: los dos últimos caracteres (retorno de carro y carácter de tabla) se eliminan de la información devuelta data)

Wrd .documents(DOCFile).Tables(4).Cell(9, 3).Range.Text 'El texto de la fila 9 y la columna 3 de la cuarta tabla del documento de Word.

En cuanto al texto, debe copiar y pegar datos configurando un conjunto de selección (Selección, puede encontrar el tema y luego cambiar el tamaño del área de selección (método Contraer)) (consulte la ayuda de VB de Word )

Después de obtener los datos en el documento de Word, simplemente asigne valores a las celdas correspondientes en el documento de Excel.

El trabajo de compilación real es relativamente grande, no más de unos pocos miles de cuestionarios, ¡así que hagámoslo a mano! (Se estima que los principiantes tardarán de 3 a 5 días en completar este procedimiento)

Para obtener más detalles, comuníquese con: 591zheteng@sina.com