Daniel은 많은 각주를 사용하는 학술 논문을 가지고 있습니다. 현재 그는 각 문장 끝에 각주가 있습니다. 그는 한 단락 내의 모든 각주를 단락 끝의 단일 각주로 결합하려고합니다. 그는 이것을 자동으로 수행하는 방법이 있는지 궁금합니다.

이 작업을 자동으로 수행 할 수있는 방법은 없지만 매크로를 사용하여 수행 할 수 있습니다. 매크로가해야 할 일은 문서의 각 단락을 단계별로 살펴보고 각주가 있는지 확인하는 것입니다. 그런 다음 해당 항목을 연결하고 각주를 삭제 한 다음 단락 끝에 연결된 텍스트와 함께 새 각주를 추가합니다. 다음은이를 수행하는 매크로입니다.

Sub MoveFootnotes()

Dim p As Paragraph     Dim iFN As Integer     Dim J As Integer     Dim oCurPar As Object     Dim sTemp As String

For Each p In ActiveDocument.Paragraphs         sTemp = ""

iFN = p.Range.Footnotes.Count         For J = iFN To 1 Step -1             sTemp = p.Range.Footnotes(J).Range.Text & " " & sTemp             p.Range.Footnotes(J).Delete         Next J         sTemp = Trim(sTemp)

If sTemp > "" Then             Set oCurPar = p.Range             oCurPar.Collapse Direction:=wdCollapseEnd             oCurPar.MoveEnd Unit:=wdCharacter, Count:=-1             ActiveDocument.Footnotes.Add Range:=oCurPar, Text:=sTemp         End If     Next p End Sub

매크로는 각 단락의 각주 텍스트를 sTemp 문자열로 연결합니다. 그런 다음 단락 끝에 각주를 추가 할 때 사용됩니다. 이것은 매크로에 단점을 제공합니다. 즉, 텍스트의 서식이 아닌 텍스트 만 복사합니다.

예를 들어, 책에 대한 인용이 포함 된 여러 각주가있는 경우 해당 책 제목이 기울임 꼴로 표시 될 가능성이 높습니다.

매크로를 실행하면 모든 텍스트가 있지만 이탤릭체는 사라집니다. (내가 알고있는 서식을 그대로 새 각주로 전송하는 방법은 없습니다.)

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 인기있는 워드 프로세싱 소프트웨어입니다.)이 팁 (13767)은 Microsoft Word 2007, 2010, 2013, 2016, 2019 및 Office 365의 Word에 적용됩니다.