Microsoft Office 2016 - Como aplicar Macro apenas ao texto selecionado?


0

Criei Macro para substituir vários caracteres ao mesmo tempo. Se eu aplicá-lo a todo o documento e colar outro texto no mesmo documento, aplicar a mesma macro será bom para o texto recém-colado, mas atrapalhará o restante do texto ao qual a macro já foi aplicada.

Eu estava pensando que o problema seria resolvido se a Macro pudesse ser aplicada apenas ao texto selecionado, deixando o restante do documento intocado.

Ajuda alguém?

Atenciosamente, Tom


Você pode mostrar o código fonte da sua macro? A solução pode depender de como você trabalha com o objeto de seleção na macro.
duDE 8/12

Este é o código: textuploader.com/dq37a Obrigado!
Tomislav Lemal

Respostas:


1

Altere .Wrap = wdFindContinue para .Wrap = wdFindStop na sua macro:

' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "ä"
        .Replacement.Text = ChrW(257)
        .Forward = True
        .Wrap = wdFindContinue

Está funcionando apenas quando seleciono o texto. Mas se o texto não for selecionado (mouse cursor a piscar), então ele applys para documento inteiro a partir do ponto onde o cursor do mouse é (nenhum texto selecionado)
Tomislav Lemal

Você não quis dizer "Eu estava pensando que o problema seria resolvido se a Macro pudesse ser aplicada apenas ao texto selecionado"?
duDE 8/12

bem ... ele faria, mas um pouco upgrade seria bom :)
Tomislav Lemal
Ao utilizar nosso site, você reconhece que leu e compreendeu nossa Política de Cookies e nossa Política de Privacidade.
Licensed under cc by-sa 3.0 with attribution required.