finding ways to do a task with macros

  • Thread starter Thread starter domm
  • Start date Start date
D

domm

i have a file with questions only and another file with answers only.I want
to write a macro such that for every corresponding question there is a
corresponding answer going right below it.Is it possible using macros?or if
VB script is involved can anyone tell me how this can be done ?.I'd like to
do this task in the questions document. I also want to know if this can be
done in a new document.I am using word 2003.please help me.
 
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

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
i have all the questions and answers in the paragraphs with 4 or 5 lines each
answer and only one line questions.
 
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

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Back
Top