请教！

惊叹不已

对于主菜单，可以用Name属性定位 For i = 1 To app.CommandBars.Count Me.Print app.CommandBars(i).Name & " " Next 对于子菜单，可以用Caption For i = 1 To app.CommandBars("File").Controls.Count Me.Print app.CommandBars("File").Controls(i).Caption & " " Next

惊叹不已

下例使文件菜单的第三项不可见. Dim app As New Word.Application app.Documents.Add app.Visible = True app.CommandBars("File").Controls(3).Visible = False

[此贴子已经被惊叹不已于2002-4-17 10:16:35编辑过]

惊叹不已

两个例子要引用Microsoft Word9.0 Object Library和 Microsoft Visaul Basic For Applications Extensibility 5.3 1. Dim app As New Word.Application app.Visible = True app.Documents.Add With NormalTemplate.VBProject For i = 1 To .VBComponents.Count If .VBComponents(i).Name = "模块1" Then MsgBox "模块1存在" Exit For End If Next End With 2.下例在Normal.dot中增加一个窗体,并在窗体上增加一个控件. Dim app As New Word.Application app.Visible = True 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 = "NewForm1" 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

惊叹不已

你的急不急?如果不急我明天再告诉你,我现在有点忙,抱歉!