Comment écrire des macros Word 2016 pour échanger des éléments de texte - des mannequins

Lorsque vous travaillez avec des documents dans Word 2016, en particulier ceux qui sont plus longs, vous aurez besoin de la facilité et de la fonctionnalité des macros qui peuvent échanger des mots, des phrases ou éléments autour. Pour créer des macros, vous aurez probablement besoin du langage de programmation Visual Basic pour Applications (VBA), qui est vaste, complexe et intimidant. Cela signifie qu'il a un grand potentiel, mais ce n'est pas quelque chose que vous allez vous asseoir et apprendre dans un après-midi décontracté.

Voici quelques macros de "permutation" pour vous aider à personnaliser votre expérience Word.

Échange de mots dans Word 2016

Voici une macro pratique que vous utiliserez probablement tout le temps. La macro word_swap permute deux mots. Il coupe le premier mot et le colle après le deuxième mot:

Sous word_swap ()

'

' word_swap Macro

'Permuter deux mots, gauche-droite

'

Sélection. Unité MoveRight: = wdWord, Count: = 1, Extend: = wdExtend

Sélection. Couper

Sélection. Unité MoveRight: = wdWord, Count: = 1

Sélection. Coller

Fin Sub

Ces frappes ont été enregistrées pour créer cette macro:

Ctrl + Maj + →Le mot à la droite du curseur est sélectionné.
Ctrl + X Le mot est coupé.
Ctrl + →

Le curseur se déplace après le deuxième mot.
Ctrl + V Le mot d'origine est collé.

Les macros Word ne peuvent pas enregistrer les clics de souris. Lorsque vous devez sélectionner du texte, utilisez les touches fléchées plus la touche Maj ou utilisez la touche F8 (sélection étendue).

Aussi, pour que cette macro fonctionne, le pointeur d'insertion doit être positionné au début du premier mot.

Et / ou échange de mots dans Word 2016

Autre macro de permutation de mots que vous utiliserez probablement fréquemment la macro and_or_word_swap. Contrairement à un échange de mots régulier, le but de cette macro est d'échanger des mots de chaque côté d'une conjonction. Par exemple, changer ceci ou cela en cela ou cela.

Comme pour la macro word_swap, cette macro a été enregistrée depuis l'entrée de frappe:

Sub et_or_word_swap ()

'

' et_ou_word_swap Macro

'Permuter deux mots dans une conjonction

'

Sélection. Unité MoveRight: = wdWord, Count: = 1, Extend: = wdExtend

Sélection. Couper

Sélection. Unité MoveRight: = wdWord, Count: = 1

Sélection. Coller

Sélection. Unité MoveRight: = wdWord, Count: = 1, Extend: = wdExtend

Sélection. Couper

Sélection. Unité MoveLeft: = wdWord, Count: = 2

Sélection. Coller

End Sub

Voici les séquences de touches utilisées pour enregistrer cette macro:

Ctrl + Shift + →
Ctrl + X Le premier mot est coupé.
Ctrl + →

Le pointeur d'insertion saute sur la conjonction, et ou ou.
Ctrl + V Le mot est collé après la conjonction.
Ctrl + Maj + →
Ctrl + X Le mot après la conjonction (maintenant après le premier mot que vous avez collé à l'étape 4) est sélectionné et coupé.
Ctrl + ← , Ctrl + ←Le curseur revient juste avant la conjonction.
Ctrl + V Le deuxième mot est collé.

L'effet net de ces raccourcis clavier est de couper un mot d'un côté de et ou de ou de, puis de coller le mot de l'autre côté. Ensuite, le deuxième mot est coupé et collé avant les et ou ou.

Pour que cette macro soit efficace, le pointeur d'insertion doit clignoter au début du premier mot.

Permuter des phrases dans Word 2016

Tout comme vous pouvez échanger deux mots d'affilée, vous pouvez également échanger deux phrases. La macro swap_sentences ne fait que cela. Et, comme dans les autres macros de manipulation de texte, utilisez le clavier - et non la souris - pour sélectionner du texte.

Dans le code suivant, la sélection. La commande Extend représente l'appui sur la touche F8 du clavier. Lorsque vous appuyez trois fois sur cette touche, une phrase est sélectionnée.

Sous swap_sentences ()

'

' swap_sentences Macro

'Permuter deux phrases

'

Sélection. Étendre la

sélection. Étendre la

sélection. Couper

Sélection. Étendre la

sélection. Étendre la

sélection. EscapeKey

Sélection. Unité MoveRight: = wdCharacter, Count: = 1

Sélection. Coller

Fin Sub

Voici les séquences de touches enregistrées pour créer la macro swap_sentences:

F8, F8, F8 La phrase en cours est sélectionnée.
Ctrl + X
F8, F8, F8 La phrase suivante est sélectionnée.
Esc, →

La sélection est annulée et le pointeur d'insertion est placé au début de la phrase suivante.
Ctrl + V La première phrase est collée après la deuxième phrase.

Lorsque vous exécutez cette macro, assurez-vous que le pointeur d'insertion est défini quelque part dans la première phrase.

Échange du texte d'en-tête et de pied de page dans Word 2016

La macro swap_header_footer permute le texte d'en-tête et le pied de page du document. Vous pouvez terminer ce processus manuellement, mais le problème est que la macro n'enregistre pas correctement toutes les actions. Ainsi, bien que vous puissiez enregistrer les séquences de touches de base, vous devez retourner à Visual Basic Editor pour terminer la macro:

Sous swap_header_footer ()

'

' swap_header_footer Macro

'En-tête / pied de page < '

Si ActiveWindow. Vue. SplitSpecial wdPaneNone Then

ActiveWindow. Volets (2). Fermer

Fin Si

Si ActiveWindow. ActivePane Vue. Type = wdNormalView ou ActiveWindow. _

ActivePane. Vue. Type = wdOutlineView Then

ActiveWindow. ActivePane Vue. Type = wdPrintView

Fin Si

ActiveWindow. ActivePane Vue. SeekView = wdSeekCurrentPageHeader

Sélection. WholeStory

Sélection. Couper

ActiveWindow. ActivePane Vue. SeekView = wdSeekCurrentPageFooter

Sélection.HomeKey Unité: = wdLine

Sélection. Coller

Sélection. Unité EndKey: = wdLine, Extend: = wdExtend

Sélection. Couper

ActiveWindow. ActivePane Vue. SeekView = wdSeekCurrentPageHeader

Sélection. Coller

ActiveWindow. ActivePane Vue. SeekView = wdSeekMainDocument

End Sub

L'effet global de cette macro est de modifier l'en-tête du document, de sélectionner et de couper tout ce texte, puis de passer au pied de page. Une fois dans le pied de page, le texte de l'en-tête est collé, puis le texte du pied de page est sélectionné et coupé. La macro revient à l'en-tête et colle le texte du pied de page. Ensuite, la macro ferme l'en-tête.