201
General Software Discussion / Re: Multiple Find and replace in a word file
« Last post by 4wd on January 27, 2021, 05:33 PM »Code: Visual Basic [Select]
- Sub FindAndReplaceMultiItems()
- 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 | (vertical bar): ", "Items to be found")
- strReplaceText = InputBox("Enter new items here, seperated by | (vertical bar): ", "New items")
- 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(strFindText, "|")(nSplitItem)
- .Replacement.Text = Split(strReplaceText, "|")(nSplitItem)
- .Format = False
- .MatchWholeWord = False
- End With
- Selection.Find.Execute Replace:=wdReplaceAll
- End With
- Next nSplitItem
- Application.ScreenUpdating = True
- End Sub
Try that, it uses | instead. (Not tested since I'm on a tablet.)

Recent Posts
), you get 400Mbps on the computer, 800+Mbps on your phone (via WiFi) through the same router, modem, and ISP.

I've had several free movie/TV apps on the tablet, nice to have things available in one spot.
