Paul은 Word VBA를 사용하여 삽입 지점이있는 각주의 각주 번호를 반환하려고합니다. 그의 경우 각주에 두 개 이상의 단락이 포함될 수 있습니다. Paul은 VBA에서이 각주 번호를 결정하는 방법이 있는지 궁금합니다.

각주 개체의 Index 속성을 사용하여 각주 번호를 확인할 수 있습니다. 다음은이 정보가 어떻게 유용 할 수 있는지 보여주는 빠른 방법입니다.

Sub GetFootnoteNumber()

Dim f As Footnote     Dim sTemp As String

sTemp = "The insertion point is not in a footnote"

For Each f In ActiveDocument.Footnotes         If Selection.InRange(f.Range) Then             sTemp = "The insertion point is in footnote " & f.Index         End If     Next     MsgBox sTemp End Sub

매크로는 문서의 각 각주를 단계별로 실행합니다. 선택 (삽입 지점)이 특정 각주에있는 것으로 확인되면 해당 각주의 Index 속성을 사용하여 sTemp 변수에 메시지를 넣습니다. 각주를 반복하면 sTemp 변수가 메시지 상자에 표시됩니다.

문서에 많은 각주가있는 경우 모든 각주를 반복하고 싶지 않을 수 있습니다. 이 경우 선택 항목의 Information 속성을 사용하여 삽입 지점이 현재 각주에 있는지 확인할 수 있습니다.

Sub GetFootnoteNum()

Dim J As Integer     Dim sTemp As String

sTemp = "The insertion point is not in a footnote"

If Selection.Information(wdInFootnote) Then         J = Selection.Paragraphs(1).Range.Footnotes(1).Index         sTemp = "The insertion point is in footnote " & J     End If     MsgBox sTemp End Sub

또한 액세스하는 각주의 속성을 확장하여 특정 각주에 대한 다른 정보를 얻을 수 있습니다. 다음 매크로는 각주 번호뿐만 아니라 번호 매기기 규칙, 번호 매기기 스타일 및 각주의 시작 번호도 반환합니다.

Sub GetFootnoteInfo()

Dim f As Footnote     Dim sTemp As String          sTemp = "The insertion point is not in a footnote"

If Selection.Information(wdInFootnote) Then         Set f = Selection.Paragraphs(1).Range.Footnotes(1)

sTemp = "Footnote number: " & f.Index & vbCr         With f.Range.FootnoteOptions             sTemp = sTemp & "Numbering Rule: " & .NumberingRule & vbCr & _               "Numbering Style: " & .NumberStyle & vbCr & _               "Starting Number: " & .StartingNumber         End With     End If     MsgBox sTemp End Sub

_ 참고 : _

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

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

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

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