本示例将剪贴板中的 Microsoft Word 文档对象粘贴到 Sheet1 上的单元格 D1 中。

Worksheets("Sheet1").Range("D1").Select

    ActiveSheet.PasteSpecial format:= _

    "Microsoft Word 8.0 Document Object"