ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2442|回复: 12

求大神公司多个DOC批量格式设置

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-7-31 16:03 | 显示全部楼层 |阅读模式
本帖最后由 abcttud 于 2020-7-31 16:05 编辑

  某某市某某有限公司
反不正当竞争法部分内容
         题目两行居中,二号方正小标宋简体字体

(第三十次会议修订)
小标题3号仿宋(段落,段前、段后各1行,单倍行距)




(正文内容)

file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtml1/01/clip_image001.png第一章 总  则
  第一条 为了促进社会主义市场经济健康发展,鼓励和保护公平竞争,制止不正当竞争行为,保护经营者和消费者的合法权益,制定本法。 正文用3号仿宋_GB2312(A4纸,单页22行,每行28个字)

(尾页)
与正文内容后空4行,加入下面公司及日期,字体用3号仿宋_GB2312
某某市某某有限公司
         2001年2月2日

(某某市某某有限公司资料保存)
file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtml1/01/clip_image001.png

file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtml1/01/clip_image002.png本资料一式三份,一份办公室,一份财务,一份客户。

尾页最后加入以上统计表文字及一条横线,字体用3号仿宋_GB2312


请老师参照统一格式,谢谢!
[url=]公司批量格式.rar[/url]


公司批量格式.rar

8.3 KB, 下载次数: 20

TA的精华主题

TA的得分主题

发表于 2020-8-3 08:10 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
abcttud 发表于 2020-8-3 07:31
非常感谢gbgbxgb老师:

有三个问题还是想问下老师,1、页面多了条横线;2、篇头两行间距过大,固定 ...

续补:
关于横线,本人注意到代码运行后,的确在页眉处出现了横线,但打印预览后再退出,那横线即行消失,故怀疑你反馈的这问题事实上是不存在的。

TA的精华主题

TA的得分主题

发表于 2020-7-31 21:12 | 显示全部楼层
楼主,我的《自动排版宏》你用了没有?如果用了,只须按 F8 公文排版后,按两次《第一章》宏,然后再自己设置一下尾部文字即可,何必求各位老师出手呢?


另:有一个问题是问大家的:
uncpt1.gif

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-1 05:58 来自手机 | 显示全部楼层
413191246se 发表于 2020-7-31 21:12
楼主,我的《自动排版宏》你用了没有?如果用了,只须按 F8 公文排版后,按两次《第一章》宏,然后再自己设 ...

请提供代码,谢谢!

TA的精华主题

TA的得分主题

发表于 2020-8-1 12:02 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
* 楼主,无法提供代码!请在本坛界面上自行目视搜索《Word2007-2019 自动排版宏(通用)(金秋版)2020-7-19》帖子和《Word2003 自动排版宏(金秋版)2020-7-14》两个帖子,下载后参照说明使用。
* 因为,我的自动排版宏,是一个体系,不是一两个简单的宏。强烈建议 楼主 下载试用。
* 另外,楼主 关于公文排版的看法,我觉得还是 97 年的旧标准,现在,我认为不必按照过去的标准来排版了!我现在公文排版是全文 1.5 倍行距,每行多少文字、每页多少行是自然自动排列的,不是人为规定的。排版后文档美观大方,基本符合最新 2012 版本公文排版规范。
* 如果 楼主 下载试用我的排版宏后,只须打开文档,按 F8 进行公文排版,然后,在《加载项》选项卡点击《第一章》宏,最后选择"第一章/标题2/居中“即可自动对全文”第X章“段落进行自动编号排版;再一次点击《第一章》宏,最后选择”第一条/居中/正文加粗/黑体加粗”即可自动对全文“第X条”段落进行自动编号排版。——但注意,楼主 提供的示例文档,“第一章”段落未做排版,因为它不是普通文字,它有问题(可手动删除后重新键入)。

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-2 09:03 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-8-2 10:04 | 显示全部楼层
试试附件。

自排版某市某公司.rar

12.16 KB, 下载次数: 28

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-8-3 07:31 | 显示全部楼层
本帖最后由 abcttud 于 2020-8-3 07:35 编辑

非常感谢gbgbxgb老师:

有三个问题还是想问下老师,1、页面多了条横线;2、篇头两行间距过大,固定值为32磅;3、多篇文章如何批量生成并保存。谢谢!

TA的精华主题

TA的得分主题

发表于 2020-8-3 08:02 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
abcttud 发表于 2020-8-3 07:31
非常感谢gbgbxgb老师:

有三个问题还是想问下老师,1、页面多了条横线;2、篇头两行间距过大,固定 ...

1.页面多了横线
不知道你说的横线在哪里。猜测是指页眉?你成天跟公文打交道,连个页眉也说不出来?自顾自问话?
我这没看见页眉有横线。
2.篇头两行间距过大
你发求助时说到篇头的两行间距设为固定值32磅了么?
我只是因为从没写过排版的宏,出于练习尝试写写代码而已,还是以前那话,至淘宝网店订制(但提醒下,即便你付费,若想代码一劳永逸地完美地符合你的各篇文章的细节上的排版需求,基本上是不可能的)。
3.多篇文章批量保存
不想写了,因为逐一打开多个文档的代码我都写烂了,没什么再练习的欲求,你另行发帖求助。
这里提供个较方便方法,试试看(描述的步骤不严谨,且仅针对Word2003版本,自行斟酌着看):
1.打开含代码的文档;
2.打开菜单中“宏”命令;
3.打开宏“管理器”;
4.复制当前宏至Normal模板;
5.至此,Normal模板有了宏,故你可打开任意的word文档运行该宏进行排版了。

多啰嗦一句:若干时间后,若不再需要Normal模板中的那宏,参照上述进入宏“管理器”从而把那宏从Normal模板中删除。

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-8-5 14:14 | 显示全部楼层
* gbgbxgb 老师 辛苦了!写了不少代码,老师的代码好!但变量名字我觉得不如单个字母简洁。
* 昨晚,总算知道把一些文档中的 Shapes 删除,才能正确排版“第一章”等,一直忙到现在,完事了。
*
* 楼主,请把我的压缩包下载并保存到 D 盘根下,双击释放之。
* 请打开你的 Word2003,关闭文档,按 Alt + F8 打开宏名列表看看是否有宏(如果无字符则无宏)。
* 如果有宏,请关闭对话框,按 Alt + F11 打开 VBE,点击 Normal 模块右键删除(左上角);然后关闭 VBE 编程环境。
* 如果无宏,请按 Alt + F11 打开 VBE 编程环境,再按 Ctrl + M 导入我的宏文件 NewMacros.bas,然后关闭 VBE 编程环境。
*
*** 请将你要批量排版的文档放入一个新建文件夹中,然后做个备份(复制另存即可),再应用我的宏。
* 打开 Word2003,按 Alt + F8 打开宏名列表,点击第一宏《aaaa批量排版》,再点击右边“运行”按钮,显示打开文件对话框,请找到你的要批量排版的文件夹(如果不在根下,要双击文件夹名称,不断双击,直到找到你要批量排版的文件夹后,点击"确定“按钮,即可批量排版。
* 如果点击宏名列表中的《BatchFormat》宏,则进行单个文档自动排版。有问题请反馈。
* 由于代码太多,难以粘贴,请 楼主 下载压缩包:(请将扩展名由 rar 改为 exe,否则,你可能打不开它!) BatchFormat.rar (310.45 KB, 下载次数: 10)
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-24 05:46 , Processed in 0.050779 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表