ActiveWorkbook.Names("Имя диапазона").RefersToRange.Font.Color = &HFFFF00 'переменная wdColorBlue должна быть предварительно определена, иначе цвет диапазона не изменится
ActiveWorkbook.Names("Имя диапазона").RefersToRange.Font.Color = RGB(36, 182, 36)
ActiveDocument.Fields.Count покажет сколько всего текстовых полей в документе, и соответственно любой номер поля из этого диапазона укажет на существующее поле, т.к. нумерация у них динамическая
If ActiveDocument.Fields.Count>=Номер_нужного_поля Then
Msgbox "ПОЛЕ_СУЩЕСТВУЕТ!!!"
Else:
Msgbox "ПОЛЕ_НЕ_СУЩЕСТВУЕТ!!!"
End If
Это конечно создатели не совсем продумали..
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.