求助大神如何在多页word文档中按需要数字生成独立新文档

adlsn2123 · 发表于 2018-12-26 23:36

现有多页word文档需要生成独立word文件并进行挂接，求助各位大神了。

adlsn2123 · 发表于 2018-12-26 23:38

不知道怎么卡住了图片和文件没看到了重新发出

413191246se · 发表于 2018-12-27 08:50

楼主，怎么挂接？你并未说会不会VBA，还有，我看“不动产单元号”都是一样的，是不是不一样？是根据“不动产单元号”生成单个文件吗？请详细说明。

adlsn2123 · 发表于 2018-12-27 15:10

谢谢回复，vba还在学习中接触不久。挂接不需要手动处理由数据库软件自动导入，只需要文档名称对应就行，不动产单元号是不一样的都是单独的号码不会有重复的。就是以不动产单元号生成文档名称进行数据库挂接

ming0018 · 发表于 2018-12-27 16:31

按页生成文档的代码坛子里应该很好找，有很多案例了。

adlsn2123 · 发表于 2018-12-27 16:35

本帖最后由 adlsn2123 于 2018-12-27 16:44 编辑

谢谢回复，也找了很多案例可以按页生成。可是文件名称不对应，需要手动更改文件名

413191246se · 发表于 2018-12-28 01:25

* 思路：取得单元号后，循环遍历每个表格并复制（连同标题）到新建文档中保存。
* 请楼主备份原文件后试用下面的代码（最好将原文件放到一个新建文件夹中）：

Sub test()
Dim t As Table, s$, p$
p = ActiveDocument.Path & ""
For Each t In ActiveDocument.Tables
With t
.Rows.WrapAroundText = False '取消文字环绕
s = .Range.Cells(3).Range.Text '不动产单元号
s = Left(s, Len(s) - 2)
.Select
End With
Selection.MoveStart 4, -1 '选定表格向上扩展一个段落（选定标题）
Selection.Copy
Documents.Add.SaveAs FileName:=p & s '新建文档另存为
With Selection
.Paste
ActiveDocument.Characters(1).Copy '变相清空剪贴板
End With
ActiveDocument.Close savechanges:=wdSaveChanges '保存
Next
ActiveDocument.Close savechanges:=wdDoNotSaveChanges '不保存
End Sub

复制代码

ming0018 · 发表于 2018-12-28 08:22

413191246se 发表于 2018-12-28 01:25
* 思路：取得单元号后，循环遍历每个表格并复制（连同标题）到新建文档中保存。
* 请楼主备份原文件后试 ...

Sub testFormatTxt()
Selection.GoTo wdGoToPage, wdGoToAbsolute, 1
Selection.Bookmarks("\page").Range.Select
Dim Rng As Range
Set Rng = Selection.Range
Selection.EndKey Unit:=wdStory
Selection.Range.FormattedText = Rng
End Sub
自己领悟一下。

adlsn2123 · 发表于 2018-12-28 08:33

感谢大侠深夜回复，非常感谢大侠，刚刚运行了一遍代码。已经能按需要的数值创建文档了，但生成之后表格页面显示为竖版页面，需要手动调整到横版。还有文档内的生成应该是取消了分节符。导致页面信息丢失了。最后一栏的调查员与调查日期在生成后不见了。

adlsn2123 · 发表于 2018-12-28 12:06

感谢两位大侠的帮助，楼主属于初学者，两位大侠的代码都正在摸索当中。现在的想法是在保留分节符的情况下再调整word系统设定模板为横版页面进行文档分割，保证文档数据完整，进行横版生成文档

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

[求助] 求助大神如何在多页word文档中按需要数字生成独立新文档

评分

评分