VBA를 사용하여 MS Word의 모든 문자를 반복 할 수 있습니까?

Question

외국어의 음역이 포함 된 약 100 개의 Word 문서가 있습니다. 이 문서의 작성자는 e2이라는 특수 글꼴을 사용했으며 약 12 ​​개의 특수 음역 문자 (모두 Microsoft Sans Serif 글꼴에서 사용 가능)가 있습니다.

나는 모든 문서의 편지와 .Font = "e2" 내가 다스 문자를 통해 반복하고 싶습니다 때마다 및 Microsoft Sans 고딕 동등한로 교체 (그들이 무엇인지 추측하기 쉬운)을 반복하고 싶습니다. 하지만 글자를 어떻게 반복 할 수 있는지는 알 수 없습니다. Excel 스프레드 시트에서 셀을 반복하는 것과 같은 일입니까?

Answer 1

이렇게하는 것이 하나의 방법 일 수 있지만 문서의 크기에 따라 실행하는 데 시간이 오래 걸릴 수 있습니다.

Sub ChangeFonts() 
Dim doc As Document 
Set doc = ActiveDocument 

For i = 1 To doc.Range.Characters.Count 
    If doc.Range.Characters(i).Font.Name = "e2" Then 
     doc.Range.Characters(i).Font.Name = "Microsoft Sans Serif" 
    End If 
Next 

End Sub 

Answer 2

docx로 저장할 수도 있고 zip 파일로 열고 document.xml 및 fontTable.xml에서 검색/바꿀 수도 있습니다.

Answer 3

mswords 형식을 사용하십시오. & 대체하십시오. 당신은 시간을 절약 할 것입니다 & 큰 파일은 관심사가되지 않습니다.