Question

Word 如何用VBA 实现在字体不同的段落间加回车

要求用VBA实现，比如只有发现前一段是“Time Roman”字体,后一段是“Helvetica”字体时，才在两者间加回车键，其他时候不加。

Answer 1

用vba解决，代码如下

Answer 2

请问你说的两个段落之间本来有没有回车（段落标记）？还是说是连续的一段话有两种不同的字体，需要对其分段？

追问

两个段落之间有回车。希望能控制插入的回车键的字体，和前一段字体的相同。

追答

Sub cp_paragraph()
    On Error GoTo end_tag
    Dim curr_paragraph As Object
    Dim next_paragraph As Object
    Dim insert_paragraph As Object
    For Each curr_paragraph In Paragraphs
        Set next_paragraph = curr_paragraph.Next
        If curr_paragraph.Range.Font.Name <> next_paragraph.Range.Font.Name Then
            curr_paragraph.Range.InsertParagraphAfter
            Set insert_paragraph = curr_paragraph.Next
            insert_paragraph.Range.Font = curr_paragraph.Range.Font
        End If
    Next
end_tag:
End Sub