텍스트 선택 및 각주 삽입

Question

Word 문서에서 마우스를 사용하여 단어 나 구를 선택하고 매크로를 실행하고 싶습니다. 매크로는 다음과 같아야합니다.

1. 선택한 단어 또는 구 끝 부분에 각주를 삽입하십시오.
2. 선택한 텍스트를 각주에 이탤릭체로 복사하고 콜론을 따라야합니다.

Answer 1

발 메모를 추가 할 때 미리 입력해야합니다. 다음 쉼표를 사용할 준비가 된 쉼표 뒤에 공백을 추가했습니다.

 Sub AddFootNote() 

     NewFootNote = Selection & Chr(44) & Chr(32) 

     With Selection 
      With .FootnoteOptions 
       .Location = wdBottomOfPage 
       .NumberingRule = wdRestartContinuous 
       .StartingNumber = 1 
       .NumberStyle = wdNoteNumberStyleArabic 
      End With 
      .Footnotes.Add Range:=Selection.Range, Text:=NewFootNote 

     End With 

    End Sub 

-edit- 당신이 당신의 발 노트를 확인하려면

는이 부분을 추가 할 수 있습니다 기울임 꼴이다.

With ActiveDocument.Styles("Footnote Text").Font 
    .Italic = True 
End With