Cómo agregar o eliminar por lotes múltiples entradas de autotexto en su palabra

En este post, nos complace mostrarle la forma de agregar o eliminar por lotes múltiples entradas de Autotexto en su Word.

Para los textos que usa con frecuencia, puede usar agregarlos a la galería de Autotexto. Así que la próxima vez no necesitará volver a escribir manualmente todos estos textos. En cambio, puede encontrar el tarobtenga la entrada de texto y haga clic en él. Y los insertará en la posición donde permanece el cursor.

Ahora, como sugiere nuestro tema, queremos mostrarle el método para agregar o eliminar por lotes múltiples entradas de Autotexto para ahorrar su valioso tiempo.

Agregar por lotes varias entradas de autotexto

1. En primer lugar, debe crear una tabla de 2 columnas. Ponga el nombre de la entrada de Autotexto en la primera columna. Y coloque el contenido de la entrada en la segunda columna. Aquí está la demostración:
2. A continuación, abra el editor de VBA presionando "Alt + F11".
3. Luego haga clic en el proyecto "Normal".
4. A continuación, haga clic en la pestaña "Insertar" en la barra de menú y seleccione "Módulo".
5. Ahora haga doble clic en el nuevo módulo para abrirlo.
6. Pegue los siguientes códigos:

Sub BatchAddAutoTextEntries () Dim objTable As Table Dim objEntry As Cell Dim objEntryRange As Range Dim objEntryNameRange As Range Dim nRowNumber As Integer Set objTable = ActiveDocument.Tables (1) nRowNumber = 1 para cada objEntry en objTablej.ColumnsName (2). = objTable.Cell (nRowNumber, 1) .Range objEntryNameRange.MoveEnd Unidad: = wdCharacter, Count: = - 1 Establecer objEntryRange = objEntry.Range objEntryRange.MoveEnd Unidad: = wdCharacter.S, Count: = - 1 objEntryRange. Agregar nombre: = objEntryNameRange.Text, _ Range: = Selection.Range nRowNumber = nRowNumber + 1 Siguiente objEntry MsgBox "Todas las entradas de la tabla se agregan a la galería". End Sub

7. Finalmente, haga clic en "Ejecutar" o presione "F5".

Cuando termine, recibirá un cuadro de mensaje como el siguiente:

No podrá ver las entradas agregadas en el actual y todos los documentos abiertos. Para ver el efecto, debe abrir un nuevo documento. Luego, puede verificar el resultado haciendo clic en "Partes rápidas" en la pestaña "Insertar". A continuación, elija "Autotexto" y verá que todas las entradas de la tabla se agregan a la galería.

Eliminar por lotes varias entradas de texto automático

En el siguiente contenido le mostraremos la forma de eliminar por lotes múltiples entradas de Autotexto.

1. En primer lugar, cree una tabla de una columna. Y ponga cada nombre de entrada en una celda.
2. Luego repita desde el paso 2 al 7 anterior. Pero recuerde reemplazar la macro con esta:

Sub BatchDeleteAutoTextEntries () Dim objTable As Table Dim objEntry As Cell Dim objEntryNameRange As Range Dim objEntryRange As Range Dim nRowNumber As Integer Set objTable = ActiveDocument.Tables (1) nRowNumber = 1 para cada objEntry en objTablej.ColumnsName (1). = objTable.Cell (nRowNumber, 1) .Range objEntryNameRange.MoveEnd Unidad: = wdCharacter, Count: = - 1 En caso de error Reanudar Siguiente NormalTemplate.AutoTextEntries.Item (objEntryNameRange.Text) .Delete nRowNumber = nRowNumber "+ 1s NextgNumber" las entradas de la tabla se eliminan de la galería. " End Sub

Del mismo modo, entra en vigor en los nuevos documentos abiertos posteriormente.

Manténgase fresco cuando se produzca una pérdida de datos

A medida que aumenta el uso de computadoras, la pérdida de datos también aumenta cada año. La pérdida de datos puede dejar su carrera en peligro. Es una experiencia tan frustrante que uno nunca querrá volver a encontrarse. Entonces aquí viene la importancia de doc arreglar. Siempre debe tener una herramienta de reparación con anticipación.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo Recuperación de Excel y pdf reparar productos de software. Para más información visite www.datanumen.com