Macros no WORD

exercícios

Primeiro Exercício

1) Entre no menu Ferramentas e na opção Macro escolha Gravar nova macro...

2) Invente um nome (sem espaços) para sua macro
e clique no botão OK

3) Imediatamente escreva:

O INTER É O MAIOR

(ou outra frase qualquer)

E pressione o botão quadradinho STOP (parar) da janela de Parar gravação (ou vá no Menu Ferramentas e na opção Macro escolha Parar gravação)

4) Agora vá no menu Ferramentas e na opção Macro escolha Macros...

Selecione a sua macro e clique no botão Executar

5) Repita o passo 4 acima quantas vezes desejar!!!

"Macro" é como um gravador que registra tudo o que você fizer... Após gravada, uma "macro" pode ser procurada pelo nome e repetir o que você havia gravado anteriormente quantas vezes quiser...

Segundo Exercício

1) Vá no menu Ferramentas e na opção Macro escolha Macros...
Selecione a sua macro e clique no botão Editar

2) Na janela que abre (Microsoft Visual Basic)
procure o código de sua macro
(parecido com o código ao lado)

Sub MinhaMacro()
'
' MinhaMacro Macro
' Macro gravada 16/4/2008 por Victor M. Sant'Anna
'
    Selection.TypeText Text:= "O INTER É O MAIOR"

End Sub

3) Substitua a linha abaixo
(cuidado para não apagar a linha onde se lê End Sub do original):

Selection.TypeText Text:="O INTER É O MAIOR"

pelo seguinte código:

    Selection.Font.Color = wdColorAutomatic
    Selection.TypeText Text:="O "
    Selection.Font.Color = wdColorRed
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="INTER "
    Selection.Font.Bold = wdToggle
    Selection.Font.Color = wdColorAutomatic
    Selection.TypeText Text:="é o maior "

4) Execute novamente a macro e veja o que acontece

Uma macro ao ser gravada, transforma em comandos tudo o que você fizer... Estes comandos, um por linha, podem ser alterados na janela do VISUAL BASIC se você souber o que eles representam... Por exemplo a linha com o comando

Selection.Font.Color = wdColorRed

é o equivalente a ter "clicado" com o mouse na cor vermelha do Word e fará com que deixe as letras em vermelho de tudo o que for escrito após esse comando

Você pode trocar a linha acima para outras cores, experimente com:

Selection.Font.Color = wdColorPink

Selection.Font.Color = wdColorGreen

Selection.Font.Color = wdColorBlue

Selection.Font.Color = wdColorAutomatic

Selection.Font.Color = wdColorYellow

1) Entre no menu Ferramentas e na opção Macro escolha Gravar nova macro...
2) Invente um nome (sem espaços) para sua macro e clique no botão OK
3) Imediatamente escreva: O INTER É O MAIOR (ou outra frase qualquer) E pressione o botão quadradinho STOP (parar) da janela de Parar gravação (ou vá no Menu Ferramentas e na opção Macro escolha Parar gravação)
4) Agora vá no menu Ferramentas e na opção Macro escolha Macros... Selecione a sua macro e clique no botão Executar
5) Repita o passo 4 acima quantas vezes desejar!!!

1) Vá no menu Ferramentas e na opção Macro escolha Macros... Selecione a sua macro e clique no botão Editar
2) Na janela que abre (Microsoft Visual Basic) procure o código de sua macro (parecido com o código ao lado)	Sub MinhaMacro() ' ' MinhaMacro Macro ' Macro gravada 16/4/2008 por Victor M. Sant'Anna ' Selection.TypeText Text:= "O INTER É O MAIOR" End Sub
3) Substitua a linha abaixo (cuidado para não apagar a linha onde se lê End Sub do original): Selection.TypeText Text:="O INTER É O MAIOR" pelo seguinte código: Selection.Font.Color = wdColorAutomatic Selection.TypeText Text:="O " Selection.Font.Color = wdColorRed Selection.Font.Bold = wdToggle Selection.TypeText Text:="INTER " Selection.Font.Bold = wdToggle Selection.Font.Color = wdColorAutomatic Selection.TypeText Text:="é o maior "
4) Execute novamente a macro e veja o que acontece