In theory this would be done like this
Code:
Sub InsertMe()
With Application.Dialogs(wdDialogInsertSymbol)
.Font = "Symbol" 'this isn't working for me
SendKeys "%fsym{DOWN}{ENTER}"
.Show
End With
End Sub
However that .Font line isn't working for me and I don't know why. I've added the dodgy SendKeys line to mimic the keyboard steps.