本示例将剪贴板中的 Microsoft Word 文档对象粘贴到 Sheet1 上的单元格 D1 中。
Worksheets("Sheet1").Range("D1").Select
ActiveSheet.PasteSpecial format:= _
"Microsoft Word 8.0 Document Object"