Replace 0000s with a series of numbers

[tingker]

Hello,
I need help again, creating macros. I have over 100 hundred files that I need to edit. Any input will be greatly appreciated!

I have a word file that looks like below, and I need to replace the 000's with a new set of numbers from a separate word file.

Quiz File (word file 1):
<question sample-global-id=”00000000000000000000” type=”mc”>
1. What is development?

a. a quantitative change in the individual over time
b. an event that is predictable and consistent for all persons
c. the orderly appearance over time of physical structures, psychological traits, and behaviours
d. a qualitative change in the individual over time

<question sample-global-id=”00000000000000000000” type=”mc”>


2. How have children been viewed historically?

a. as innately good and only in need of gentle discipline
b. as miniature adults after age five, or the “age of reason”
c. as clean slates changed by experience
d. as little sponges who want to absorb the world

Number File (word file 2):
QDGGHR3YXNQ2WFLDB976
JEDCNUEPNYP2N8ESP596

Is it possible to have a macro that will insert the numbers from a different word file into my quiz file?

Thank you very much! I'm attaching the word file for reference.

[gmayor]

But for the anomaly that there are 20 codes and only 19 sets of 0s the following will do the job (using the first 19 in the order they appear in the document):

Sub Replace0s()
Dim oSource As Document
Dim oTarget As Document
Dim oDoc As Document
Dim oRng As Range
Dim oPara As Range
Dim Count As Long
Dim i As Long
    'Open the two documents first
    For Each oDoc In Documents
        If oDoc.name = "QDGGHR3YXNQ2WFLDB976.docx" Then
            Set oSource = oDoc
        ElseIf oDoc.name = "9780176679903_rathus2ce_mc_ch01.docx" Then
            Set oTarget = oDoc
        End If
    Next oDoc
    Count = 0
    Set oRng = oTarget.Range
    With oRng.Find
        Do While .Execute(FindText:="00000000000000000000")
            Count = Count + 1
            Set oPara = oSource.Paragraphs(Count).Range
            oPara.End = oPara.End - 1
            oRng.Text = oPara.Text
            oRng.Collapse 0
        Loop
    End With
End Sub

[tingker]

gmayor, thanks very much. It worked perfectly! Much appreciated.