Word 문서에서 모든 각주를 미주로 또는 그 반대로 변환하는 6 가지 방법

이 기사에서는 Word 문서에서 모든 각주를 미주로 또는 그 반대로 변환하는 6 가지 방법을 제공합니다.

기본적으로 각주 텍스트는 개별 페이지의 하단에 정렬되고 미주는 문서의 끝에있는 것으로 알려져 있습니다. 그러나 이러한 기본 설정은 항상 사람들을 만족시킬 수 없습니다. Word에도 사용자가 각주를 미주로 또는 그 반대로 변환 할 수있는 기본 제공 명령이 있습니다. 따라서 우리는 당신이 선택할 수있는 6 가지 방법을 생성합니다.

방법 1 : 모든 각주를 한 문서의 미주로 수동으로 변환

각주와 미주는 일반적으로 여기에 있습니다.

1. 먼저 "참조"탭을 클릭 한 다음 "각주"그룹의 화살표 버튼을 클릭하여 "각주 및 미주"대화 상자를 엽니 다.
2. 다음으로“변환”버튼을 클릭하십시오.
3. 그런 다음 "모든 각주를 미주로 변환"옵션을 선택합니다.
4. 그리고 "확인"을 클릭합니다.
5. 마지막으로 "각주 및 미주"상자를 닫습니다.

효과는 다음과 같습니다.

방법 2 : 모든 미주를 한 문서의 각주로 수동으로 변환

미주를 각주로 변환하는 것은 거의 동일합니다.

1. 방법 1에서 2 단계와 1 단계를 반복합니다.
2. 이번에는 대신 "모든 미주를 각주로 변환"옵션을 선택합니다.
3. 그래도 방법 4에서 5 단계와 1 단계를 반복합니다.

다음 결과를 확인하십시오.

방법 3 : VBA를 통해 모든 각주를 한 문서의 미주로 변환

1. 먼저 "Alt + F11"을 눌러 Word에서 VBA 편집기를 엽니 다.
2. 다음으로“Normal”을 클릭하십시오.
3. "삽입"탭을 클릭합니다.
4. 드롭 다운 메뉴에서 "모듈"을 선택합니다.
5. 그런 다음 모듈을 두 번 클릭하여 엽니 다.
6. 여기에 다음 코드를 붙여 넣으십시오.

Sub ConvertFootnotesToEndnotes()

  If ActiveDocument.Footnotes.Count > 0 Then
    ActiveDocument.Footnotes.Convert
  Else
    MsgBox ("There is no footnote in this document")
  End If
End Sub

7. 마지막으로 "실행"을 클릭합니다.

방법 4 : VBA를 통해 모든 미주를 한 문서의 각주로 변환

마찬가지로 방법 3의 동일한 단계를 수행하여 매크로를 설치하고 실행합니다. 그러나 매크로를 다음 항목으로 바꿉니다.

Sub ConvertEndnotesToFootnotes()
 
 If ActiveDocument.Endnotes.Count > 0 Then
 ActiveDocument.Endnotes.Convert
 Else
 MsgBox ("There is no endnote in this document")
 End If
End Sub

방법 5 : VBA를 통해 모든 각주를 여러 문서의 미주로 일괄 변환

처리해야 할 파일이 많은 경우 먼저 모든 파일을 하나의 폴더에 정렬합니다. 그런 다음이 매크로를 설치하고 실행합니다.

Sub BatchConvertFootnotesToEndnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Footnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

이 매크로를 실행하면 폴더 경로를 입력해야하는 입력 상자가 나타납니다. 그리고 폴더 주소 끝에 "\"가 있어야한다는 것을 잊지 마십시오.

방법 6 : VBA를 통해 모든 미주를 여러 문서의 각주로 일괄 변환

마지막으로 여러 문서의 미주를 자동으로 각주로 일괄 변환하는 매크로가 있습니다.

Sub BatchConvertEndnotesToFootnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Endnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

단어 문제를 해결하는 방법

단어는 부호없이 실패 할 수 있습니다. 그러한 불운이 당신을 찾을 것이라는 것이 믿기지 않을 수도 있지만, 당신은 선택의 여지가 없습니다. 손상된 문서.

저자 소개 :

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