Sub SciMarkPicker()
' Paul Beverley - Version 10.05.11
' Call up the Insert Symbol window set to Greek characters

Selection.TypeText Text:=ChrW(8242)
Selection.MoveStart wdCharacter, -1
Application.Run MacroName:="InsertSymbol"
End Sub