Red de conocimiento informático - Problemas con los teléfonos móviles - Word utiliza macros para implementar esta sencilla operación.

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