如何在橫跨兩頁的1*1表格中, 插入分页,把某段落的文字移到下一页?

nsterx · 发表于 2020-3-2 00:38

本帖最后由 nsterx 于 2020-3-2 18:51 编辑

本人的工作需要重复的把一些word 文档作出以下修改:
1)找到固定段落(通常在第2页末端)(如图黃色段落),
2) 然后把该段落及往后的内容移到下一页,即独立第3页,(该段落的意思是要求客户签名,这一步骤设立第3页就是让客户在阅读首两页后,在第3页,该段落末的行线上签名)

一般情况来说在找到1)后, 在该段落开始处插入新分页便可, 但由于该段落整个文本都是存放于一个1*1的表格中, 该表格横跨2,3页,
如果在这个表格中插入新分页会把整个表格中的内容,包括不是我要找的段落(如图中绿色段落), 都放在第3页中.

所以在表格中是怎样插入分页?
还是有方法用VBA 把整个我要找的段落及往后內容放到下一个新分页中?

感恩.

example.zip (23.08 KB, 下载次数: 1)
example photo.png

nsterx · 发表于 2020-3-2 00:41

追问:若果要用到VBA, VBA能不能判断find 的结果是不是已经在第3页?

nsterx · 发表于 2020-3-2 02:42

nsterx 发表于 2020-3-2 00:41
追问:若果要用到VBA, VBA能不能判断find 的结果是不是已经在第3页?

这个找到了" If Selection.Information(wdActiveEndPageNumber) = 3 Then"

nsterx · 发表于 2020-3-3 18:56

找到解决方法了,在找到想要的段落后,把表格转换为文字, 然后就如正常的插入分页便可.
表格转为文字的VBA: Selection.Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
NestedTables:=False

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

[求助] 如何在橫跨兩頁的1*1表格中, 插入分页,把某段落的文字移到下一页?