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

[DJTreeno]

Доброго всем времени суток!!!

Подскажите пожалуйста макрос который обновляет только CaptionLabels не все поля (Fields). Второй день бьюсь ничего не придумывается((

Заранее благодарен!!!

[Вождь]

В упрощенном виде где-то так:

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
                    ' нашли
                End If
            Next CL
        End If
    Next F
    
End Sub

[DJTreeno]

Уважаемый, Вождь, спасибо за ответ!!!
Но видимо у меня не все так просто - в моем документе имеется огромное количество разных связей с Excel, авто нумерация страниц (по ГОСТу она у меня двойная снизу и сверху, при этом верхняя зависит от нижней т.е. отличается на определенное значение), и нумерация ссылок на таблицы (выглядит как "такие-то данные приведены в таблице 1")

Вот мой макрос, который вставляет слово "таблице 1" в конец предложения.

Sub ТаблицаСноска()
'
' ТаблицаСноска Макрос
'
'
CaptionLabels.Add Name:="таблице"
With CaptionLabels("таблице")
.NumberStyle = wdCaptionNumberStyleArabic
.IncludeChapterNumber = False
End With
Selection.InsertCaption Label:="таблице", TitleAutoText:="InsertCaption1", _
Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0
End Sub

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

If F.Type = Word.wdFieldSequence Then

Т.е. почему-то оно не равно

Может как-то можно привязаться к названию CaptionLabel??? (CaptionLabels.Add Name:="таблице")

Помогите пожалуйста!

[Ципихович Эндрю]

>Т.е. почему-то оно не равно
а чему же оно равно нужное?
может его и ставить, то чему равно

[DJTreeno]

Что означает "F.Type"?

Или как написать For Each F In ActiveDocument.Fields , но не во всех полях, а именно в нужных?

[DJTreeno]

Почему-то у меня F.Type = или 13 или 37 или 88, а Word.wdFieldSequence постоянно 12

[Ципихович Эндрю]

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

Что означает "F.Type"?

это тип поля

'текстовое поле имеет тип № 70
'флажок имеет тип № 71
'поле со списком имеет тип № 83
'гиперссылка имеет тип № 88
'поле запускающее макрос имеет тип № 51
'поле TOC имеет тип № 13
'поле { } имеет тип № 3
а про какое у Вас речь не пойму выложите файл Ворда 2003 с этим полем

[Ципихович Эндрю]

>Word.wdFieldSequence постоянно 12
и пусть будет, а то начнётся хаос

[DJTreeno]

Не получится он весит 80 мб и состоит из разных файлов, т.е. главный документ(((

[DJTreeno]

Так, а почему же он F.Type не хочет быть 12?