I have a userform that allows the user to print various word documents. Before it prints the word document the program runs a find and replace routine on the document. Everything works fine. The problem is the code is the same for each document, minus the doc name and location, and BULKY. I was wondering if there was a way to condense the code, so I only had to write the repeating part once? Here is the code I have for each document (The user has access to over 50 documents)
Thank you in advance for any help.

Chunk


Public Sub FindAndReplace_Brief()

    Dim wrdApp As Object
    Dim wrdNNDF As Object

    Set wrdApp = CreateObject("Word.Application")
    Set wrdNNDF = wrdApp.Documents.Open("C:\BriefHist_sheet.docx")
    'CU Phase Title
    wrdNNDF.Activate
    'wrdApp.Visible = True
    wrdApp.Selection.Find.ClearFormatting
    wrdApp.Selection.Find.Replacement.ClearFormatting
    With wrdApp.Selection.Find
        .Text = "XXX"
        .Replacement.Text = tbox_CUTitle.Text
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    wrdApp.Selection.Find.Execute Replace:=wdReplaceAll
    'Job Order
    With wrdApp.Selection.Find
        .Text = "YYY"
        .Replacement.Text = tbox_JO.Text
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    wrdApp.Selection.Find.Execute Replace:=wdReplaceAll
    'Key Op
    With wrdApp.Selection.Find
        .Text = "ZZZ"
        .Replacement.Text = tbox_KO.Text
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    wrdApp.Selection.Find.Execute Replace:=wdReplaceAll
    wrdNNDF.PrintOut
    wrdNNDF.Close SaveChanges:=wdDoNotSaveChanges
    wrdApp.Quit
End Sub