Как обновить только CaptionLabels???

[DJTreeno]

Стоп, надо было додержать F8 подольше, все-таки равно
Значит пропущено в:
If InStr(1, S1, S2, VBA.vbTextCompare) <> 0 Then
' нашли
End If

строка field.update

[DJTreeno]

А как же update написать?

[Вождь]

Сообщение от DJTreeno

...Ваш макрос в моем случае не выполняет цикл...

У меня все рабатывает: после запуска вашего макроса по созданию названия, мой макрос его находит.

Сообщение от DJTreeno

А как же update написать?

Мой макрос "пустой", он только перебирает поля названий. Ваш код, вставьте вместо строки "' нашли". Если надо обновить поля, то достаточно вставить F.Update, т.е.:

Sub A()

Dim F As Word.Field
Dim CL As Word.CaptionLabel
Dim S1 As String, S2 As String

    For Each F In ActiveDocument.Fields
        ' поле автонумерации
        If F.Type = Word.wdFieldSequence Then
            S1 = F.Code.Text
            ' ищем названия в коде поля
            For Each CL In Application.CaptionLabels
                S2 = CL.Name
                If InStr(1, S1, S2, VBA.vbTextCompare) <> 0 Then
                    F.Update
                End If
            Next CL
        End If
    Next F
    
End Sub

[DJTreeno]

Гениально!!!

Спасибо большое!

Кстати наш народ умнее англоязычного, я где только не искал))