[天啊求助]word 转化为excell

butong · 发表于 2004-10-27 22:02

大约有90页word文档，将每一页内容都全选复制保存为一页sheet。如何做？？请斑竹帮忙.

butong · 发表于 2004-10-30 23:40

就是没人理我！自己说：于每页word上做标记。统一的放于一张sheet上复制，然后找到标记再复制到各个sheet上。

守柔 · 发表于 2004-10-31 05:43

以下是引用butong在2004-10-27 22:02:00的发言： 大约有90页word文档，将每一页内容都全选复制保存为一页sheet。如何做？？请斑竹帮忙.

以下代码粘贴于该WORD文档的“THISDOCUMENT”代码窗口中，并在VBE的工具引用中(见下图)选取此引用:Microsoft Excel 10.0 Object Library（版本不同其中的序号（10.0)亦有所不同),然后运行此代码即可.

Sub aPageSaveAsWksheet()

Dim MyRange As Range, i As Integer, StRange As Long, EndRange As Long, Pages As Integer

Dim AppExcel As Excel.Application, Wk As Excel.Workbook, Wksh As Excel.Worksheet, shcount As Integer

On Error Resume Next

Application.ScreenUpdating = False

Set AppExcel = CreateObject("Excel.Application")

Set Wk = AppExcel.Workbooks.Add

shcount = Wk.Sheets.Count

With ActiveDocument

Pages = .Content.Information(wdNumberOfPagesInDocument)

.Range(0, 0).Select

For i = 1 To Pages

If i <= shcount Then

Wk.Sheets(i).Activate

Else

Set Wksh = Wk.Sheets.Add(After:=Wk.Sheets(Wk.Sheets.Count))

End If

StRange = Selection.Start

If i = Pages Then

EndRange = .Content.End

Else

EndRange = Selection.GoToNext(wdGoToPage).Start

End If

Set MyRange = .Range(StRange, EndRange)

MyRange.Copy

AppExcel.ActiveSheet.Paste

MsgBox "分页复制工作结束，请自行保存该工作薄!", vbOKCancel + vbInformation

AppExcel.Visible = True

Application.ScreenUpdating = True

End Sub

zxg007 · 发表于 2004-10-31 22:41

word也有工程引用啊？那“THISDOCUMENT”在哪啊，找不到。

butong · 发表于 2004-11-1 18:05

守柔真是上帝，太厉害了。

butong · 发表于 2004-11-2 07:20

大家快下载呀！

zhoumh989 · 发表于 2010-4-24 21:51

原帖由守柔于 2004-10-31 05:43 发表
以下是引用butong在2004-10-27 22:02:00的发言：
大约有90页word文档，将每一页内容都全选复制保存为一页sheet。如何做？？请斑竹帮忙.

以下代码粘贴于该WORD文档的“THISDOCUMENT”代码窗口中，并在VBE的工具 ...

请问把每页的word内容转到每个excel工作薄中呢，而不是一个工作薄的不同工作表。

		自动登录	找回密码
密码			免费注册