Macro para Word 2010

[edcronos]

Onde eu acho um bom tutorial de Macros para Word ?

 

as coisas  que achei são bem limitadas

 

preciso de algo sobre

loop no documento,

comparar trechos,

pegar palavra,

formatar as palavras procuradas

 

e por aí vai

[Patropi]

Bom dia edcronos

 

Não conseguiu ficar longe dos fóruns?

 

Digite no Google -->  Tutorial sobre VBA para Word --> que vai retornar muitas opções para você, como por exemplo:

 

https://msdn.microsoft.com/en-us/library/office/ff604039(v=office.14).aspx

 

[]s

[edcronos]

bom dia @Patropi

 

é, isso de forum é um vicio,

e olha que agora também estou tentando aprender C++

apesar de eu estar mais calmo

 

----------------------------------------------------------
eu procurei, mas só achei coisas limitadas, mesmo esse que você postou eu já tinha visto
 

não sei se depois de mexer com o excel, o word parece bem limitado,

ou melhor, totalmente diferente

 

fiz uma macro aqui para localizar e pintar trechos de texto, como se fosse uma formatação condicional

mas por algum motivo só funcionou 2 vezes, e agora não consigo descobrir o que fiz que fez parar de funcionar

 

para mim servia até o word pad ou outro mais leve, mas tenho que automatizar algumas ações

[edcronos]

não consegui me adaptar,

tem tudo que eu não gosto,

Sub BuscaPinta(ByVal Txtvall, ByVal CorN)  '  corN = wdBrightGreen    Dim Ring As Range    Application.ScreenUpdating = False    With ActiveDocument.Range        With .Find            .ClearFormatting            .Replacement.ClearFormatting            .Text = Txtvall            .Replacement.Text = ""            .Forward = True            .Wrap = wdFindStop            .Format = True            .Execute        End With        Do While .Find.Found            Set Ring = .Duplicate            '.Font.ColorIndex = wdAuto            Options.DefaultHighlightColorIndex = CorN    'wdYellow    '            .HighlightColorIndex = CorN    'wdYellow '            .End = Ring.End + 1            .Collapse wdCollapseEnd            .Find.Execute        Loop    End With    Application.ScreenUpdating = TrueEnd Sub

o write do libre office parece ser mais fácil automatizar

 

eu queria o wordpad, mas pelo que li não tem como fazer uma automatização nele

 

vou acabar usando o excel como editor de texto