在诸多大神帮忙下，再加上自己发现可以从word宏那边看，总算完成一键复制不带格式
功能
Excel 从VBA的选单 " 工具 " -> "设定引用项目" Step 2 , 按浏览 , 接着去路径 C:\P
rogram Files\Microsoft Office\Office12\
里面会有一个 MSWORD.OLB的档案引用。
以下是vba内的写法
Sub 测试()
'
' 测试 宏
'
Dim appWD As Word.Application
Set appWD = Nothing
Set appWD = CreateObject("Word.Application")
appWD.Visible = True
appWD.Documents.Add '以上都是创出word档
Sheets("工作表4").Select
Range("A1:A4").Copy
appWD.Selection.PasteAndFormat (wdFormatPlainText) '(wdFormatPlainText)代表不
引用表格，这个其实我是在word内执行宏时回去看vba怎么写的再套入到excel内就成功
了
appWD.Selection.WholeStory '因为要用在其他的文件(非word)里，如果没有再复制一次
，剪贴的内容一样含表格，所以再全选一次word内的文字
appWD.Selection.Copy '再复制一次
appWD.Documents.Close SaveChanges:=False '关闭word档且不储存
appWD.Quit '关闭word程式
Set appWD = Nothing
Sheets("工作表2").Select '回到原工作表
End Sub