[求助]如何将wordk的表格部分单元格复制到Excel当中？

jscpj

请教如何将Word表格中部分单元格复制到Excel中。

还有，哪此对象或属性是标示所选内容的当前页数？谢谢

守柔

你说的是VBA中吗？

jscpj

是指VBA。不知道代码怎么写。

另外，我这还有一个表格，比较难处理，我将其内容全选复制到新建文档中，从560K变成了40K不知道里面哪来这么多看不到的垃圾。请版主估计是哪有问题，文件大，我不能上传。

守柔

粘贴选中单元格的代码请参:

Sub CellsPaste() Dim xlObj As Excel.Application, xlWb As Excel.Workbook If Tasks.Exists("Microsoft Excel") = True Then

Set xlObj = GetObject(, "Excel.Application") Else Set xlObj = CreateObject("Excel.Application") End If Set xlWb = xlObj.Workbooks.Add Selection.Paste xlWb.ActiveSheet.Paste ' xlObj.Quit

End Sub

强调:必须在WORD VB编辑器中工具/引用:勾选MICROSOFT EXCEL 10(版本不同各不同,XP为10) Object library

当然用代码也可实现,可搜索一下本人的相关贴子.(有一个文本朗读的程序代码)

本示例显示当前页码和活动文档的总页数。

MsgBox "The selection is on page " & _    Selection.Information(wdActiveEndPageNumber) & " of page " _    & Selection.Information(wdNumberOfPagesInDocument)

至于文档大小,可以通过记事本或者写字板打开,对比一下,两者的差异.

jscpj

有劳版主，不胜感激

[em29]