Printing Help Text in Text Form Fields

[Derek]

I have created a series of Text Form Fields and, from the Add Help
text... button added customized help text (from the Help Key (F1) tab).
This works great, but I would like to print this text out. Ideally, I
could print a version of the document with help text displaying next to
each form field. Second best choice would be simply printing all help
text from all fields at once.

Any suggestions?

 

[Cindy M -WordMVP-]

Hi Derek,

I have created a series of Text Form Fields and, from the Add Help
text... button added customized help text (from the Help Key (F1) tab).
This works great, but I would like to print this text out. Ideally, I
could print a version of the document with help text displaying next to
each form field. Second best choice would be simply printing all help
text from all fields at once.

Any suggestions?

It requires a macro solution. See if this sample code approaches what
you're looking for?

Sub PrintFormFieldHelpText()
Dim ffld As Word.FormField
Dim rng As Word.Range

If ActiveDocument.ProtectionType <> wdNoProtection Then _
ActiveDocument.Unprotect
For Each ffld In ActiveDocument.FormFields
Set rng = ffld.Range
rng.Collapse wdCollapseEnd
rng.Text = ffld.HelpText
Next
ActiveDocument.Protect wdAllowOnlyFormFields, True
End Sub

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail

 

[Derek]

Dear Ms. Meister,

Your solution is perfect, as well as elegan!. Thank you for so
generously sharing your time and talent!

Derek

 

[Cindy M -WordMVP-]

Hi Derek,

Your solution is perfect, as well as elegan!. Thank you

You're welcome Thanks for letting me know it worked;
I'll put it in my "save bin" of useful code snippets for
the next poor soul wanting to do the same.

Cindy Meister