我已经自己解决了，终于找到替换方法了。因为wps不支持自定义样式集，但是支持自定义模板集，方法：
（1）%APPDATA%\Kingsoft\office6\templates\wps\zh_CN\在这个文件夹放入自定义样式集当做自定义模板集使用。wps可能路径不一样，和Normal.dotm放在一起的就是wps的自定义模板集文件夹。
（2）简单代码如下：
Sub 应用wps自定义模板集()
ActiveDocument.AttachedTemplate = "自定义模板集名称.dotx" ' 必须加后缀！可替换成任意名称；
ActiveDocument.UpdateStyles ' 更新样式（必须加）
End Sub
Lv.1 新人创作者