Re: Can you help me with this macro? (Word 2003)

["Jonathan West" <jwest -at- mvps -dot- org>]

2008/9/29 Hemstreet, Deborah <DHemstreet -at- kaydon -dot- com>:
> Hi All,
>
> Below my question is a macro I've recorded. My question: I want this
> macro to merely open the Cross Reference dialog box, with it pre-set to
> insert a Figure with the Only Label and Number option selected. The user
> would then select the figure number, insert the ref and close the dialog
> box.
>
> Is there a way to modify this macro for the above desired action? My
> attempts have failed.
>

Not easy, as the dialog doesn't respond as it should to setting the
dialog box arguments, so you have to use SendKeys which can be rather
flaky. But this does seem to work.

With Dialogs(wdDialogInsertCrossReference)
  SendKeys "ff{TAB}{DOWN}{DOWN}~%w": .Show
End With

The "ff" sets the reference kind to Figure. The "{TAB}" moves the
focus across to the "Insert reference to" box. "{DOWN}{DOWN}" opens
the dropdown and moves down one item. "~" selects and closes the
dropdown. "%w" moves the focus to the "For which heading" dialog.

It works for me. YMMV.

Regards
Jonathan West
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

ComponentOne Doc-To-Help gives you everything you need to author and 
publish quality Help, Web, and print content. Perfect for technical 
authors, developers, and policy writers. Download a FREE trial.
http://www.componentone.com/DocToHelp/

True single source, conditional content, PDF export, modular help.
Help & Manual is the most powerful authoring tool for technical
documentation. Boost your productivity! http://www.helpandmanual.com

---
You are currently subscribed to TECHWR-L as archive -at- web -dot- techwr-l -dot- com -dot- 

To unsubscribe send a blank email to 
techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40web.techwr-l.com


To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to admin -at- techwr-l -dot- com -dot-  Visit
http://www.techwr-l.com/ for more resources and info.