VB批量修改多文档为统一样式

单位有很多文档，全部需要改成（标题二号宋体加粗居中，二级标题三号仿宋GB_2312加粗居中，正文三号仿宋GB_2312，段落间距段前0、段后0，行距1.5倍，字间距1）的样式，一个个打开手动更改的话非常麻烦

插入模块运行后提示修改完成，但是文档还是没有变化

Sub 批量修改word文档()
p = ThisDocument.Path & "\文档" '获取当前路径
f = Dir(p & "*,doc") '遍历DOC格式文件名
Do While f <> "" '循环直到文件名为空
Set wd = Documents.Open(p & f) '设置word对象
With wd.Paragraphs(1).Range.Font '设置首段字体格式
.Name = "宋体" '设置字体
.Size = 22 '设置字号
.Bold = 1 '设置加粗
End With
wd.Paragraphs(1).Format.Alignment = wdAlignParagraphCenter '设置居中
a = wd.Paragraphs(2).Range.Words.Count '获取第二行字数
If a > 1 Then '如果第二行不为空，就插入段空行
wd.Paragraphs(1).Range.InsertParagraphAfter
End If
For i = 2 To wd.Paragraphs.Count '从第二段开始循环
With wd.Paragraphs(i).Range.Font '设置首段字体格式
.Name = "仿宋_GB2312" '设置字体
.Size = 16 '设置字号
.Kerning = 1 '调行字间距
End With
With wd.Paragraphs(i).Format '设置段落格式
.LineSpaoing = 24 '设置行距
.CharacterUnitFirstLineIndent = 2 '首行缩进两个字符
End With
Next
wd.Close True '关闭并只在
Set wd = Nothing '释放word对象
f = Dir '将下一个word文件赋值给变量f
Loop
MsgBox "修改完成"
End Sub

运行显示修改完成，但是文档样式并没有改变

后来想着是不是因为路径不对，更改路径后还是不行，又想着是不是文档格式不对，改成docx后也不行

求指点是不是代码错了

没保存？