Re: Run one macro from another and edit filenames for PDF printing

Tech-Archive recommends: Speed Up your PC by fixing your registry

The code I'm using to 'hide' the answers is actually just adjusting the font
colour of all text in text boxes (from dark grey to white):

Sub HideAnswers()

' Find each text box and set it's font colour to white

Dim aShape As Shape

For Each aShape In ActiveDocument.Shapes
If aShape.Type = msoTextBox Then
With aShape
If .TextFrame.HasText Then
..TextFrame.TextRange.Font.Color = wdColorWhite
End If
End With
End If
Next

End Sub

To show the answers I use another macro to do the reverse (change font
colour in text boxes from white back to grey).

I'm using Word 2003 and ideally I will need the solution to work on Word XP.

Cheers,

Dan.

"Graham Mayor" wrote:

I looked at this late yesterday and decided that it lacked an essential bit
of information that I was going to come back to this morning.

3) Hide the answers using macro built into doc.

I think we need to know more about how the documents are hidden in order to
create a seamless process; other than that I was working along the same
lines to create a temporary folder to catch the documents in order to allow
Acrobat to create the PDFs using the file names, but it should be possible
to use the macro to generate the file names (if I knew a bit more about the
Acrobat object model)

I also wondered at the Word version as this is altogether much easier in
Word 2007 which can *save* documents in PDF format, thus making the naming
easier and avoiding the use of the print function altogether.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


Jean-Guy Marcil wrote:
"Dan B" wrote:

Hi.

I have a series of question / answer sheets as word docs. Each Word
doc has macros to show or hide answers. My intention is perform a
batch process to all docs as follows:

1) Open doc.
2) Print to PDF (answers showing by default) using word doc filename
as PDF filename.
3) Hide the answers using macro built into doc.
4) Print a second PDF using word doc filename (but replace the last
character 'a' with 'q') as PDF filename.


Here is one way of going about it:

Declare a document object, like:
Dim docProcess As Document
Once your code has made sure that there are documents to process,
create a sub directory for the Student versions
(parentDirectory\Student)
Use the doc object to open the first doc in the list:
Set docProcess= Documents.Open(DocList)
Use the doc to do the processing:
With docProcess
.Printout
.etc
End With
Since the easiest way to gt the PDF name is to ge it from the Word
doc, I would recommend doing a Save As with the suffix you want to
the new Student subdirectory.
Run the macro in that new doc by using something like:
ProjectName.ModuleName.SubName
Create the PDF.
Close the document.
Delete this doc document.
Repeat and rinse.

This way, when you are done, you will have a sub directory with the
PDF Question documents attached to the parent directory which will
contain both the PDF and the Word Answer ***.

This solution will require more code than I have time to write right
now. You may try and ask specific questions with the parts you are
having problems with.

Or course, someone will drop in with a much simpler solution... I
always complicate things...



.

Quantcast