word批量排版，求解！

ai55xin · 发表于 2018-1-11 11:22

本帖最后由 ai55xin 于 2018-1-12 09:06 编辑

   最近工作中出现了大量文字材料，需要本人统一修改固定格式，再给领导看，请问有什么快捷方法让在下学习一下吗，比如VBA，本人特别希望学会这项操作，真的对我的工作有特别大的帮助！（本人word版本2007）
   一般我需要修改成的格式是：页面设置：上3.5，下3，左3，右3；
                                                标题：方正小标宋简体，小二；
                                                职务名称及姓名：楷体GB2312，三号；
                                                正文：仿宋GB2312，三号，段落首行缩进2字符，行距固定值30；
                                                正文一级标题：黑体，三号；
                                                正文二级标题：楷体GB2312，三号；
                                                正文三级标题：仿宋GB2312，三号，加粗；
                                                页码需要先判断原来是否有，有的统一删除，修改成统一样式：1,2,3，字体为Times New Roman。

P.S.各位大神本人之前没有描述清楚，我这里有多个文档，每个文档格式和形式不一，导致正文一级标题，二级标题需要人为判断哪些是，所以如果用录制宏来统一修改的话，也就只能做到页面设置统一修改，其他的都办不到了，我想问的是：各位大神有没有更好的思路可以简化我修改格式的流程和方法。
本人拜谢！！！

kerry786032 · 发表于 2018-1-11 15:38

Sub test()
'
Dim MyDialog As FileDialog, vrtSelectedItem As Variant, doc As Document
Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
If MyDialog.Show = -1 Then
Application.ScreenUpdating = False
For Each vrtSelectedItem In MyDialog.SelectedItems
Set doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=True)
With doc
'对于文档的修改自己填
.Close True
End With
Next
Application.ScreenUpdating = True
End If
MsgBox "格式化文档操作设置完毕!", vbInformation
End Sub

复制代码

kerry786032 · 发表于 2018-1-11 15:39

把你的要求录制成宏，填到代码里就可以了

kerry786032 · 发表于 2018-1-11 16:05

本帖最后由 kerry786032 于 2018-1-11 17:01 编辑

怎么发回复还要审核

ai55xin · 发表于 2018-1-12 09:07

kerry786032 发表于 2018-1-11 15:38

大神能简单讲一下你这代码的大概意思吗，本人小白

ai55xin · 发表于 2018-1-12 09:08

kerry786032 发表于 2018-1-11 15:39
把你的要求录制成宏，填到代码里就可以了

我现在解决不了的是，每个文档形式和格式不一致，我需要人为判断哪些是一级标题和二级标题，我想问的是有没有更加简化的流程和方法修改格式吗，谢谢

ai55xin · 发表于 2018-1-12 09:10

kerry786032 发表于 2018-1-11 16:05
怎么发回复还要审核

感谢您的大力支持，顶帖光荣

kerry786032 · 发表于 2018-1-12 12:34

ai55xin 发表于 2018-1-12 09:08
我现在解决不了的是，每个文档形式和格式不一致，我需要人为判断哪些是一级标题和二级标题，我想问的是有 ...

这已经是很简单的流程了，你说的那些判断，不管怎么样都是绕不开的，你要去学判断的语句。然后把语句放到代码里，那段代码我也经常用，是可以用的。http://study.163.com/course/courseMain.htm?courseId=1003088001，给你推荐个教程吧

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