Eu tenho que localizar e substituir algumas tags html e também substituir tubos por caracteres de quebra. Preciso substituir o pipe por Chr13 e, em seguida, substituir Chr13 por Chr10 como uma etapa subsequente - abaixo está o VBA que tenho, mas está trazendo um "Erro de compilação: erro de sintaxe. Qualquer pessoa capaz de me informar o problema no código exibido abaixo por favor:
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="—", Replacement:="-", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase: =False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="", Substituição:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What: ="ü", Substituição:="u", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=">", Substituição: ="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:="<", Substituição:="", LookAt:=xlPart , _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.Replace What:=";", Substituição:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase :=Falso, SearchFormat:=Falso, _ ReplaceFormat:=Falso Cells.Replace What:="|", Replacement:="" & Chr(13) & "", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False ReplaceFormat: =Células Falsas.Replace What:="Chr(13)", Substituição:="" & Chr(10) & "", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, SubstituirFormat:=Falso
Responder1
Você está faltando umvírgulaantesSubstituirFormat:=Falso