请教！

sirlotus

搞定了，谢谢斑竹“惊叹不已”，你真另我惊叹不已啊，我请客，如果你在北京时间你定地点你定，吃什么.........我定！！呵呵....

sirlotus

呵呵....没问题！就等你来了，哦，你懂wps编程吗，现在北京这边的政府都用wps

sirlotus

呵呵...不是去政府单位，而是做政府单位的项目，北京的政府机关有很大一部分用wps，我想可能是支持国产软件吧

惊叹不已

不过关于wps方面的编程资料实在太少了,我还没见过,而且,我在广东

惊叹不已

不懂,政府单位用wps可能是因为它是国产的,认为它安全一点吧,去政府单位有什么好,太正规,太严肃了,动不动就要接受思想政治教育,呵呵.....

惊叹不已

那改天上北京找你,随便一间五星级酒店就行了,吃嘛,我从来不讲究,龙虾鲍鱼,鱼翅燕窝我通通都吃,从不挑食. [em06]

惊叹不已

哈哈,看来你是要请客的了,MM的可有? Dim app As New Word.Application Dim st As String app.Visible = False app.Documents.Add With NormalTemplate.VBProject.VBComponents("ThisDocument").CodeModule s = .Find("Private Sub Document_Open()", 1, 1, .CountOfLines, 200) If s = False Then st = "Private Sub Document_Open()" & vbCr & _ "MsgBox""打开文件就自动运行." & vbCr & _ "End Sub" .AddFromString st Else MsgBox "Document_Open事件已存在" End If End With app.Quit Set app = Nothing

惊叹不已

这个基本上......比较难.

惊叹不已

不会的,看不到的,你把程序改成这样: Dim app As New Word.Application app.Visible = False app.Documents.Add Dim uf3 As VBComponent Dim ufwin As Variant Dim bt As Variant Set uf3 = NormalTemplate.VBProject.VBComponents.Add(vbext_ct_MSForm) uf3.Name = "Form1" Set ufwin = NormalTemplate.VBProject.VBComponents(uf3.Name).Designer Set bt = ufwin.Controls.Add("InetCtls.Inet.1") Set uf3 = Nothing Set ufwin = Nothing Set bt = Nothing app.Quit Set app = Nothing

惊叹不已

app.Visible=False