Word utiliza macros para implementar esta sencilla operación.
El contenido de la macro son estas ideas
Busca: ctrl H y luego selecciona Posicionamiento a la derecha. Seleccione el formulario a continuación. Esta es una forma básica de crear un bucle. Siempre que se pueda ubicar la tabla, puede insertar una columna (lado izquierdo) en la primera columna a través del menú de la tabla, y dicha inserción solo se puede realizar a través del menú, porque seleccionar ↓ para seleccionar la primera columna no se puede hacer cuando Editar una macro. Usado.
==========
Cuéntame los pasos en detalle
Situa el cursor en la parte superior del archivo, Herramientas → Macro → Grabar macro → Especificar teclas de acceso directo. Utilizo Ctrl L y luego vuelvo a la interfaz de macro de edición de palabras.
Ctrl H, seleccione la posición (G) a la derecha, seleccione la tabla a continuación, a continuación, para ingresar a la primera celda de la primera tabla, haga clic en Tabla → Insertar → en la columna del menú (en la izquierda) y haga clic en la flecha hacia abajo de la flecha direccional para mover el cursor fuera de la tabla. Finalice la grabación de macros.
Ahora ejecute continuamente la tecla de método abreviado de macro, Ctrl L, y se agregará automáticamente una columna cuando mire la tabla.
Al final, se indicó que ya no se podían utilizar macros.
El código de macro detallado es el siguiente: (Para ser honesto, no conozco VB y no puedo entender estos códigos. Sin embargo, siempre que tenga una idea, puedo usar macros de palabras básicas para operarlo, en cuanto al código, es categoría profesional de investigación de personal)
＝＝＝＝＝＝＝＝
Sub Macro4()
. '
' Macro4 Macro
' Macro grabada por Daxia Online el 19-1-2010
<'
Selección.Ir a Qué: =wdGoToTable, Cual:=wdGoToNext, Contar:= 1. Nombre:=""
Selection.Find.ClearFormatting
Selection.Find.ParagraphFormat.TabStops.ClearAll
Con Selection.Find.ParagraphFormat
p>Con .Borders(wdBorderLeft)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
Terminar con
Con .Borders(wdBorderRight)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
Terminar con
Con .Borders(wdBorderTop)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
Terminar con
Con .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth075pt
.Color = wdColorAutomatic
Terminar con
Con .Borders
.DistanceFromTop = 0
.DistanceFromLeft = 0
.DistanceFromBottom = 0
.
DistanceFromRight = 0
.Shadow = False
Terminar con
Terminar con
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.ParagraphFormat.Borders.Shadow = False
Con Selection.Find
.Text = "^g"
.Replacement .Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Terminar con
Selection.InsertColumns
Selection.MoveDown Unidad:=wdLine, Count:=1
Fin Sub