WORD怎么按页批量生成EXL

猪腰子 · 发表于 2019-7-30 00:24

本帖最后由猪腰子于 2019-7-30 00:28 编辑

附件.7z (27.8 KB, 下载次数: 6) 如题有一个挺大的word文档，每一页是一个表格，格式都一样。要把把它每一页生成一个独立的EXL。。。折腾了半天只在论坛上找到一个word按页分裂成word的VBA，还只能取每页第一行做文件名，可是我的表格每一页第一行都是一样的。跑了半天就生成一个文件。。。
我想把每一页表格中标红加粗的第六行第三列作为文件名，但是怎么搞都取不了值。。求大神指导一二。

这个是我看守柔前辈贴的。那个Fn取值怎么改都改不对。。

Sub SaveAsPage()
Dim PageCount As Integer, StartRange As Long, EndRange As Long, MyRange As Range, Fn As String, MyDoc As Document
On Error Resume Next
PageCount = Selection.Information(wdNumberOfPagesInDocument)
Range(0, 0).Select '将光标移至文档起点
For i = 1 To PageCount '设置循环次数
StartRange = Selection.Start '取得该页的第一个字符位置
Selection.EndKey Unit:=wdLine '将光标移动到该页首行的最后位置
Fn = Range(StartRange, Selection.End - 1) '-1的目的是防止该页首行含有段落标记,导致出错.
If i = PageCount Then '如果循环到达最后一页
EndRange = ActiveDocument.Content.End '将文档最后位置赋值于EndRange
Else
Selection.GoToNext (wdGoToPage) '否则,将下一页的起始位置赋值于EndRange(等同于本页的最后位置)
EndRange = Selection.Start
End If
Set MyRange = Range(StartRange, EndRange) '将本页中的内容进行复制
MyRange.Copy
Set MyDoc = Documents.Add '新建一空白文档
MyDoc.Range(0, 0).Paste '在文档开始处粘贴
MyDoc.SaveAs FileName:=Fn '保存文档名
MyDoc.Close '关闭文档
Next
End Sub

复制代码

deadzlq · 发表于 2019-7-30 08:33

如果只是取表格数据，可以在VBA Word中参考ThisDocument.Tables的对象调用

猪腰子 · 发表于 2019-7-30 08:47

......零回复这么尴尬吗

猪腰子 · 发表于 2019-7-30 08:48

deadzlq 发表于 2019-7-30 08:33
如果只是取表格数据，可以在VBA Word中参考ThisDocument.Tables的对象调用

好的，谢谢大佬，我刚到公司，来研究研究。。

猪腰子 · 发表于 2019-7-30 10:51

deadzlq 发表于 2019-7-30 08:33
如果只是取表格数据，可以在VBA Word中参考ThisDocument.Tables的对象调用

大佬能不能教我一下，怎么把这个宏里面，文件名的取值变一下。。。Fn那一行好像是直接取第一行内容，怎么能改成取第六行第三格内容

413191246se · 发表于 2019-7-30 12:42

楼主，建议最好把附件以 RAR 格式发上来，我们不想再安装一个 7Z 把你的附件解压。
下面是当光标在表格中时，第6行3列单元格的文本：
Sub test()
Dim i$
'光标放在该表格中
i = Selection.Tables(1).Cell(6, 3).Range
i = Left(i, Len(i) - 2)
MsgBox i
End Sub

猪腰子 · 发表于 2019-7-30 12:55

413191246se 发表于 2019-7-30 12:42
楼主，建议最好把附件以 RAR 格式发上来，我们不想再安装一个 7Z 把你的附件解压。
下面是当光标在表格中 ...

[url=]附件.zip[/url]

额，大佬们都用的winrar吗，原表太大了，附件放不下，我截取了三页做了个小样，格式ZIP了应该能打开了，烦请指教一下。。。感激不尽

413191246se · 发表于 2019-8-2 06:54

* 楼主，你好！我觉得你态度很好，我很喜欢。

* 现在通用的压缩软件还是 WinRAR（最早我最喜欢 WinZip，但听了朋友们的建议改用了 WinRAR）。因为 7-Zip 一般是不安装的，有 WinRAR 就够了，所以一般提供附件最好是用 WinRAR，最通用。

* 附件无需太大，3 页已足够。附件看了，觉得每页都是很漂亮的表格，横向的，只须调整页边距，使其居中即可。

* 楼主，我暂且先不编码。因为我觉得没有必要编码，不管会不会。这么好看的表格，为什么要拆分，为什么要放到 Excel 中去？目的是什么？——我使用 Word 多年，最熟悉；Excel 也会一点点，会几个函数公式，但几乎不怎么使用。——各位朋友都需要明白一点：Word 是“文字处理”软件，Excel 是“数据处理”软件，这个不要弄混淆了！

* 楼主，请好好想想：为什么要把这么好看的 Word 表格放到 Excel 中去呢？要查询数据？上级要求？

changhong8 · 发表于 2019-8-3 15:15

我以前帮个哥们写过一个总表台账按模板生成分表的，里面的信息跟你这完全一样，你们是一个单位的吗？

xxcza · 发表于 2019-8-3 17:47

本帖最后由 xxcza 于 2019-8-3 17:48 编辑

可以加我QQ 93070784 我以前做过类似的

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

[求助] WORD怎么按页批量生成EXL