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

VBA语法错误

1 个答案: