目标

通过制定统一的模板和工作流程，通过使用自动化操作，提升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文件默认使用最新的模板。

1. 大纲
   一级、二级、三级，快捷键分别改一级二级和三级
2. 正文文字添加
   批量替换关键字
3. 正文表格添加
   注记及交叉引用
4. 正文图片添加
   注记及交叉引用

ThesesAssistDrawer v4.0绿色破解版(附注册码)http://www.32r.com/soft/67598.html
使用3.0破解版的主程序ThesesAssistDrawer_Word-LC_Cracked.exe，将注册码CCC482-C6860C-E73C9F-4B24E6-FD4811粘贴到上方文本框内，然后单击 注册 按钮。

1. 生成目录
2. 首页样式
3. 正文文字样式
   ctrl+A选中所有文字，右键-字体-西文字体里选中Times New Roman，用来改英文字体。
4. 正文表格格式
   全选表格，统改格式。无法批量修改标题行的跨页显示。

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

1. 正文图片样式
   替换“图 ”为“图”
2. 目录页码调整

总结

使用快捷键和脚本进行批量修改能达到事倍功半的效果。

重新发布

偶尔找到了2019年的存档，就把数据恢复了一下。

备份

把文章都保存了一份。

恢复

恢复2019年的存档，更新后台。

检查

发现资料都在，不过，还要重新写最新的文章。先这样吧。

好久不见

搭建在nas上

一个t201p的nas，上面虚拟了linux系统，终于把这个博客重新搭建起来了。时过境迁，上面的图片链接有的也找不到了，感觉有点唏嘘。

重新分类

文章按类型重新分类了。

科技以换名为主

现在摩尔定律基本已失效，intel新出的cpu基本没有改变，i5九代居然和i5八代一样。

准备采购笔记本电脑，给老婆用。
要求：
1.重量轻，适合搬运。
2.屏幕效果好。
3.质量好。
4.散热好。

然后看了网上5000元左右的价位，基本都是坑爹货，显卡没一个能打的。
看了这个dell的还不错，没有明显的短板，相对来说也不太重。
i5的cpu，全金属机身，1650的4G显卡，8g内存，512g的ssd，没发现有什么短板。
https://item.jd.com/100005625380.html#crumb-wrap

写了一个win下的自动删除数据库备份的脚本，以后就可以自动删除，不需要人工干预。

代码如下：

@echo off
for /f "tokens=2* delims=:" %%a in ('fsutil volume diskfree e:') do set ds=%%a
set "d1=%ds:~,-6%"&set "d2=%ds:~-6%"
set/a "ds=((d1>>10)*1000000+d2)>>10>>10"
echo 当前e盘剩余空间为%ds%G
if %ds% lss 20 (
    forfiles /p E:\数据库备份\差异备份\LKJT_Base_1.4.8 /s /d -90 /m *.bak /c "cmd /c del /f /s /q @file"
    forfiles /p E:\数据库备份\完整备份\LKJT_Base_1.4.8  /s /d -90 /m *.bak /c "cmd /c del /f /s /q @file"
    echo 执行磁盘清理，删除早期的数据库备份
) else (
    echo 当前e盘剩余空间充足，脚本将不进行任何操作。
)
echo 执行完毕。此脚本将于10秒后自动关闭！
ping 127.0.0.1 -n 10 >nul

使用方法是新建一个freespace的bat文件。把代码复制进去，修改需要监控哪个盘，在fsutil volume diskfree e:里把e改为其他的盘符。
if %ds% lss 20的单位是G，可以指定磁盘空间小于多少G时开始删文件。
forfiles /p E:数据库备份差异备份LKJT_Base_1.4.8 /s /d -90 /m *.bak /c "cmd /c del /f /s /q @file" -90改为其他的，如60天前，就是-60