Word 문서에서 모든 제목의 글꼴

기본 구조는 다음과 같습니다 :

Public Sub ShowFontAndSize()
    Dim singleLine As Paragraph
    Dim lineText As String
    For Each singleLine In ActiveDocument.Paragraphs
     Debug.Print singleLine.Range.Font.Name
     Debug.Print singleLine.Range.Font.Size
    Next singleLine
End Sub

같은 줄에 다른 글꼴과 크기가 있으면 감지되지 않습니다. 이것이 가능하다면 For Each singleCharacter In singleLine.Range.Characters 로 다른 루프를 추가해야합니다.  단락 내부 루프.

편집 : 까다로운 문제는이 데이터를 수집 한 후에해야 할 일입니다. .append ()와 같은 기본 메소드를 사용하면 전체 배열을 다시 작성해야하므로 배열을 구축하는 것은 자연스러운 것처럼 보이지만 VBA 배열은 경계선을 쓸모가 없습니다. 그 길을 가고 싶다면 자세한 정보는 http://www.cpearson.com/excel/VBAArrays.htm을 참조하십시오.

가장 빠른 해결책은 Word에서 문서를 열고 객체 모델에 액세스합니다. 이것은 전통적으로 VBA를 사용하여 수행되지만 VSTO (Visual Studio Tools for Office)를 사용하여 .NET (예 : C # og VB.NET)을 사용할 수도 있습니다. 개인적으로 C #/VB.NET이 VBA보다 훨씬 더 나은 언어를 찾습니다.

객체 모델에 액세스 한 후에는 문서의 단락을 열거해야합니다. 제목 (아마도 스타일로 정의 됨)을 찾으면 제목의 형식을 파악해야합니다.

"HeadingStyles"에 대한 MSDN 페이지의 간단한 설명에서 얻은 것입니다.

MsgBox ActiveDocument.HeadingStyles(1).Style