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  

VEJA SE É ISSO
 
não testei completamente , para falar a verdade nem sei se entendi
Sub Baixa2()    Application.ScreenUpdating = False    With Sheets("Registro")    c = Cells(1, "J").Column    lf = .Cells(Rows.Count, c).End(xlUp).Row    l2 = Sheets("Pagos").Cells(Rows.Count, "b").End(xlUp).Row + 1    For L = lf To 3 Step -1        If .Cells(L, c).Value2 = "PAGO" Then            Sheets("Pagos").Range("B" & l2, "i" & l2).Value2 = .Range("B" & L, "i" & L).Value2           .Rows(L).EntireRow.Delete            l2 = l2 + 1        End If    Next    End With   MsgBox "Baixa de Pagamentos Realizada Com Sucesso", vbOKOnly, "Atenção"    Application.ScreenUpdating = True    'ActiveWorkbook.SaveEnd Sub

não é para colocar * no historico eu fiz isso na macro
e o nome da macro tem que está igual
aqui rodou

como teste coloque a aba1 como Fornecedores e cole os nomes de fornecedores na cola A essa que você colocou como exemplo
a aba 2 como HISTORICO DE RECEBIMENTO e cole o historico na coluna A

ou troque os nomes da abas na macro
pLf = "Fornecedores"
pLh = "HISTORICO DE RECEBIMENTO"
 
 
 
exemplo.rar

já tentou outras ide?
 
 
http://falconcpp.sourceforge.net/
https://www.facebook.com/falconcpp

https://netbeans.org/
http://www.codeblocks.org/
 
eu tive alguns problemas com o dev
o falcon ficou na medida para mim que sou iniciante

bem
acho que defini uma sintaxe apropriada para o que eu quero
@E(!Despesas,1,2,3,@Ou(#Data,%Semana,1,2,3),@Ou(%Dia,1,4,12,31))@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)) fiz uma função para separar as partes da formula 1º pela chave @ e depois por (***)
Public Function Contfor(ByVal TextoX As String, Optional ByVal OcorrenciaX As Long) As String Dim pos As Long, Ax As Long, ltx As Long, ax2 As Long lent1 = Len(TextoX) For Ax = 1 To lent1 lety = Mid(TextoX, Ax, 1) If lety = "@" Then pos = pos + 1 If pos = OcorrenciaX Then nucle = 0: ax2 = Ax dd = 0 GoTo tex: End If Next Contfor = "Erro" Exit Functiontex: For Ax = ax2 To lent1 lety = Mid(TextoX, Ax, 1) If lety = "(" Then nucle = nucle + 1: dd = 1 If lety = ")" Then nucle = nucle - 1 If nucle = 0 And dd = 1 Then Contfor = Mid(TextoX, ax2, Ax - ax2 + 1) Exit Function End If Next End Function MsgBox Contfor(@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)), 2)=@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)) MsgBox Contfor(@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)), 3)=@E(nada,tudo) MsgBox Contfor(@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)), 4)=@Ou(%Dia,1,4,12,31) ainda preciso ajeitar alguns pontos importantes como as sub formulas que fazem parte das internas ou externas
mas daqui para frente creio ser mais fácil