Cómo escribir macros de Word 2016 para intercambiar elementos de texto

  1. Software
  2. Oficina de Microsoft
  3. Palabra
  4. Cómo escribir macros de Word 2016 para intercambiar elementos de texto

Libro Relacionado

Word 2016 Para profesionales Para Explicado

Por Dan Gookin

Cuando trabaje con documentos en Word 2016, especialmente los más largos, querrá la facilidad y FUNCIONALIDAD adicional de las macros que pueden intercambiar palabras, frases o elementos de texto. Para crear macros, probablemente necesitará el lenguaje de programación Visual Basic for Applications (VBA), que es vasto, complejo e intimidante. Eso significa que tiene un gran potencial, pero no es algo que te sentarás y aprenderás en una tarde informal.

Aquí hay algunas macros de «intercambio» para ayudarle a empezar a personalizar su experiencia de Word.

Intercambio de palabras en Word 2016

He aquí una práctica macro que probablemente usará todo el tiempo. La macro word_swap intercambia dos palabras. Corta la primera palabra y la pega después de la segunda:

Sub word_swap()

Macro word_swap

«Intercambia dos palabras, de izquierda a derecha.

Unidad MoveRight:=wdWord, Count:=1, Extend:=wdExtend

Selección.corte

Mover a la derecha Unidad:=wdWord, Contar:=1

Pegar selección

Subwoofer

Estas pulsaciones de teclas se grabaron para crear esta macro:

  1. Ctrl+Mayús+→The palabra a la derecha del cursor está seleccionada.
  2. Ctrl+XLa palabra se corta.
  3. Ctrl+→The el cursor se mueve después de la segunda palabra.
  4. Ctrl+VLa palabra original se pega.

Las macros de Word no pueden registrar los clics del ratón. Cuando necesite seleccionar texto, utilice las teclas de cursor más la tecla Mayúsculas, o utilice la tecla F8 (selección ampliada).

Además, para que esta macro funcione, el puntero de inserción debe estar situado al principio de la primera palabra.

y/o intercambio de palabras en Word 2016

Otra macro de intercambio de palabras que probablemente usará frecuentemente la macro y_o_swap. A diferencia de un intercambio regular de palabras, el objetivo de esta macro es intercambiar palabras a ambos lados de una conjunción. Por ejemplo, cambiar esto o aquello por lo otro.

Al igual que con la macro word_swap, esta macro se grabó a partir de la entrada de pulsaciones de teclas:

Sub and_or_word_swap()

Macro»and_or_word_swap

«Intercambiar dos palabras en una conjunción

Unidad MoveRight:=wdWord, Count:=1, Extend:=wdExtend

Selección.corte

Mover a la derecha Unidad:=wdWord, Contar:=1

Pegar selección

Unidad MoveRight:=wdWord, Count:=1, Extend:=wdExtend

Selección.corte

MoveLeft Unit:=wdWord, Count:=2

Pegar selección

Subwoofer

A continuación se muestran las pulsaciones de teclas utilizadas para grabar esta macro:

  1. Ctrl+Mayús+→
  2. Ctrl+XLa primera palabra se corta.
  3. El puntero de inserción Ctrl+→The salta sobre la conjunción, y/o y/o.
  4. Ctrl+VLa palabra se pega después de la conjunción.
  5. Ctrl+Mayús+→
  6. Ctrl+XLa palabra después de la conjunción (ahora después de la primera palabra que pegó en el Paso 4) es seleccionada y cortada.
  7. Ctrl+←, Ctrl+←The el cursor se mueve hacia atrás justo antes de la conjunción.
  8. Ctrl+VLa segunda palabra se pega.

El efecto neto de estos atajos de teclado es cortar una palabra en un lado de una y/o o y luego pegar la palabra en el otro lado. Luego la segunda palabra es cortada y pegada antes de la y o o.

Para que esta macro sea efectiva, el puntero de inserción debe parpadear al principio de la primera palabra.

Intercambiar frases en Word 2016

Del mismo modo que puede intercambiar dos palabras seguidas, también puede intercambiar dos frases. La macro swap_sentences hace exactamente eso. Y, como en otras macros de manipulación de texto, utilice el teclado, no el ratón, para seleccionar el texto.

En el siguiente código, el comando Selection.Extend representa pulsar la tecla F8 del teclado. Al pulsar esta tecla tres veces, se selecciona una frase.

Sub swap_sentences()

Macro de intercambio de frases

«Intercambiar dos frases

Ampliar selección

Ampliar selección

Ampliar selección

Selección.corte

Ampliar selección

Ampliar selección

Ampliar selección

Tecla de selección Escape

Mover a la derecha Unidad:=wdCaracter, Contar:=1

Pegar selección

Subwoofer

Aquí están las pulsaciones de teclas grabadas para crear la macro swap_sentences:

  1. F8, F8, F8 La frase actual está seleccionada.
  2. Ctrl+X
  3. F8, F8, F8 Se selecciona la siguiente frase.
  4. Esc, →The se cancela la selección y el puntero de inserción se coloca al principio de la siguiente frase.
  5. Ctrl+VLa primera frase se pega después de la segunda frase.

Cuando ejecute esta macroinstrucción, asegúrese de que el puntero de inserción esté situado en algún lugar dentro de la primera frase.

Intercambiar texto de cabecera y pie de página en Word 2016

La macro swap_header_footer intercambia el texto de cabecera y el texto de pie de página del documento. Puede completar este proceso manualmente, pero el problema es que la macro no registra con precisión todas las acciones. Por lo tanto, aunque puede grabar las pulsaciones de teclas básicas, debe volver al Editor de Visual Basic para completar la macro:

Sub swap_header_footer()

Macro»swap_header_footer

Intercambiar texto de cabecera/pie de página

Si ActiveWindow.View.SplitSpecial wdPaneNone entonces

ActiveWindow.Panes(2).Close

Finalizar si

Si ActiveWindow.ActivePane.View.Type = wdNormalView o ActiveWindow. _

ActivePane.View.Type = wdOutlineView Then

ActiveWindow.ActivePane.View.Type = wdPrintView

Finalizar si

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selección Historia Completa

Selección.corte

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Selection.HomeKey Unit:=wdLine

Pegar selección

Unidad de llave final:=wdLine, Extend:=wdExtend

Selección.corte

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Pegar selección

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Subwoofer

El efecto general de esta macro es editar el encabezado del documento, seleccionar y cortar todo ese texto, y luego cambiar al pie de página. Una vez en el pie de página, se pega el texto del encabezado y, a continuación, se selecciona y corta el texto del pie de página. La macro cambia de nuevo a la cabecera y pega el texto del pie de página. Luego la macro cierra el encabezado.

ADD YOUR COMMENT