Makro for "cross reference"

[Mephisto-]

Hei,

 

Har bare engelsk office, så alle kommandoer og alt går på engelsk her.

 

Problemet, som jeg synes er veldig slitsomt er når man bruker det interne referanse verktøyet til Word.

 

Når man skal sette inn en referanse så åpnes jo boksen og man må åpne og skrolle ned til figur, tabbel osv. Så velge hvilken type referanse man skal ha.

 

Det jeg har forsøkt er å lage en liten makro som åpner vindu, velger en gitt referansetype med en gitt referansestil (Bare navn og nr f.eks).

 

Så kunne endre på denne for å ha en til figur, en til tabell osv.

 

Slik ser koden ut foreløpig:

 

Sub test()
  With Dialogs(WdDialogInsertCrossReference)
  SendKeys "%te"
  SendKeys "{enter}"
  SendKeys "%r"
  SendKeys "{down 1}"
  SendKeys "{enter 2}"
  .Show
  End With
End Sub

 

Denne fungerer jo særskilt dårlig og er kopiert fra nettet. Har forsøkt å endre på den for å passe men får ikke helt til. Noen gode hoder som kan hjelpe meg?