如何从WORD中截取几段文字并存入另一个WORD文档？

'在窗体中添加一个命令按钮: Private Sub Command1_Click() Dim MyWord As Object '创建宏对象 Set MyWord = CreateObject("Word.Application") With MyWord '创建一个Word文档 .Documents.Add.SaveAs FileName:=App.Path & "\test.doc" '返回这个文档中的第一个单词 StrText = .ActiveDocument.Words(1).Text '因为这个新建的Word文档没有写入任何内容,因此StrText的值为""'保存文档 .ActiveDocument.SaveAs FileName:=App.Path & "\test.doc" .Documents(App.Path & "\test.doc").Close '关闭文档End WithSet MyWord = Nothing '返回变量StrText MsgBox StrTextEnd Sub这段代码会在您的当前目录下生成一个标准Word文档,文件名为"test.doc",最后的对话框会返回文档中第一个单词""(因为没有写入内容.) 以下代码用于读取Word文档中的第一个单词,直接复制即可: Private Sub Command1_Click() Dim MyWord As Object Set MyWord = CreateObject("Word.Application") '创建宏对象 With MyWord .Documents.Open FileName:="YourWordName" '打开文档,这里是您要读取的文档的名字,您必须自行修改 StrText = .ActiveDocument.Words(1).Text '返回这个文档中的第一个单词 .Documents("YourWordName").Close '关闭文档,这里的文件名必须和打开的文件名一致,请自行修改End WithSet MyWord = Nothing MsgBox StrText '返回读取到的文档内容End Sub这此代码是一定要用上的，绝对会对你有帮助。

　　1、复制法。
　　打开已有word文档，复制一段文字。新建一空白文档，粘贴刚复制的文字。然后重复几次复制粘贴，直到把要复制的文字都粘贴过来。最后点击保存，保存成新文档。
　　2、删除法。
　　先把已有文档另存成一个新文档。然后把不需要的文字一一删除，最后再保存即可。