Tengo una función de buscar y reemplazar para algunas etiquetas html y también reemplazar las tuberías con caracteres de interrupción. Necesito reemplazar la tubería con Chr13 y luego reemplazar Chr13 con Chr10 como paso posterior. A continuación se muestra el VBA que tengo, pero aparece un "Error de compilación: Error de sintaxis. Cualquiera que pueda informarme del problema a partir del código que se muestra a continuación por favor:
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReemplazarFormat:=False Selection.Replace What:="—", Reemplazo:="-", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase: =False, SearchFormat:=False, _ ReemplazarFormat:=False Selection.Replace What:="", Reemplazo:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReemplazarFormat:=Selección falsa.Reemplazar qué:="", Reemplazo:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReemplazarFormat:=Selección falsa.Reemplazar qué: ="ü", Reemplazo:="u", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReemplazoFormat:=False Selection.Replace What:=">", Reemplazo: ="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReemplazarFormat:=False Selection.Replace What:="<", Reemplazo:="", LookAt:=xlPart , _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReemplazarFormat:=False Selection.Replace What:=";", Reemplazo:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase :=Falso, Formato de búsqueda:=Falso, _ ReemplazarFormato:=Falso Cells.Replace What:="|", Reemplazo:="" & Chr(13) & "", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReemplazarFormato:=False ReemplazarFormato: =Celdas falsas.Reemplazar qué:="Chr(13)", Reemplazo:="" & Chr(10) & "", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, Reemplazar formato: = falso
Respuesta1
te falta uncomaantesReemplazar formato: = falso