Replace 0000s with a series of numbers

tingker · #1 12-16-2014, 06:59 PM

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 · #2 12-16-2014, 11:30 PM

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):

Code:

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 · #3 12-17-2014, 06:06 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
search and replace a field containing text and numbers	H28Sailor	Word	6	09-11-2014 01:00 AM
find and replace consecutive numbers	kpl_39	Word	1	06-07-2013 05:04 AM
Find & Replace formula for numbers?	Griff	Word	4	04-18-2011 02:47 AM
Find and replace page numbers in body of text	tollanarama	Word	3	02-13-2011 06:00 AM
replace automatically generated page numbers	LitWissOnline	Word	3	01-24-2011 03:40 PM