Word 문서 헤더의 텍스트를 대체하는 효과적인 방법 3 가지

워드 솔루션 2025 년 9 월 28 일

이 p에서ost, Word 문서의 헤더에있는 텍스트를 대체 할 수있는 효과적인 방법이 3 가지 있습니다.

일부 문서의 경우 헤더는 전체 단위의 필수 구성 요소입니다. 그리고 most 시간이 지나면 헤더의 텍스트는 문서의 각 헤더가 서로 연결되어 있기 때문에 전체 문서에서 동일하게 설정됩니다. 그러나 문서에 링크 해제 된 헤더가있는 여러 섹션이있을 수있는 경우에는 예외가 있습니다.

다음은 특정 시나리오에 따라 선택할 수있는 3 가지 방법입니다.

방법 1 : 문서의 머리글 텍스트를 한 섹션으로 만 바꾸기

일반적으로 전체 문서는 수동으로 나누지 않는 한 섹션입니다. 이 경우 헤더의 텍스트를 쉽게 변경할 수 있습니다.

먼저 헤더 영역을 두 번 클릭하여 편집 모드로 들어갑니다.
그런 다음 텍스트를 바꾸고 "머리글 및 바닥 글 닫기"명령을 클릭하여 종료합니다.

이제 각 헤더의 동일한 텍스트가 변경됩니다.

방법 2 : 여러 섹션의 문서에서 머리글 텍스트를 연결 해제 된 머리글로 바꾸기

다음은 문서에 여러 섹션이 포함 된 두 번째 시나리오입니다. 기본적으로 각 섹션의 헤더는 "이전 링크"에서 설정됩니다. 그러나 특정 요구에 따라 문서에 다른 헤더를 만들기 위해 헤더 링크를 해제 할 수 있습니다.

그럼에도 불구하고 모든 헤더에서 동일하게 유지되는 텍스트가 여전히있을 수 있습니다. 이러한 상황에서 교체하려면 다음 매크로를 사용하여 작업을 수행해야합니다.

먼저 "Alt + F11"을 눌러 VBA 편집기를 엽니 다.
둘째, 왼쪽 열에서“Normal”프로젝트를 클릭합니다.
셋째, "삽입"을 클릭하고 드롭 다운 메뉴에서 "모듈"을 선택합니다.
다음으로 모듈을 두 번 클릭하여 열고 여기에 다음 코드를 붙여 넣습니다.

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

그런 다음 "F5"를 눌러 매크로를 실행합니다.
"텍스트 찾기"상자에 찾고 바꿀 텍스트를 입력합니다.
계속 진행하려면 "확인"을 클릭합니다.
이제 "텍스트 바꾸기"상자에 새 텍스트를 입력하고 "확인"을 클릭하여 계속합니다.

방법 3 : 여러 문서에서 머리글 텍스트 바꾸기

그래도 일괄 처리를 수행하려면 매크로가 필요합니다.

우선 모든 준비 tar같은 폴더에 문서를 가져옵니다.
방법 2의 단계를 반복하여 매크로를 설치하고 실행합니다.
그런 다음 매크로를 다음으로 바꿉니다.

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

"찾아보기"창에서 tar문서를 넣는 곳을 찾으십시오.
"확인"을 클릭하십시오.
그리고 "텍스트 찾기"및 "텍스트 바꾸기"상자에 텍스트를 입력하고 "확인"을 클릭합니다.

백업이 실패한 경우

종종 우리는 사람들에게 정기적으로 백업 할 것을 제안합니다. 그러나 백업은 때때로 실패 할 수 있습니다. 백업 실패, 미디어 불량 및 백업 프로세스 손상의 일반적인 이유는 다음과 같습니다. 따라서 다음에 문서를 백업 할 때 두 가지 측면에주의하십시오. 그리고 최선의 예방 조치는 docx 복구 미리 도구.

저자 소개 :

Vera Chen은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. xls 수정 pdf 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM