把Word文档内2栏的排版，改成1栏

13907933959 · 发表于 2017-12-6 13:03

本帖最后由 13907933959 于 2017-12-6 14:17 编辑

各位前辈好！

该Word文档是由PDF的文件转换而来，想把文档内2栏的排版，改成1栏的（目录也可除外）。要求：文句的对接不能错。

我原来用的方法是：逐页手工选中，再“格式”→“分栏”→“一栏”→“确定”。这种手工方法对付短文档还成，长文档就太费功夫了，象该书有将近千页，想全选文档，一次性按上面的方法处理，但设置不了，所以、求前辈们帮忙，看有不有什么快捷的方法，如：查找＼替换、VBA什么的……。谢谢！

02761752696 · 发表于 2017-12-6 13:59

打开文件全选　　页面布局　　　分栏　　　　选择一栏　　　　就好了　　

13907933959 · 发表于 2017-12-6 14:31

02761752696 发表于 2017-12-6 13:59
打开文件全选　　页面布局　　　分栏　　　　选择一栏　　　　就好了　　

前辈好！
谢谢！您那里成吗？我用的是Word2003，我全选文档→“格式”→“分栏”→“一栏”→“确定”，但设置不了。不知什么原因？望再指教！如是因我用的Word版本低的问题，能否请您帮忙上传一个以设置好的给我？将万分谢谢！

szqhb · 发表于 2017-12-6 14:39

换种方法：将内容全选复制粘贴到文本文档中再贴回的新的Word文档中

13907933959 · 发表于 2017-12-6 16:07

本帖最后由 13907933959 于 2017-12-6 16:08 编辑

szqhb 发表于 2017-12-6 14:39
换种方法：将内容全选复制粘贴到文本文档中再贴回的新的Word文档中

前辈好！
感谢帮助！
这个方法也试过，就是文档内的很多表格、图片都会消失，如再把这么多的表格、图片逐个对应位置弄回去，也是一个工作量很大的事，所以想、有不有：既不让这些表格、图片消失，又可想把文档内2栏的排版，改成1栏的快捷方法？望再赐教！谢谢！

duquancai · 发表于 2017-12-6 23:18

Sub shishi()
ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=1
End Sub

13907933959 · 发表于 2017-12-7 08:27

duquancai 发表于 2017-12-6 23:18
Sub shishi()
ActiveDocument.PageSetup.TextColumns.SetCount NumColumns:=1
End Sub

杜前辈好！
您太厉害了！一句就搞定！真是高！拜谢！拜谢！

jiminyanyan · 发表于 2017-12-8 20:21

13907933959 发表于 2017-12-7 08:27
杜前辈好！
您太厉害了！一句就搞定！真是高！拜谢！拜谢！

您拍马屁的水平也是一流,哈哈......

13907933959 · 发表于 2017-12-9 10:14

jiminyanyan 发表于 2017-12-8 20:21
您拍马屁的水平也是一流,哈哈......

前辈！
怎么哪？有什么不对吗？我对人一直都是心存友善和尊重呀！我佩服杜前辈的技术！也并没有言过其实呀，对帮助我的前辈说一句感谢的话，这个也叫“拍马屁”？这个应该不算吧？

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

[求助] 把Word文档内2栏的排版，改成1栏