Need help with Macro to insert X-ref with its page number

[gadavis1701]

I'm trying to write a macro to automate the insertion of a cross-
reference (Heading, table or figure) along with its page number
instead of doing the following:

1. Insert > Reference > Cross-Reference
2. Select Heading for Reference type
3. Set "Insert reference to:" to Heading text
4. Select heading in "For which heading:"
5. After cross-reference is inserted type "on page"
6. Set "Insert reference to :" to page number

I want to do the same sequence for inserting cross-references to
figures and tables.

It would be nice if it was a populated listbox with a selection of
Heading, Figure or Table cross-references found in the document.

I am using Word 2003 on Windows XP Professional SP2.

I had a macro developed in my previous job but can't remember how I
got there.

Any help would be appreciated.

 

[Jean-Guy Marcil]

gadavis1701 was telling us:
gadavis1701 nous racontait que :

I'm trying to write a macro to automate the insertion of a cross-
reference (Heading, table or figure) along with its page number
instead of doing the following:

1. Insert > Reference > Cross-Reference
2. Select Heading for Reference type
3. Set "Insert reference to:" to Heading text
4. Select heading in "For which heading:"
5. After cross-reference is inserted type "on page"
6. Set "Insert reference to :" to page number

I want to do the same sequence for inserting cross-references to
figures and tables.

It would be nice if it was a populated listbox with a selection of
Heading, Figure or Table cross-references found in the document.

I am using Word 2003 on Windows XP Professional SP2.

I had a macro developed in my previous job but can't remember how I
got there.

Any help would be appreciated.

This is no small project.
Unless someone has already got this filed up and is willing to share, I
believe that this is a job one should be paid for.

--

Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org