Como escrever palavra 2016 macros para alternar elementos de texto

Ao trabalhar com documentos no Word 2016, especialmente os mais longos, você vai querer a facilidade extra e funcionalidade de macros que pode trocar palavras do texto, frases ou elementos ao redor. Para criar macros, você provavelmente precisará do Visual Basic for Applications (VBA) linguagem de programação, que é vasto, complexo e intimidante. Isso significa que ele tem um grande potencial, mas não é algo que você vai sentar-se e aprender em uma tarde casual.

Aqui estão algumas macros de “swap” para ajudar você a começar a personalizar a sua experiência Word.

troca do Word no Word 2016

Aqui está uma macro útil que você provavelmente vai usar o tempo todo. o word_swap macro swaps duas palavras. Corta a primeira palavra e, em seguida, cola-lo após a segunda palavra:

Sub word_swap ()

`

`Macro word_swap

`Troque duas palavras, deixou; direito

`

Selection.MoveRight Unit: = wdWord, Count: = 1, Extend: = wdExtend

Selection.Cut

Selection.MoveRight Unit: = wdWord, Count: = 1

Selection.Paste

End Sub

Estas combinações de teclas foram gravadas para fazer esta macro:

  1. Ctrl + Shift +→ A palavra à direita do cursor é selecionado.
  2. Ctrl + X
    A palavra é cortada.
  3. Ctrl +
    O cursor move-se após a segunda palavra.
  4. Ctrl + V
    A palavra original é colado.

macros do Word não pode registrar cliques do mouse. Quando você precisa selecionar texto, use as teclas do cursor mais a tecla Shift, ou use a tecla F8 (seleção estendida).

Além disso, para esta macro a trabalhar, o ponteiro de inserção deve ser posicionada no início da primeira palavra.

E / ou palavra de swap no Word 2016

Outra troca macro palavra que você provavelmente vai usar freqüentemente o and_or_word_swap macro. Ao contrário de uma troca de palavra regular, o objetivo com este macro é trocar palavras em ambos os lados de um conjunto. Por exemplo, mudando isso ou aquilo para que ou isso.

Tal como acontece com o word_swap macro, esta macro foi gravada a partir da entrada de teclas:

Sub and_or_word_swap ()

`

`Macro and_or_word_swap

`Troque duas palavras em um conjunto

`

Selection.MoveRight Unit: = wdWord, Count: = 1, Extend: = wdExtend

Selection.Cut

Selection.MoveRight Unit: = wdWord, Count: = 1

Selection.Paste

Selection.MoveRight Unit: = wdWord, Count: = 1, Extend: = wdExtend

Selection.Cut

Selection.MoveLeft Unit: = wdWord, Count: = 2

Selection.Paste

End Sub

Aqui estão as teclas utilizadas para gravar esta macro:

  1. Ctrl + Shift +
  2. Ctrl + X
    A primeira palavra é cortada.
  3. Ctrl +
    O ponteiro de inserção lúpulo através da conjugação, e ou ou.
  4. Ctrl + V
    A palavra é colado depois o conjunto.
  5. Ctrl + Shift +
  6. Ctrl + X
    A palavra depois de o conjunto (agora a primeira palavra depois colado no Passo 4) é seleccionada e cortada.
  7. Ctrl +, Ctrl +← O cursor se move de volta para pouco antes da conjunção.
  8. Ctrl + V
    A segunda palavra é colado.


O efeito líquido desses atalhos de teclado é cortar uma palavra de um lado de um e ou ou e em seguida, cole a palavra do outro lado. Em seguida, a segunda palavra é recortado e colado antes do e ou ou.

Por esta macro para ser eficaz, o ponteiro de inserção deve piscar no início da primeira palavra.

frases de swap no Word 2016

Assim como você pode trocar duas palavras em uma fileira, você também pode trocar duas frases. o swap_sentences macro faz exatamente isso. E, como em outras macros de manipulação de texto, use o teclado - não o mouse - para selecionar texto.

Video: How to Add a Yes No Pop-up Message Box to a Macro Before it Runs (Part 4 of 4)

No código a seguir, o Selection.Extend comando representa pressionando a tecla F8 no teclado. Quando você pressiona essa tecla três vezes, uma frase é selecionada.

swap_sentences sub ()

`

`Macro swap_sentences

Video: Import and add macro to Microsoft Word

`Troque duas frases

`

Selection.Extend

Selection.Extend

Selection.Extend

Selection.Cut

Selection.Extend

Selection.Extend

Selection.Extend

Selection.EscapeKey

Selection.MoveRight Unit: = wdCharacter, Count: = 1

Selection.Paste

End Sub

Aqui estão as teclas gravado para criar o swap_sentences macro:

  1. F8, F8, F8
    A frase atual é selecionado.
  2. Ctrl + X
  3. F8, F8, F8
    A frase seguinte é selecionado.
  4. Esc,
    A selecção é cancelado, e o ponteiro de inserção é colocado no início da próxima frase.
  5. Ctrl + V
    A primeira frase é colado depois do segundo período.

Video: How to show developer tab and enable macro in outlook 2016

Quando você executa essa macro, garantir que o ponteiro de inserção é definido em algum lugar dentro da primeira frase.

cabeçalho de swap e texto de rodapé no Word 2016

o swap_header_footer swaps macro texto do cabeçalho do documento e texto de rodapé. Você poderia concluir este processo manualmente, mas o problema é que a macro não registra com precisão todas as ações. Assim, embora você pode gravar as teclas básicas, você deve retornar ao Editor de Visual Basic para completar a macro:

Sub swap_header_footer ()

`

`Macro swap_header_footer

`Header Exchange / texto de rodapé

`

Se ActiveWindow.View.SplitSpecial lt; gt; wdPaneNone Então

ActiveWindow.Panes (2) .Close

Fim se

Se ActiveWindow.ActivePane.View.Type = wdNormalView Ou ActiveWindow. _

ActivePane.View.Type = wdOutlineView Então

ActiveWindow.ActivePane.View.Type = wdPrintView

Fim se

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.WholeStory

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

Unidade Selection.HomeKey: = wdLine

Selection.Paste

Unidade Selection.EndKey: = wdLine, Extend: = wdExtend

Selection.Cut

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

Selection.Paste

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

O efeito global desta macro é editar o cabeçalho do documento, selecionar e cortar tudo o que de texto, e depois mudar para o rodapé. Uma vez no rodapé, o texto do cabeçalho é colado, e depois o texto do rodapé é selecionada e cortada. A macro volta para o cabeçalho e pastas texto do rodapé. Em seguida, a macro fecha o cabeçalho.


Publicações relacionadas