VBA 구문 오류

Question

Word 2010 표준 빠른 스타일을 직접 재정의하려고합니다.

이

With tempDoc.Styles(wdStyleNormal) '// <-- here is the error 
     .Font.Name = "Arial" 
     .Font.Size = 10 
     .ParagraphFormat.Alignment = wdAlignParagraphJustify 
     .ParagraphFormat.LineSpacing = 12 
End With 

당신은 여기에 전체 코드를 찾을 수 있습니다 : 아래와 같이하지만 오류가 당신은 다음과 같은 문서를 설정해야 http://qranberry.com/stackoverflow/code.bas

Answer 1

을 .. 코드는 테스트 내 시스템

에서 잘 작동

Sub test() 
Dim tempDoc As Document 
Set tempDoc = ActiveDocument 
With tempDoc.Styles(wdStyleNormal) ' or u can use activedocument instead of tempdoc 
     .Font.Name = "Arial" 
     .Font.Size = 30 
     .ParagraphFormat.Alignment = wdAlignParagraphJustify 
     .ParagraphFormat.LineSpacing = 12 
End With 
End Sub