如何用excel VBA 将word中的某段剪切至同一文档的某表格的一个单元格中

吹吹

各位：我尝试了好久，通过excel VBA 实现将某WORD文档的任意几段剪切至该文档某表格的任一单元格中，没有实现，很郁闷，请各位看看

konggs

Sub 孤独一叶() Dim awod As Word.Application, adoc As Word.Document Set awod = CreateObject("word.application") Set adoc = awod.Documents.Open(Filename:="G:\第一段.doc", Visible:=False) With adoc Worksheets(1).Cells(1, 1) = adoc.Paragraphs(1).Range End With adoc.Close awod.Quit End Sub

[此贴子已经被作者于2006-1-15 11:50:56编辑过]

吹吹

如何几段复制在同一单元格中呢？另外，在Excel中引用word VBA的 .PasteAndFormat会出错，不知为啥，请版主看看

konggs

用range

例如：

Worksheets(1).Cells(1, 1) = adoc.Range(.Paragraphs(1).Range.Start, .Paragraphs(3).Range.End)

PS说明：我不是版主[em04]，守柔（老大）还是如意（版版）才是版主。

吹吹

哦，明白了，再问：在Excel中引用word VBA的 .PasteAndFormat会出错，不知为啥，请版主看