Hi
Try this response from one of our Word MVPs, Paul Edstein:

You can use a macro like:
Sub MyPantone()
Selection.Font.Color = 7814912
End Sub
and assign it to a keyboard shortcut.
Cheers
Paul Edstein
[MS MVP - Word]