Microsoft Word tem uma linguagem de script poderosa chamada Visual Basic, que você pode usar para automatizar qualquer tarefa no Word. Você pode criar scripts do Visual Basic , chamados de macros, gravando -os ou inserindo -os manualmente no IDE do Visual Basic ( ambiente de desenvolvimento integrado) de Word.One das tarefas mais comuns que os usuários do Word precisa fazer é localizar e substituir texto . Embora a funcionalidade existente do Word para localizar e substituir é fácil de usar , o Visual Basic pode torná-lo ainda mais fácil. Digite e execute o seguinte macro para aprender a localizar e substituir com o Visual Basic. Criar o Programa
Você vai criar um pequeno programa , inserindo -o diretamente no IDE do Visual Basic. Mas primeiro você precisa de um documento de amostra para testar o programa com . Dentro do Word , abra um novo documento e salvá-lo com o nome de " vbReplace.doc ". Copie um monte de texto de outro documento e colá-lo em vbReplace.doc .
Pressione Alt- F11 para entrar no IDE Visual Basic e expandir a subárvore Projeto vbReplace no painel Projeto. Expanda o Microsoft Word objetos pasta e clique duas vezes no ícone ThisDocument . Visual Basic coloca o cursor na janela de entrada de código. Digite o seguinte código na janela.
Public Sub mac () Dim myRange Como Faixa
' fazê-lo com corrente paragraphSet myRange = Selection.Paragraphs (1). Faixa
Com myRange.FindClearFormatting.Font.Bold = False.Format = True.Replacement.ClearFormatting.Replacement.Font.Bold = True.Execute Forward: = True , Replace : = wdReplaceAll , _FindText : = " o " , ReplaceWith : = " o " , MatchWholeWord : = TrueEnd comend Sub
Executar o programa
Agora que o programa é feito, é hora de testá-lo. Retornar para o documento do Word , pressionando Alt- F11 e coloque o cursor em qualquer parágrafo típico , especialmente um que tem muitas ocorrências da palavra " o ". Execute o macro pressionando alt -F8 para chegar à lista de macros , a seleção "mac " da lista e pressionando Executar. Se houvesse quaisquer instâncias em negrito - un de A no parágrafo onde o cursor estiver posicionado , eles agora estão todos em negrito.
Modificar o Programa
Tendo uma macro para fazer um único tipo de localizar e substituir tem alguma utilidade , mas ser capaz de se adaptar facilmente a macro para cobrir diferentes tipos de substituir operações é um impulsionador da produtividade real. Digite novamente a IDE do Visual Basic ( alt - F11) e navegar de volta para o código que você digitou , usando o painel de Projeto , conforme descrito anteriormente .
Altere o sub Mac de modo que ele se transforma alguns dos " As" palavras você em negrito em itálico "la" s . Desta vez , você vai restringir a operação de substituição de trabalhar apenas em uma frase. Aqui são as únicas linhas que você precisa mudar : .
Set myrange = Selection.Paragraphs (1 ) Faixa de Ajuste fica myRange = Selection.Sentences (1) Font.Bold = False se torna Font.Bold = true . . . Replacement.Font.Bold = True torna-se Replacement.Font.italic = True.ReplaceWith : . = " o " torna-se ReplaceWith : = "la"
Execute o programa revisto
Agora você vai testar o programa da mesma forma que você testou a versão original. Retornar para o documento do Word e colocar o cursor dentro de uma frase com alguns casos ousadas de " A ". Execute o seu macro revista usando as etapas que você usou para executar a versão original. Assista ao bold " o" s se transformar em "la" s . Observe também que a frase atual foi afetada , em vez de todo o parágrafo .
