No Microsoft word, existe um problema quando você insere as legendas, marcadores e índices no documento, sempre que você coloca um novo ítem, é necessário selecionar os itens e clicar com botão direito e atualizar campo.

     Há uma forma mais simples de realizar esta operação atualizando os Range via VBA.

     Segue o exemplo:

   1: Sub AtualizarRanges() 
   2:      
   3:     Dim Ranges
   4:      
   5:     Set Ranges = Selection.Range 
   6:      
   7:     Selection.WholeStory 
   8:     Selection.Fields.Update 
   9:      
  10:     Ranges.Select 
  11:      
  12: End Sub

      Simples assim.

 

      Minato 8-)