MS Word Search for Multiple Words

[orange13]

Hi,

The script I have currently searches for two words but I would like it to search for five words.

The other three words I would like to search are "Audio-^#^#^#^#^#", "Photo-^#^#^#^#^#" and "Video-^#^#^#^#^#"

The script below will find two words and works but how can I amend it other than running it two more times to include the additional 3 search terms?

Sub FindSourceDocs1()
Dim FoundResult As Boolean
Dim pageserial, SearchSeq, SearchSingle As String
Dim PgColour As WdColor
Dim CurrentDoc As String
Dim FndText As String
Application.ScreenUpdating = False


CurrentDoc = ActiveDocument.Name


FoundResult = True


SearchSeq = "Doc-^#^#^#^#^#"
SearchSingle = "Task-^#^#^#^#^#"


PgColour = wdColorRed 'RED




Do Until FoundResult = False


        Selection.Find.ClearFormatting
       
        Selection.Find.Font.Color = PgColour
        
        Selection.Find.Text = SearchSeq
        Selection.Find.Wrap = wdFindContinue
        
        If Selection.Find.Execute = True Then
            pageserial = LTrim(Selection)
            Documents("SourceDoc.docx").Activate
            Selection.HomeKey Unit:=wdStory
            
            Selection.Find.ClearFormatting
                        
            Selection.Find.Text = pageserial


            If Selection.Find.Execute = True Then
            
                Selection.Rows(1).Select
                Selection.Copy
               
             
                Documents(CurrentDoc).Activate
                
            Selection.Find.Text = pageserial
            
                       
            With Selection.Find
                Selection.Paste
                
               End With
               
            Else
                Selection.HomeKey Unit:=wdStory
                Windows(CurrentDoc).Activate


                If PgColour = wdColorGreen Then Selection.Font.Color = wdColorRed Else: Selection.Font.Color = wdColorGreen
            End If
        Else
            If FoundResult = True And SearchSeq = "Doc-^#^#^#^#^#" Then
                SearchSeq = SearchSingle
                FoundResult = True
            Else
                FoundResult = False
               
            End If
        End If
    Loop
Application.ScreenUpdating = True
End Sub

[gmayor]

Seehttps://www.gmayor.com/document_batch_processes.htm which will search for any number of words.