¿Cómo usar vba para copiar y pegar tablas en Word? Después de copiar y pegar estas dos oraciones, se fusionarán automáticamente.

Sub-insert table()

Ajustar SS en una cadena

Establecer wdoc como una nueva palabra. Aplicación

Atenuar la ruta actual, exportar el nombre del archivo de ruta.

Dimensiones Str1, Str2, Str3

Dim tarr(1 a 100, 1 a 3)

Mostrar nombre de ruta de archivo como cadena

Ruta actual = Este libro de trabajo. Xiaolu

La última fila de números = número de hojas ("tabla numérica"). rango ("B30"). Fin (xlArriba). Fila.

Sentencia = 0

Nombre del archivo de exportación = "Reportar trabajo.doc"

Nombre de la ruta del archivo = ruta actual. t file

Si Dir (nombre de ruta de archivo) = ", entonces

El archivo no existe.

Copia del archivo ruta actual &; " \ " & ampSfile, ruta actual y " \ " y archivo ampt

Terminará si

se selecciona la hoja de trabajo ("tabla de números")

Para i = KShh. el último número de fila

Tarr(I-KSHH+1,1) = hoja de trabajo("tabla de números")

Tarr(i-KShh +1,2) = hoja de trabajo). ("NumberTable"). celdas(i,2)

Tarr(i-KShh+1,3) = hoja de trabajo("NumberTable I, 3)

Siguiente I".

J = i-KShh 'Registra la cantidad de texto que se reemplazará

Exportar archivo de ruta& = ruta actual&. " \ " &t archivo

"Abrir un documento de Word con wdoc"

Abrir nombre de archivo de ruta de exportación

. >

Termina con...

Para i = 1 a j

Str1 = tarr(i, 1)

Str2 = tarr(i, 2)

Str3 = tarr(i, 3)

Seleccionar

CutCopyMode = False

Copiar.

Usar wdoc

Unidad HomeKey:=wdStory 'Cursor al principio del archivo.

si .selección .find .ejecute(str 1) entonces 'Busca la cadena especificada

Text = " " 'Reemplaza la cadena

. .pasteexceltable false, false 'y pégalo como una tabla

.Selection.Whole Story

.Selection.Font.Size = 12

With DefaultBorderLineStyle =. wdLineStyleSingle

. p>

. DefaultBorderLineWidth = ancho de línea 050 pt

. DefaultBorderColor = wdColorAutomatic

Terminó con...

.Selección.Tablas(1). PreferredWidthType = 3

Selección.Tablas(1). Ancho preferido =. Centímetros(15)

Terminará si...

wdoc. document.save

wdoc.

Renunciar

Establecer wdoc = Ninguno

Terminar con...

Siguiente I

Cierro el documento WORD después de guardar con wdoc ' .

wdoc. document.save

wdoc. Descartar

Establecer wdoc=None

Finalizar con

Hoja de trabajo ("Inicio"). Seleccione

Conector final