Comment mettre à jour tous les champs dans un document Word ?

Pour C# :

using System;
using System.Collections.Generic;
using System.IO;
using Microsoft.Office.Interop.Word;

class Program
{
    static void Main(string[] args)
    {
        List path = new List(args);

        string filePathstr = string.Join(" ", path.ToArray());
        //System.Windows.Forms.MessageBox.Show("filepathstr: " + filePathstr);

        string folderPathstr = Path.GetDirectoryName(filePathstr);
        //System.Windows.Forms.MessageBox.Show("folderPathstr: " + folderPathstr);

        try
        {
            Application ap = new Application();
            Document document = ap.Documents.Open(filePathstr);
            document.Fields.Update();

            foreach (Section section in document.Sections)
            {
                document.Fields.Update();  // mettre à jour chaque section

                HeadersFooters headers = section.Headers;  //Obtenir tous les en-têtes
                foreach (HeaderFooter header in headers)
                {
                    Fields fields = header.Range.Fields;
                    foreach (Field field in fields)
                    {
                        field.Update();  // mettre à jour tous les champs dans les en-têtes
                    }
                }

                HeadersFooters footers = section.Footers;  //Obtenir tous les pieds de page
                foreach (HeaderFooter footer in footers)
                {
                    Fields fields = footer.Range.Fields;
                    foreach (Field field in fields)
                    {
                        field.Update();  // mettre à jour tous les champs dans les pieds de page
                    }
                }
            }    

            document.Save();
            document.Close();

        }
        catch (NullReferenceException)
        {
            System.Windows.Forms.MessageBox.Show("Un fichier valide n'a pas été sélectionné.");
        }
    }
}

Les deux méthodes suivantes ont fonctionné pour moi :

Sub FieldsUpdateAlStoryMayor()
' Graham Mayor
' http://www.gmayor.com/installing_macro.htm
' mettre à jour les champs dans un document
    Dim oStory As range
    For Each oStory In ActiveDocument.StoryRanges
        oStory.Fields.Update
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                oStory.Fields.Update
            Wend
        End If
    Next oStory
    Set oStory = Nothing
End Sub

Sub FieldsUpdateAllStoryMaxey()    ' Greg Maxey
' https://gregmaxey.com/word_tip_pages/word_fields.html
    Dim rngstory As Word.range
    Dim lngValidate As Long    ' ne connais pas la raison de ceci - CK
    Dim oShp As Shape
    Dim oTOC As TableOfContents, oToa As TableOfAuthorities, oTof As TableOfFigures
    lngValidate = ActiveDocument.Sections(1).Headers(1).range.StoryType    ' ne connais pas la raison de ceci
    For Each rngstory In ActiveDocument.StoryRanges
        ' itérer à travers toutes les histoires liées
        Do
            On Error Resume Next
            rngstory.Fields.Update
            Select Case rngstory.StoryType
                Case 6, 7, 8, 9, 10, 11
                    If rngstory.ShapeRange.Count > 0 Then
                        For Each oShp In rngstory.ShapeRange
                            If oShp.TextFrame.HasText Then
                                oShp.TextFrame.TextRange.Fields.Update
                            End If
                        Next
                    End If
                Case Else
                    ' Ne rien faire
            End Select
            On Error GoTo -1
            ' Obtenir l'histoire liée suivante (si elle existe)
            Set rngstory = rngstory.NextStoryRange
        Loop Until rngstory Is Nothing
        ' Cas spéciaux
        For Each oTOC In ActiveDocument.TablesOfContents
            oTOC.Update
        Next oTOC
        For Each oToa In ActiveDocument.TablesOfAuthorities
            oToa.Update
        Next
        For Each oTof In ActiveDocument.TablesOfFigures
            oTof.Update
        Next
    Next
End Sub

Les deux traitent, de différentes manières, du fait que les champs peuvent être présents dans des "histoires" autres que l'histoire principale du document. Vous pouvez consulter leurs sites web pour voir la théorie/idées derrière le code.

• http://www.gmayor.com/installing_macro.htm
• https://gregmaxey.com/word_tip_pages/word_fields.html