Кода не нашел, application.refresh не помогает, хочется удалить лишние цвета из палитры документа, а если нужно- вставить.
Со вставкой проблем нет: ActiveDocument.AddColorsToDocPalette
С удалением: надо перебрать все цвета в документе, сравнить с палитрой и, если в палитре есть неиспользуемые, то удалить.