Macros no word

Anônima

Eu já criei algumas macros no word, porém não sei quais métodos ou propriedades usar para que as ações aconteçam a partir da seleção simples e prévia de um intervalo de texto. Quando eu gravo as macros, as substituições acontecem no documento inteiro e não apenas na seleção que eu fiz. Sei que as ações com o mouse não são gravadas, por isso não consigo saber quais comandos usar.

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários

17 respostas

Diane Poremsky MVP 17,651 Pontos de reputação MVP Moderador Voluntário

2022-12-28T17:48:03+00:00

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Você pode usar métodos diferentes, dependendo da circunstância - para os próximos loops é uma maneira.
Esta resposta foi útil?

0 comentários Sem comentários

Anônima

Não consegui desenvolver bem o que me mostrou sobre Funções e sobre o método Range... Mas queria fazer outra pergunta: como faço para repetir um conjunto de ações sem precisar repetir o código inteiro:

Selection.Find.ClearFormatting 

Selection.Find.Replacement.ClearFormatting 

With Selection.Find 

    .Text = "[\(0-9-]{1;5}\/[\)^^0-9-]{1;10}" 

    .Replacement.Text = "" 

    .Forward = True 

    .Wrap = wdFindContinue 

    .Format = False 

    .MatchCase = False 

    .MatchWholeWord = False 

    .MatchAllWordForms = False 

    .MatchSoundsLike = False 

    .MatchWildcards = True 

End With 

Selection.Find.Execute 

    Selection.Font.Size = 26 

    Selection.OMaths.Add Range:=Selection.Range 

    Selection.OMaths(1).ParentOMath.Type = wdOMathInline 

    Selection.Find.ClearFormatting 

    Selection.Find.Replacement.ClearFormatting 

    With Selection.Find 

        .Text = "[\(0-9-]{1;5}\/[\)^^0-9-]{1;10}" 

        .Replacement.Text = "" 

        .Forward = True 

        .Wrap = wdFindContinue 

        .Format = False 

        .MatchCase = False 

        .MatchWholeWord = False 

        .MatchAllWordForms = False 

        .MatchSoundsLike = False 

        .MatchWildcards = True 

    End With 

    Selection.Find.Execute

0 comentários