You didn't really answer the questions, however assuming the questions and
answers each comprise one paragraph, the following macro will write the
questions and answers (i.e. the paragraphs from each document)alternately to
a new document. If the answers comprise random numbers of paragraphs you
will see why I asked the question when you run the macros
Put your own question and answer document paths in the strings
sQname =
and
aAname =
lines
Dim sQname As String
Dim sAname As String
Dim Qdoc As Document
Dim Adoc As Document
Dim Target As Document
Dim i As Long
sQname = "d:\My Documents\Test\Versions\Even\Questions.doc"
sAname = "d:\My Documents\Test\Versions\Even\Answers.doc"
Application.ScreenUpdating = False
Set Qdoc = Documents.Open(sQname)
Set Adoc = Documents.Open(sAname)
Set Target = Documents.Add
Qdoc.Activate
For i = 1 To Qdoc.Paragraphs.Count
Qdoc.Paragraphs(i).Range.Copy
Target.Activate
Selection.Paste
Adoc.Activate
Adoc.Paragraphs(i).Range.Copy
Target.Activate
Selection.EndKey
Selection.Paste
Qdoc.Activate
Next i
Qdoc.Close savechanges:=wdDoNotSaveChanges
Adoc.Close savechanges:=wdDoNotSaveChanges
Target.Activate
Application.ScreenUpdating = True
http://www.gmayor.com/installing_macro.htm
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
domm wrote:
i have all the questions and answers in the paragraphs with 4 or 5
lines each answer and only one line questions.
It should be possible to do this with a macro, but in order to do
so, how are the questions and answers identified in each of the
documents? In other Words, how would the macro know how much of the
answer document to select and how would it know where to insert it
in the question document. Are the questions and answers numbered?
Are they one of more sentences or paragraphs? Tell us more about
your documents! --
Graham Mayor - Word MVP
My web site www.gmayor.com
Word MVP web site http://word.mvps.org