Установка цвета шрифта при открытии документа не работает

AFAIK, вы не можете установить цвет шрифта по умолчанию для конкретного пользователя. Даже если вам удалось, скажем, установить для него значение «Синий», и вы перейдете к предложению, выделенному красным цветом, и если вы что-то напечатали, вы увидите не синий текст, а красный текст. Потому что позиция, в которой находится курсор, выберет исходный цвет, который использовался для окраски этого предложения.

Чтобы установить определенный цвет для пользователя, вам нужно либо

1. Identify a range and set the color for it. Но затем, как я упоминал выше, если пользователь переходит к другому диапазону, новые настройки цвета не будут применяться к нему.

2. Set it for the entire document. Если вы установите его для всего документа, цвет всего документа изменится, и я уверен, что это не то, что вам нужно.

Возможные обходные пути основаны на Application.WindowSelectionChange Event. Поэтому вам необходимо придерживаться следующих шагов:

1.Создайте модуль класса
2.Назовите модуль класса App
3.Добавьте следующий код в App Class Module:

    Public WithEvents WRD As Application

    Private Sub WRD_WindowSelectionChange(ByVal Sel As Selection)
        'here you should place solution from your Document_Open sub
        'which defines color based on user name or...
        'you could place it somewhere else but pass color value 
        'here as a parameter

        'for test I just assumed that color should be blue
        Sel.Font.Color = wdColorBlue
    End Sub

4. В стандартный модуль добавить публичную переменную:

    Public tmpApp As New App

5.Создайте Sub в стандартном модуле или добавьте в свой Document_Open Event код, который будет инициализировать наш класс:

Sub Document_Open_new()

    Set tmpApp.WRD = Application

    'we need to change selection once to trigger full
    'scope of solution
    'if we omit the code below new color will not work
    'if user add new text at the beginning of the document
    'right after it was opened
    Dim tmpSel As Range
    Set tmpSel = Selection.Range
    ActiveDocument.Bookmarks("\EndOfDoc").Select
    tmpSel.Select
End Sub

6. Запустите описанную выше подпрограмму один раз или откройте документ, если код был добавлен в Document_open event.

---EDIT--- (после некоторых комментариев от @Sid ниже)

Есть некоторые неудобства использования предложенного решения. Однако БОЛЬШИНСТВО ИЗ НИХ МОЖНО РЕШИТЬ, добавив немного If statements внутрь WindowSelectionChange event. Проверка положения параметра Sel range, текста вокруг и прочего позволяет точно решить, применять новый цвет или нет.