目标
通过制定统一的模板和工作流程,通过使用自动化操作,提升word排版效率。
模板
附件3-龙软公司排版模板2021.dotm
Word中怎样设置文档模板
https://jingyan.baidu.com/article/d621e8da0b1a182865913fba.html
重命名为Normal.dotm,覆盖C:UsersAdministratorAppDataRoamingMicrosoftTemplates里的文件
快捷键
目前的word常用快捷键
https://www.jianshu.com/p/d5f2117fb329
word默认的快捷键
标题1:Alt+Ctrl+1
标题2:Alt+Ctrl+2
标题3:Alt+Ctrl+3
正文段落:Ctrl+shift+N
自定义快捷键
正文段落:Ctrl+3
图:Ctrl+4
表:Ctrl+6
工作流程
以前的word文件调用最新的模板:更改样式-样式集-重设为模板种的快速样式。
新word文件默认使用最新的模板。
- 大纲
一级、二级、三级,快捷键分别改一级二级和三级 - 正文文字添加
批量替换关键字 - 正文表格添加
注记及交叉引用 - 正文图片添加
注记及交叉引用
ThesesAssistDrawer v4.0绿色破解版(附注册码)http://www.32r.com/soft/67598.html
使用3.0破解版的主程序ThesesAssistDrawer_Word-LC_Cracked.exe,将注册码CCC482-C6860C-E73C9F-4B24E6-FD4811粘贴到上方文本框内,然后单击 注册 按钮。
- 生成目录
- 首页样式
- 正文文字样式
ctrl+A选中所有文字,右键-字体-西文字体里选中Times New Roman,用来改英文字体。 - 正文表格格式
全选表格,统改格式。无法批量修改标题行的跨页显示。
Word中怎么一次选中所有表格
https://blog.csdn.net/pz641/article/details/113975625
宏代码
'**************************************
' 函数名: SelectAllTables
' 功 能:主要是把WORD文档中的所有表格选取上,以便单独对文档中的所有表格进行整体编辑。
'**************************************
Sub SelectAllTables()
Dim tempTable As Table
Application.ScreenUpdating = False
'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护,此时不能选中多个表格!"
Exit Sub
End If
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub
- 正文图片样式
替换“图 ”为“图” - 目录页码调整
总结
使用快捷键和脚本进行批量修改能达到事倍功半的效果。
还不快抢沙发