怎样用开发语言在word中建宏？

惊叹不已

在VBA编辑器窗口

惊叹不已

1.选中Project,击右键或在选工具"Project属性"菜单,在"保护"选项卡中勾中选项及输入密码.(要退出Word再进入才生效) 2.出现对话框时,你要按"否"才能关闭VBA编辑器 3.在模块窗口的第1行插入API函数声明就行了,其他代码也是用插入行的方法,CreateEventProc方法是建立事件(New,Open,Close等)代码而已. 不会呀,即使有文档打开也不会出错的呀,出错提示是什么? Foxmail的图标可能是用API函数吧,具体用什么函数我也不大清楚,API函数我懂的也就几十个而已.

[此贴子已经被惊叹不已于2002-4-5 16:47:57编辑过]

惊叹不已

从右键菜单的选项和帮助的内容来看，应该不能把按钮的图标换成自己的图标，不知道有没有这方面的API函数，我找找看。 录制宏后，VBA会自动增加一个名为NewMacros的模块，你也可以用代码增加 Set st = Application.Templates("Normal.dot").VBProject.VBComponents.Add(vbext_ct_StdModule) st.Name = "NewMacros"

惊叹不已

启动Word时是可以自动执行宏的,只要在任一模块内增加一个AutoExec宏就行了. 不让用户修改宏是可以手工设置的,不过好象没有编程的方法实现,不过可以用API实现. 下面的例子在Word启动时询问是否让用户修改宏,选择否将无法打开VB编辑器. Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long Sub AutoExec() yn = MsgBox("是否让用户修改宏?", vbYesNo) If yn = 7 Then Application.Templates("Normal.dot").VBProject.VBComponents("ThisDocument").CodeModule.CodePane.Show ret = GetForegroundWindow DestroyWindow ret End If End Sub Office XP我没有用过,出现这样的错误提示不知道是不是宏的安全级别设置的问题.

惊叹不已

不知你所说的"存到记事本或者能取到的地方？"是否指另存为其他文件还是另存为Word文档?

惊叹不已

格式和图形全部被复制,把光标移到另一页或在另一文档,按粘贴按钮就可以看到了. 可以存为的格式包括Txt,Html,Rtf等,按"保存"按钮后,在"保存类型"可以看到.

[此贴子已经被惊叹不已于2002-4-5 10:06:53编辑过]

惊叹不已

下列代码判断是否已存在按钮,如存在就不增加,否则增加 Private Sub Document_Open() For i = 1 To Application.CommandBars(1).Controls.Count If Application.CommandBars(1).Controls(i).Parameter = "Good Day" Then existed = True Next If existed = False Then Set myBar = Application.CommandBars(1) Set myControl = myBar.Controls _ .Add(Type:=msoControlButton, Parameter:="Good Day") With myControl .FaceId = 3 .OnAction = "shellcal" End With myBar.Visible = True End If End Sub Sub shellcal() Shell "c:\winnt\notepad.exe", vbNormalFocus End Sub

惊叹不已

引用Microsoft Visual Basic For Application Extendsibility 5.3

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

惊叹不已

这些事件都是在打开文档时才起作用,不打开文档启动Word不会执行这些事件,我也在寻找启动Word就自动执行宏的方法.在帮助中用关键字"自动执行"搜索,得出结果说在快捷方式的目标框加入开关就可以启动时执行宏,但这不是用程序的方法实现,看来还是得问问微软专家. 你是想在工具栏上加一个按钮还是加一条工具条?

[此贴子已经被惊叹不已于2002-4-4 12:06:01编辑过]

惊叹不已

Private Sub Command1_Click() Dim App As New Word.Application Dim doc As Word.Document App.Visible = True Set doc = App.Documents.Add With App.Templates("Normal.dot").VBProject.VBComponents("ThisDocument").CodeModule .DeleteLines 1, .CountOfLines '删除全部代码 .CreateEventProc "Open", "Document" .InsertLines 2, "Msgbox""打开文档就会自动运行." Me.Print "代码总行数:" & .CountOfLines Me.Print "第二行的内容为:" & .Lines(2, 1) Me.Print "事件代码所在行:" & .ProcBodyLine("Document_Open", vbext_pk_Proc) Me.Print "事件内代码总行数:" & .ProcCountLines("Document_Open", vbext_pk_Proc) Me.Print "第3行属于事件:" & .ProcOfLine(3, vbext_pk_Proc) Me.Print "事件名称所在行:" & .ProcStartLine("Document_Open", vbext_pk_Proc) Me.Print "通用声明的行数" & .CountOfDeclarationLines Me.Print "是否含有字符'Open':" & .Find("Open", 1, 1, 10, 20) .InsertLines 5, "'I Like VBA" .InsertLines 6, "'I also like VB " .ReplaceLine 5, "'We all like VBA" End With App.Templates("Normal.dot").Save '保存模板 doc.Close wdDoNotSaveChanges '退出,不保存文档 App.Quit Set App = Nothing End Sub