MS WORD - フィールドコードを削除し、ヘッダーの値を保持する

Question

フィールドコードを削除するが、その値は保持する、このWord VBAコードがあります。これは正常に機能しますが、ヘッダーには反映されません。文書の本文（およびヘッダー/フッターも同様）で機能するように編集するにはどうすればよいですか？

Sub RemoveFieldCodeButRetainValue() 
    Dim d As Document 
    Dim iTemp As Integer 
    Dim strTemp As String 

    Set d = ActiveDocument 

    For iTemp = d.Fields.Count To 1 Step -1 

     strTemp = d.Fields(iTemp).Result 

     d.Fields(iTemp).Select 

     With Selection 
      .Fields(1).Delete 
      .TypeText strTemp 
     End With 
    Next 
End Sub 

Answer 1

[OK]を、私はそれを得た：

利用二つのマクロ：

Sub CtrlAPlusFNine() 
    Selection.WholeStory 
    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 
lbl_Exit: 
    Set oStory = Nothing 
    Exit Sub 
End Sub 


Sub RemoveFieldCodeButRetainValue() 
    Dim d As Document 
    Dim iTemp As Integer 
    Dim strTemp As String 
    Set d = ActiveDocument 
    For iTemp = d.Fields.Count To 1 Step -1 
     strTemp = d.Fields(iTemp).Result 
     d.Fields(iTemp).Select 
     With Selection 
      .Fields(1).Delete 
      .TypeText strTemp 
     End With 
    Next 
End Sub 

を..and Application.Run