visual basic and "OR" command

Sub ReplaceTypos()

Dim typos As Variant
typos = Array("taic", "taihi", "tachi")

    For Each typo In typos

        Selection.Replace What:=typo, Replacement:="taichi", _
              LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _
              SearchFormat:=False, ReplaceFormat:=False

    Next typo

End Sub

Haytham Amairah
Silver Contributor
Nov 03, 2018
Hi Juan,

You should declare the second group of typos in a different name, and both of them must be declared as Variant, not as String.
I've been declared it as String in the previous reply but I quickly updated it.

Sub ReplaceTypos2()

Dim typos1 As Variant
typos1 = Array("shark", "sharv", "sartv", "satv")

    For Each typo In typos1

        Selection.Replace What:=typo, Replacement:="sarv", _
              LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
              SearchFormat:=False, ReplaceFormat:=False

    Next typo

Dim typos2 As Variant
typos2 = Array("marsh", "mars", "marchan", "marshal", "marshall", "mashan", "mershan")

    For Each typo In typos2

        Selection.Replace What:=typo, Replacement:="marisan", _
              LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
              SearchFormat:=False, ReplaceFormat:=False

    Next typo

End Sub

Hope that helps
- juan jimenez
  Iron Contributor
  Nov 03, 2018
  i just had to add "next typo 1, 2, etc" and it worked.
  Thank you very much for your quick and useful help.
  Have a nice weekend!
  - juan jimenez
    Iron Contributor
    Nov 04, 2018
    Dear Haytam,
    Unfortunately what I have tried to develop myself did not work.
    
    It is only recognizes the first word. Can you help?
    
    Dim typos1 As Variant
    typos = Array("pipí", "bibi", "pi pi")
    For Each typo1 In typos
    Selection.Replace What:=typo, Replacement:="pipi", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Next typo1
    Dim typos2 As Variant
    typos = Array("shark", "sharv", "sartv", "satv")
    For Each typo2 In typos
    Selection.Replace What:=typo, Replacement:="sarv", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Next typo
    Dim typos3 As Variant
    typos = Array("marsan", "marchan", "marshal", "marshall", "mashan", "mershan")
    For Each typo3 In typos
    Selection.Replace What:=typo, Replacement:="marshan", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Next typo3
    Dim typos4 As Variant
    typos = Array("findu", "facebook")
    For Each typo4 In typos
    Selection.Replace What:=typo, Replacement:="fidu", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Next typo4

Forum Discussion