打开Doc1.dotm文件时，如何自动将下面的代码写入文档1的ThisDocument中

偶然古月照江北

打开Doc1.dotm文件时，如何自动将下面的代码写入文档1的ThisDocument中
Private Sub CommandButton1_Click()
    Selection.WholeStory: Selection.Delete unit:=wdCharacter, Count:=1
End Sub

偶然古月照江北

有哪位大神帮忙啊

偶然古月照江北

大神们都春眠了吗

守候_CJ

Word VBA：打开事件+自动写入代码
在模块【ThisDocument】中写入下面代码

1. Private Sub Document_Open()
   
2.     Dim d: d = Word.Application.DisplayAlerts
   
3.     Dim s As String
   
4.     Word.Application.DisplayAlerts = wdAlertsNone
   
5.    
   
6.     s = "Private Sub CommandButton1_Click()" & vbCrLf & _
   
7.         "    Selection.WholeStory: Selection.Delete unit:=wdCharacter, Count:=1" & vbCrLf & _
   
8.         "End Sub"
   
9.     Me.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString s
   
10.    
    
11.     Word.Application.DisplayAlerts = d
    
12. End Sub

复制代码

打开测试文档【Doc1-自动添加代码.docm】，可以看见代码已经自动添加进去

留下思考：
如果已经有了需要添加的代码，保存文档后，二次打开出错怎么解决？

偶然古月照江北

谢谢！问题是我要在dotm模板文件中实现，不是在docm文件中啊

偶然古月照江北

已经解决：
Private Sub Document_New()
    Dim lngStartLine As Long
    With ActiveDocument.VBProject.VBComponents("ThisDocument") .CodeModule
           .InsertLines 1, "Private Sub CommandButton1_Click()"
           .InsertLines 2, "      Selection.WholeStory: Selection.Delete unit:=wdCharacter, Count:=1"
           .InsertLines 3, "End Sub"
      End With
End Sub
关键是之前用的ThisDocument，应该用ActiveDocument