Private Sub Test1()
         
  Dim strFindText As String
  Dim strReplaceText As String
  Dim nSplitItem As Long
   
  Application.ScreenUpdating = False

  ' Enter items to be replaces and new ones.
  strFindText = InputBox("Enter items to be found here,seperated by comma: ", "Items to be found") 
 'b,n,N,O,G,&,+,`,o,A,T,%,[,+,g{ - Find texts
  strReplaceText = InputBox("Enter new items here, seperated by comma: ", "New items")
  'o,b,n,G,g[,U:,g{,+,H,a[,t[,K:,$,G:,* - Replace texts
 
  nSplitItem = UBound(Split(strFindText, ","))

  ' Find each item and replace it with new one respectively.
  For nSplitItem = 0 To nSplitItem
    With Selection
      .HomeKey Unit:=wdStory
      With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = Split(b, n, G, o, a, T, ",")(nSplitItem)
        .Replacement.Text = Split(o, b, n, G, H, ",")(nSplitItem)
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
      End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
Next nSplitItem

  Application.ScreenUpdating = True

End Sub