word vba调用段落设置中中文版式

您可以使用以下代码调用Word VBA中的段落设置，并设置中文版式：

Sub SetChineseParagraphStyle()
    '设置文档中所有中文段落的版式为"标题 1"
    
    Dim para As Paragraph
    
    For Each para In ActiveDocument.Paragraphs
        If para.Range.Characters(1).Font.NameFarEast = "宋体" Then
            para.Style = "标题 1"
        End If
    Next para
    
End Sub

请注意，此代码仅设置文档中所有中文段落的版式为"标题 1"。如果您需要设置其他版式，请相应地更改代码中的样式名称。

相关问题

word vba调用段落中文版式

您可以使用以下代码调用Word VBA中的段落设置，并设置中文版式：

Sub SetChineseParagraphStyle()
    '设置当前所选段落的版式为"标题 1"
    
    If Selection.Range.Characters(1).Font.NameFarEast = "宋体" Then
        Selection.Paragraphs.Style = "标题 1"
    End If
    
End Sub

请注意，此代码仅设置当前所选段落的版式为"标题 1"。如果您需要设置其他段落的版式，请相应地更改代码中的对象。

word vba调用中文版式

您可以使用以下代码调用Word VBA中的样式，并设置中文版式：

Sub SetChineseStyle()
    '设置文档中所有中文文本的版式为"标题 1"
    
    Dim rng As Range
    
    For Each rng In ActiveDocument.StoryRanges
        With rng.Find
            .ClearFormatting
            .Font.NameFarEast = "宋体"
            .Execute
        End With
        
        Do While rng.Find.Found
            rng.Style = "标题 1"
            rng.Collapse wdCollapseEnd
            rng.Find.Execute
        Loop
        
    Next rng
    
End Sub

请注意，此代码将文档中所有中文文本的版式设置为"标题 1"。如果您需要设置其他版式，请相应地更改代码中的样式名称。