大家帮我看看
viber 2003-10-15 04:14:17 Dim mydoc As New Word.Application
Private Sub Command1_Click()
With mydoc
.Selection.TypeText Text1.Text
.Selection.Document.SaveAs App.Path
.Selection.Document.Password = "asdf"
End With
End Sub
编译能通过
可是运行的时候会抱错:对象变量或with块变量未设置