Word文書のヘッダーのテキストを置き換える3つの効果的な方法

このpでost、Word文書のヘッダー内のテキストを置き換えることができる3つの効果的な方法があります。 

一部のドキュメントでは、ヘッダーはユニット全体の重要なコンポーネントです。 そしてMost 時間の経過とともに、ヘッダー内のテキストはドキュメント全体で同じに設定されます。ドキュメント内の各ヘッダーは相互にリンクされているためです。 ただし、ドキュメントにリンク解除されたヘッダーを持つ複数のセクションを含めることができる場合は例外があります。

以下は、特定のシナリオに応じて選択できる3つの方法です。

方法1：ドキュメントのヘッダーテキストをXNUMXつのセクションのみに置き換える

通常、手動で分割しない限り、ドキュメント全体がセクションになります。 このような場合、ヘッダーのテキストを簡単に変更できます。

1. まず、ヘッダー領域をダブルクリックして編集モードに入ります。
2. 次に、テキストを置き換え、「ヘッダーとフッターを閉じる」コマンドをクリックして終了します。

各ヘッダーの同じテキストが変更されました。

方法2：複数のセクションのドキュメント内のヘッダーテキストをリンク解除されたヘッダーに置き換える

これは、多くの場合、ドキュメントに複数のセクションが含まれているXNUMX番目のシナリオです。 デフォルトでは、各セクションのヘッダーは「前へのリンク」に設定されています。 ただし、特定の要求から、ドキュメント内に異なるヘッダーを作成するためにヘッダーのリンクを解除することができます。

それでも、すべてのヘッダーで同じままのテキストが存在する可能性があります。 このような状況でそれらを置き換えるには、次のマクロを使用して作業を行う必要があります。

1. まず、「Alt + F11」を押してVBAエディタを開きます。
2. 次に、左側の列の「通常」プロジェクトをクリックします。
3. 第三に、「挿入」をクリックし、ドロップダウンメニューから「モジュール」を選択します。
4. 次に、モジュールをダブルクリックして開き、次のコードをそこに貼り付けます。

Sub ReplaceTextInHeaderInADoc()
  Dim nPageNum As Integer
  Dim objDoc As Document
  Dim strFindText As String
  Dim strReplaceText As String
 
  Set objDoc = ActiveDocument
  strFindText = InputBox("Enter text to be found:", "Find Text")
  strReplaceText = InputBox("Enter new text:", "Replace Text")
 
  For nPageNum = 1 To Selection.Information(wdNumberOfPagesInDocument)
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
    Application.Browser.Target = wdBrowsePage
    objDoc.Bookmarks("\page").Range.Select
    With objDoc.ActiveWindow
      .ActivePane.View.SeekView = wdSeekCurrentPageHeader
      With .Selection.Find
        .ClearFormatting
        .Text = strFindText
        .Replacement.ClearFormatting
        .Replacement.Text = strReplaceText
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
      End With
    End With
  Next nPageNum
  objDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

5. 次に、「F5」を押してマクロを実行します。
6. 「テキストの検索」ボックスに、検索および置換するテキストを入力します。
7. そして、「OK」をクリックして次に進みます。
8. 「テキストの置換」ボックスに新しいテキストを入力し、「OK」をクリックして続行します。

方法3：複数のドキュメントのヘッダーテキストを置き換える

それでも、バッチ処理を行うにはマクロが必要です。

1. 何よりもまず、すべてを手配します tar同じフォルダ内のドキュメントを取得します。
2. 方法2の手順を繰り返して、マクロをインストールして実行します。
3. 次に、マクロを次のマクロに置き換えます。

Sub ReplaceTextInHeaderInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim strFindText As String
  Dim strReplaceText As String
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Please select the target folder."
      Exit Sub
    End If
  End With
 
  strFindText = InputBox("Enter text to be found:", "Find Text")
  strReplaceText = InputBox("Enter new text:", "Replace Text")
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    For nPageNum = 1 To Selection.Information(wdNumberOfPagesInDocument)
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
      Application.Browser.Target = wdBrowsePage
      objDoc.Bookmarks("\page").Range.Select
      With objDoc.ActiveWindow
        .ActivePane.View.SeekView = wdSeekCurrentPageHeader
        With .Selection.Find
          .ClearFormatting
          .Text = strFindText
          .Replacement.ClearFormatting
          .Replacement.Text = strReplaceText
          .Wrap = wdFindContinue
          .Execute Replace:=wdReplaceAll
        End With
      End With
    Next nPageNum
    objDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. 「参照」ウィンドウで、 tarドキュメントを置く場所を取得します。
5. [OK]をクリックします。
6. また、[テキストの検索]ボックスと[テキストの置換]ボックスにテキストを入力して、[OK]をクリックします。

バックアップが失敗したとき

定期的にバックアップすることをお勧めすることがよくあります。 それでも、バックアップは時々失敗する可能性があります。 そして、バックアップの失敗、メディアの不良、バックアッププロセスの破損の一般的な理由は次のとおりです。 したがって、次にドキュメントをバックアップするときは、XNUMXつの側面に注意してください。 そして、最善の予防策は、 docxリカバリ 事前にツール。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xls修正 and pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com