miltonmmjr

Fiz uma macro para o Word, mas não sei como implementar esta instrução.

Sub C_Que_lin_unid()

ind = 0

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find

ind = 1 + ind                                               Tem um parte do texto que está assim ".12; " este pode ser de 01 a 50

.Text = "'.'.ind.';"                                                  quero trocar por ".12;^p" isto é sempre que encontrar esta condição

.Replacement.Text = "'.'.ind.';^p'"                        quebrar a linha.

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchByte = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = False

.MatchFuzzy = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

End Sub

O brigado pela resposta. Quero usá-lo para Cad de elétrica e de civil e renderização de filmes e uso do Adobe Premiere Pro 2022 e talvez jogos.

Quero  montar um PC com processador AMD Ryzen 7 5700G