中关村在线

首页 排行 新品 问答 下载 论坛 手机 笔记本 数码相机 主板 显卡 平板电脑 更多

word文档肿么把一页分成左右两部分

举报
讨论回答 (8)
liulong261032
narnix
dbybetpgdx
w2626221
opyu
rongjianghai
wei270012
tutuweiwu
wps没办法操作,需要在word中进行操作。方法如下:


1.在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);

2.键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;

3.粘贴下面的代码:
Option Explicit
Sub SplitPagesAsDocuments()

Dim oSrcDoc As Document, oNewDoc As Document

Dim strSrcName As String, strNewName As String
    Dim oRange As Range
    Dim nIndex As Integer
    Dim fso As Object
    
    Set fso = CreateObject("***.file边systemobject承茶住")
    Set oSrcDoc = ActiveDocument
    Set oRange = ***.content


    ***.collapse wdCollapseStart
    ***.select


    For nIndex = 1 To activedocument.***.information(wdNumberOfPagesInDocument)
       ***.bookmarks("page").***.copy
        ***.windows(1).Activate
        application.***.target = wdBrowsePage
        application.***.next
       
        s信普担trSrcName = ***.fullname
        strNewName = ***.buildpath(***.getparentfoldername(strSrcName), _
                    ***.getbasename(strSrcName期守门只) & "_" & nIndex & "." & ***.getextensionname(strSrcName))
        Set oNewDoc = ***.add
        ***.paste
        ***.saveas strNewName
        ***.close False
    Next


    Set oNewDoc = Nothing
    Set oRange = Nothing
    Set oSrcDoc = Nothing
    Set fso = Nothing


    MsgBox "结束!"


End Sub

4.键入F5运行,看到“完成!”结束。



5.检查当前文档所在路径下是否生成若干名为“原始文档_***.doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。

6.如文档中有报任持官双花分节符分解后的文档会出现空白页,如要分解后不出现空白页,需要把文档中的分节符删除。
消除分节符的方法(如下图):

展开查看全部 8 条讨论
精品应用推荐
新浪微博 新浪微博 天气通 天气通 淘宝特价版 淘宝特价版 UC浏览器 UC浏览器
相关问题

Word文档里的内容,不小心全部删了,然后点了保存,文档内容怎么找回来

1024 浏览 1 回答

室友给我发个假word,现在我打开微信里面自己的wrod也会变成这种,这怎么解决啊

945 浏览 0 回答

WOL远程开机尝试失败,请教症结在哪

1231 浏览 0 回答

扩展阅读

AOC推出K1S激光投影 为何选择ALPD光源技术

评论 13

AOC推出K1S激光投影 为何选择ALPD光源技术

刷新安兔兔性能跑分纪录,高通“新大招”太猛了

评论 18

刷新安兔兔性能跑分纪录,高通“新大招”太猛了

价格太卷了!300元的降噪耳机能买吗?

评论 13

价格太卷了!300元的降噪耳机能买吗?

专业色彩和标杆亮度 AOC K1S激光投影震撼上市!

评论 25

专业色彩和标杆亮度 AOC K1S激光投影震撼上市!

一加Ace 3 Pro性能实测 跑满120帧原神不是梦

评论 15

一加Ace 3 Pro性能实测 跑满120帧原神不是梦
热门问题

苹果怎么打开apk 苹果怎么打开apk

8552 浏览 6 回答

苹果怎么打开apk 苹果怎么打开apk

樱花漫画官方网站入口是什么?

2.1万 浏览 3 回答

樱花漫画官方网站入口是什么?

我的微信群被人举报了,肿么可以查到是谁举报的?

1.6万 浏览 8 回答

我的微信群被人举报了,肿么可以查到是谁举报的?

微信客户服务电话95188人工时间?

2.4万 浏览 3 回答

微信客户服务电话95188人工时间?

求推荐一款笔记本。工科研究生用,便于随身携带。平时做科研,处理数据,查阅文献。不玩网游和单机,至多玩棋牌游戏和影音。喜欢摄影,需要修图。附加:纠结要不要带数字键盘区。预算最多8000。尽量便宜些。

1.2万 浏览 2 回答

求推荐一款笔记本。工科研究生用,便于随身携带。平时做科研,处理数据,查阅文献。不玩网游和单机,至多玩棋牌游戏和影音。喜欢摄影,需要修图。附加:纠结要不要带数字键盘区。预算最多8000。尽量便宜些。

苹果手机总是自动锁屏怎么处理?

1.3万 浏览 4 回答

苹果手机总是自动锁屏怎么处理?

键盘按字母键没反应,我的是笔记本电脑,忽然就打不了字了,按字母键没

1.3万 浏览 5 回答

键盘按字母键没反应,我的是笔记本电脑,忽然就打不了字了,按字母键没

2022芝麻分800以上全国多少人

2.1万 浏览 3 回答

2022芝麻分800以上全国多少人

95017忽然发一条微信支付短信,是什么意思

1.7万 浏览 2 回答

95017忽然发一条微信支付短信,是什么意思

笔记本键盘打斜线怎么打出来的啊?

1.4万 浏览 5 回答

笔记本键盘打斜线怎么打出来的啊?
最新问答

win7电脑右下时间 怎么精确到秒 已经设置好了就是不显示

1.4万 浏览 8 回答

win7电脑右下时间 怎么精确到秒 已经设置好了就是不显示

新版的EXCEL已经设置好的打印区域该怎样取消

3377 浏览 4 回答

新版的EXCEL已经设置好的打印区域该怎样取消

怎么用WPS打开Xmind文档?

2166 浏览 5 回答

怎么用WPS打开Xmind文档?

PS CC里面图像,方式里面颜色表怎么是灰的呢?没有可选按钮。怎么才能点击呢?

5542 浏览 4 回答

PS CC里面图像,方式里面颜色表怎么是灰的呢?没有可选按钮。怎么才能点击呢?

win10笔记本电池图标不见了是怎么回事

1.2万 浏览 4 回答

win10笔记本电池图标不见了是怎么回事
举报
举报成功

经过核实后将会做出处理,感谢您为社区和谐做出贡献。

请选择删除原因
删除成功
确定推荐该回答?
推荐成功

更多频道

频道导航
辅助工具