Cross-Reference dialog box - change the default settings

[DeanH]

Word 2003 SP2 on XP.
Is is possible to change the default settings of the "Insert Reference to"
options from "Entire Caption" to "Only label and number"?
Obviously this only applies to the Figure and Table reference types.
Many thanks
DeanH

[Matthew]

I am pretty sure you can not, as after looking at the options and playing
around it looks like when you go back into the menu it reverts back to the
item of the list and there is no place that I could find to change this,

sorry
Matthew

"DeanH" <De...@discussions.microsoft.com> wrote in message
news:F10ED613-DAA2-45E3...@microsoft.com...

[DeanH]

Matthew, thanks for the reply, that is the behaviour that is annoying me ;-)
I am hoping that someone may come up with an intercepting script that can
control these Figure/Table commands.
Thanks anyway
Hope this helps
DeanH

[macropod]

Hi Dean,

You could use a macro for each type of reference:
Sub InsertFigureRef()
Dim I As Integer
With Dialogs(wdDialogInsertCrossReference)
For I = 1 To 8
SendKeys "{DOWN}"
Next
SendKeys "{UP}{TAB}:"
For I = 1 To 5
SendKeys "{UP}"
Next
SendKeys "{DOWN}{TAB}{TAB} %v": .Show
End With
End Sub

Sub InsertTableRef()
Dim I As Integer
With Dialogs(wdDialogInsertCrossReference)
For I = 1 To 8
SendKeys "{DOWN}"
Next
SendKeys "{TAB}:"
For I = 1 To 5
SendKeys "{UP}"
Next
SendKeys "{DOWN}{TAB}{TAB} %v": .Show
End With
End Sub

The down & up loops are there to ensure you end up with the "Only label and number" selection, regardless of whatever was last
selected, plus hyperlinking by default. Each macro could be attached to a button that you could add to one of the toolnars.

--
Cheers
macropod
[Microsoft MVP - Word]

"DeanH" <De...@discussions.microsoft.com> wrote in message news:3997FBA8-1648-4616...@microsoft.com...

[DeanH]

Macropod, many thanks.
Apologies for the delay in feedback, but spot on.
I have also created one for the Heading Text to Heading Number. Easy when
you know how ;-)
DeanH

[koendekkers]

I found this thread because I'm also struggling with the subject that the topicstarter raised. When I use the solution of Dean in Word 2007 my Cross Reference menu stops at Footnote; it does not go down enough to get to Figure. Dean, have you got any solution for this? Thanks in advance,

Koen

DeanH wrote:

Macropod, many thanks.Apologies for the delay in feedback, but spot on.I have
09-Oct-09

Macropod, many thanks.
Apologies for the delay in feedback, but spot on.
I have also created one for the Heading Text to Heading Number. Easy when
you know how ;-)
DeanH

"macropod" wrote:

Previous Posts In This Thread:

EggHeadCafe - Software Developer Portal of Choice
Host Winforms App in IE from your web server
http://www.eggheadcafe.com/tutorials/aspnet/c40df7ba-b0c1-4de6-802b-78bbd653d184/host-winforms-app-in-ie-f.aspx

[macropod]

Hi koen,

It seems Word 2007 doesn't play nicely with Sendkeys - which has always been the least perferred method of doing things, precisely
because it can have timing issues and problems with changes to the way dialogues work. AFAIK, Sendkeys is the only way of
programatically accessing the Insert CrossReference Dialog settings and, if that doesn't work, you're stuck with a manual solution.

--
Cheers
macropod
[Microsoft MVP - Word]

"koen dekkers" wrote in message news:20091015384...@gmail.com...

[Jeff]

Great macro!

I adapted your function for the Headings like DeanH as well. Here is for people who could find it useful.

Sub SectionRef()

Dim I As Integer
With Dialogs(wdDialogInsertCrossReference)
For I = 1 To 8

SendKeys "{UP}"
Next
SendKeys "{DOWN}{TAB}:"
For I = 1 To 6
SendKeys "{UP}"
Next
SendKeys "{DOWN}{DOWN}{TAB}{TAB}{TAB} %v": .Show
End With
End Sub