word改文字的宏

文件里有很多种字体
我只要把 仿宋_GB2312 四号 换成 仿宋_GB2312 小四号的字体!~~
行距: 固定直 20磅
请帮忙写一个完整的宏 谢谢.
宏 我不是很会.麻烦了

因为要改的文件实在太多了！~只有写宏

方法：
启动WORD，新建一个空白文档，执行“插入——〉文件”命令，打开“插入文件”对话框，定位到需要解除保护的文档所在的文件夹，选中相应文档，单击“插入”按钮，将加密保护的文档插入到新文档中，文档保护会被自动撤销。
方法2：文件另存法
打开保护的文档，执行“文件——〉另存为”命令，打开“另存为”对话框，将“文件类型”选定为“WORD97—2003&6.0/95—RTF(*.doc)”，然后取名保存，关闭该文档，重新打开一下，执行“工具——〉取消文档保护”命令即可。或者将文件类型另存为HTML，然后将其中的内容，复制粘贴到新建文档中。
方法3：写字板法
启动写字板，打开保护的WORD文档，另存为WORD文档，同时可以取消对文档的保护。但此方法可能会使文档中的图片等要素丢失。

其实你不用写宏也行，录制宏就行了。下面是我录制好的宏，创建宏然后把代码拷进去就行：

Sub 宏1()
' 宏1 是你创建的宏名
'
Selection.Find.ClearFormatting
Selection.Find.Font.Size = 14
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Size = 12
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With