finding and changing graphic color

[Sylvie]

Hi

Acutally I have two kinds of documents for the
same project:

1 Question document .
2 Question + Answer document.

I want to have only one document with answers wrote
in red (there are also grpahics: lines, circles, box
in answers) on the question document.

But I still need to print the two version:
1 only questions
2 question + answers.

I found a way to write a macro to change every Red color
font found in white in the document. So I'm able to mask
written answers.

But actually I don't know how doing the same on graphics.
How one can find red drawn graphics and change their color
programmaticaly ?

Sylvie

 

[Graham Mayor]

Personally I would take an entirely different approach.
I would use a table to provide the questions and answers in left and right
columns respectively.
I would save the table with the answers as an autotext entry - call the
entry (say) PRINTYES
I would then select the answer column and delete the answers. Save this
table as an autotext entry also called (say) PRINTNO
Completely delete the table from the document
Next insert one or other tables according to a user prompt.
{ASK Answer "Print answers? Enter YES or NO" }{IF { REF Answer } = "YES"
"{ Autotext "PRINTYES" }" "{AUTOTEXT "PRINTNO"}"}
You'll need to update the fields with a macro, the code for which you'll
find at http://www.gmayor.com/installing_macro.htm

If your document is not a table, then use the same technique to save
versions as autotexts with and without the answers.

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


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Sylvie]

Thanck but I don't want to have to save things separatly.
Your approach is an interesting one but not satisfied me.

There *really* no solutions for finding à graphic and change its
color ???

Using VBA ?

Sylvie

 

[Suzanne S. Barnhill]

There is a distinction between "graphics" and "drawings." I do not know any
way of finding drawings and changing the line/fill color to white. Perhaps
someone else can suggest a macro. Pictures can be found relatively easily
(you can set the Browse Object to Graphic and jump from one to the next),
but you can't color them white; what you have to do to make them invisible
is set the Brightness to 100%.

 

[Sylvie]

My only problem concern Drawings. I need to find
the red ones and change their line/fill color to white.

A macro is welcome ... ))

Sylvie

 

[Alder]

My only problem concern Drawings. I need to find
the red ones and change their line/fill color to white.

Sylvie,

Have you looked at the VBA Help for Shapes and ShapeRange? You could
define a ShapeRange to include all drawings in your document, then
cycle through them with a For Each..Next loop to test (or change)
their colour properties.

I have some code at work, but I'm out of town until Wednesday. Maybe
all you need is a hint, though. Good luck.

Terry