本示例将所选内容第一段的段落和字符格式复制到第二段。

With Selection
    .Paragraphs(1).Range.Select
    .CopyFormat
    .Paragraphs(1).Next.Range.Select
    .PasteFormat
End With