vb建立新样式的问题，需再次打开文件才能生效

复制内容到剪贴板

代码:

.Styles.Add Name:="计算书标题", Type:=wdStyleTypeParagraph
    .Styles("计算书标题").AutomaticallyUpdate = False
    With .Styles("计算书标题").Font
        .NameAscii = "Calibri"
        .NameOther = "Calibri"
        .Name = "Calibri"
        .Size = 9
        .Bold = False
        .Italic = False
    End With
    With .Styles("计算书标题").ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceSingle
        .Alignment = wdAlignParagraphCenter
    End With

复制内容到剪贴板

代码:

myRange.Style = "计算书标题"