1.word打开时提示需要宏支持
打开WORD文档,提示需要宏语言VBA支持
解决方案一:word2010
1.首先打开word选择文件--选项
2.找到信任中心--点击信任中心设置。
3.找到宏设置--信任对VBA工程对象模型的访问前面打勾确定。
解决方案二:word2003
第1步,运行Word2003,打开Word2003窗口。在菜单栏中依次单击“工具”→“宏”→“Visual Basic 编辑器”菜单命令。
第2步,打开“Visual Basic 编辑器”窗口,在菜单栏中依次单击“插入”→“模块”菜单命令。
第3步,打开模块窗口,在窗口中输入三行代码:
sub macrodm()
MsBox “my macro”
End Sub
并在菜单栏依次单击“文件”→“关闭并返回到 Microsoft Word”菜单命令。在Word窗口中依次单击“工具”→“宏”→“安全性”菜单命令,打开“安全性”对话框。选中“低”单选框,并单击“确定”按钮。
第4步,保存并关闭当前的Word文件,然后再次打开该Word文件。这时将不会提示用户是否运行Word宏。
2.word 如何进入VBA
第一步:打开word,如果功能区有开发工具选项,跳到步骤四,如果没有,继续
第二步:打开【文件】选项,点选【选项】
第三步:选择“自定义功能区”中点选“开发工具”,然后点击确定
第四步:点击菜单栏的【开发工具】,点击“Visual Basic”选项,完成。
3.如何在Word中打开VBA编程窗口
一、编制程序 1.启动Word,连续点击“工具”,“宏”,“录制新宏。”
在弹出的对话框中填写宏名(此例为“作文稿纸”),选择宏要保存的位置(可以保存在模板中,也可以保存在当前文档中),如图1所示。 2.为了方便操作,可以将此宏以按钮的形式指定在工具栏中。
单击“录制宏”对话框中的“工具栏”按钮,在弹出的“自定义”对话框的右侧,选中宏命令“Normal.NewMacros.作文稿纸”,用鼠标将其拖动复制到“常用”工具栏,在其上单击右键,选择相应的命令修改名称,为其编辑一个小图标,结果如图2所示。 3.单击“录制宏”对话框中的“关闭”按钮,屏幕上将出现一个“录制宏”工具栏,单击停止按钮停止录制。
4.依次选择“工具”、“宏”、“宏…”,在对话框中选择宏名“作文稿纸”,单击“编辑”按钮,打开vba编程窗口。录入如下代码: Sub 作文稿纸()UserForm1.CommandButton1.Enabled = TrueUserForm1.ShowEnd Sub 5.插入一个窗体UserForm1,在其中插入4个标签,4个文本框,一个按钮。
分别设置它们的相关属性,其中,“所需行数”文本框的“text”属性值设为25,“所需列数”文本框的“text”属性值设为20,“行间距”文本框的“text”属性值设为0.5,“首尾空行高度”文本框的“text”属性值设为0.4,如图3所示。 6.双击命令按钮CommandButton1,录入以下代码: Private Sub CommandButton1_Click()Dim n As Integer '定义一个变量为整数型n = 1ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=Val(TextBox1.Text) * 2 + 1, NumColumns _:=Val(TextBox2.Text), DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixedSelection.EndKey Unit:=wdRow, Extend:=TrueSelection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNoneSelection.Tables(1).Rows.HeightRule = wdRowHeightExactly'设定表格行高为固定值Selection.Tables(1).Rows.Height = CentimetersToPoints(Val(TextBox3.Text))'设置表格行高为设置值,作为行间距Selection.Tables(1).Rows(1).Height = CentimetersToPoints(Val(TextBox4.Text))'设置第一行行高为设置值Do While n < val(textbox1.text)="" +="" 1selection.endkey="" unit:="wdLineSelection.MoveRight" unit:="wdCharacter," count:="2'将插入点移至下一行Selection.Tables(1).Rows(2" *="" n).height="Selection.Tables(1).Columns(1).PreferredWidth'设行高等于列宽Selection.EndKey" unit:="wdRow," extend:="TrueSelection.EndKey" unit:="wdLineSelection.MoveRight" unit:="wdCharacter," count:="2'将插入点移至下一行Selection.EndKey" unit:="wdRow," extend:="TrueSelection.Cells.Borders(wdBorderVertical).LineStyle" =="" wdlinestylenone'去除此行的内部框线,只余边框n="n" +="" 1loopselection.tables(1).rows(val(textbox1.text)="" *="" 2="" +="" 1).height="CentimetersToPoints(Val(TextBox4.Text))'设置末行高为设置值Selection.EndKey" unit:="wdRow," extend:="TrueSelection.Cells.Borders(wdBorderVertical).LineStyle" =="" wdlinestylenoneselection.tables(1).rows.alignment="wdAlignRowCenter'表格居中With" selection.tables(1).borders(wdborderleft).linewidth="wdLineWidth150pt.Borders(wdBorderRight).LineWidth" =="" wdlinewidth150pt.borders(wdbordertop).linewidth="wdLineWidth150pt.Borders(wdBorderBottom).LineWidth" =="" wdlinewidth150pt'设定表格边框为粗线end="" withselection.endkey="" unit:="wdLineUnload" me="" end="">
4.word如何使用vba
1、在Word中打开你需要处理的doc文档;
2、键入ALT+F11;
3、在出现的VBA窗口中,粘贴你下载的代码;
4、把键盘光标放到入口函数中任意一行代码上(如果你不知道是什么地方,可以把代码贴上来看看);
5、键入F5运行;
6、切换回doc文档窗口看效果。
补充:
哦,可能是因为你目前还没有任何宏所以才看到这样的灰色一片。
那就这样,现在左边的工程里面有个“Normal”吧?展开它后有个“模块”节点吧?在这个“模块”节点上点鼠标右键,选择“插入-模块”。这样右边就会出现代码窗口了。然后再按照上面步骤3-6。
如果还不清楚可以继续补充提问或发我信息。
转载请注明出处51数据库 » word打开显示VBA