어떻게 각주 번호를 상호 참조로 바꾸는 매크로를 만들 수 있습니까?

내 Word 문서에는 "위의 각주 3"과 같은 텍스트가 자주 있습니다. 3을 각주 3의 실제 상호 참조로 바꾸고 각주 번호 매기기가 변경되면 업데이트되도록하겠습니다. 어떻게 상호 참조를 자동으로 삽입하도록 매크로를 만들 수 있습니까?

당신은 InsertCrossReference 회원 Selection 목적:

Sub MkXref()
Selection.InsertCrossReference wdRefTypeFootnote, wdFootnoteNumber, Selection.Text, True
End Sub

이 매크로를 사용하려면 키보드 단축키에 할당하고 상호 참조 할 숫자 또는 그 앞에 커서를 놓은 다음 할당 된 단축키를 누릅니다.

일부 학술 저작물에서는 각주 1이 저자 이름에 붙어 있으며 번호는 매겨지지 않습니다. 이렇게하면 번호 매기기가 해제됩니다. Word의 계산에 따라 "각주 1"로 나타나는 메모는 실제로 각주 2입니다. 이 문제를 해결하려면 산술 연산을 할 수 있습니다. Section.Text:

Sub MkXref()
Selection.InsertCrossReference wdRefTypeFootnote, wdFootnoteNumber, (Selection.Text + 1), True
End Sub

여기에는 오류 처리가 없다는 점에 유의하십시오.