录制Word宏,并将Word宏代码转换为Javascript代码.docVIP

录制Word宏，并将Word宏代码转换为Javascript代码 1、概述 为了加速代码编写，我们可以首先通过录制Word宏的方式来查看完成相应功能所需要的代码，然后转换为JavaScript代码。本文以插入表格为例，描述将宏转换为Javascript代码的过程及注意问题。[本文大部分内容同时适应于EXCEL] 2、为什么不直接在文档中使用宏 1）在Word 2003中，由于安全性问题，默认情况下宏是被禁用的，不能被执行。2）有宏的文档在打开的时候会有安全性提示，导致用户感觉不友好。 3、开始录制插入表格宏 1）打开word。选择工具－宏-录制新宏： 2）在随后出现的窗口中，“将宏保存在：”下拉框中，选择文档1(文档) 3）从常用工具栏中，点击插入表格按钮，并选择一个3行3列的表格，如下图： 4）在宏录制工具栏上，点击停止录制按钮，如下图所示： 5）此时，文档中出现了一个3行3列的表格。如下图所示： 4、查看宏代码 1）选择工具-宏-Visual Basic 编辑器。如下图所示。 2）在出现的Visual Basic窗口中，从左边展开Project(文档1)中的模块，并双击NewMacros。如下图： 3）右边窗口中的代码如下： Sub Macro1() Macro1 Macro 宏在 2007-02-02 由 用户19 录制 ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _wdAutoFitFixedWith Selection.Tables(1) If .Style 网格型 Then .Style = 网格型 End If.ApplyStyleHeadingRows = True.ApplyStyleLastRow = True.ApplyStyleFirstColumn = True.ApplyStyleLastColumn = True End With End Sub 5、VBA代码分析 以下是vba代码的分析。先看第一条语句： ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _wdAutoFitFixed 以上语句调用了ActiveDocument的Tables集合对象的Add方法。添加一个Table对象到文档中。 With Selection.Tables(1) If .Style 网格型 Then .Style = 网格型 End If.ApplyStyleHeadingRows = True.ApplyStyleLastRow = True.ApplyStyleFirstColumn = True.ApplyStyleLastColumn = True End With 以上语句设定当前插入点所在Table(也就是刚刚加入的Table对象)的Tyle属性，以及ApplyStyleHeadingRows等属性。 6、VBA代码转换为JavaScript代码应该注意的问题 将VBA代码转换为JavaScript代码过程中，有几个问题需要注意： 1）VBA中的常量应该使用数字代替。比如上面以下VBA语句中的wdWord9TableBehavior以及wdAutoFitFixed。 ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=3, NumColumns:= _3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _wdAutoFitFixed 要得到VBA常量的数字值，可以在Visual Basic编辑器中，随便输入一个Sub过程，加入MessageBox 常量即可。比如，要显示wdWord9TableBehavior的常量值，代码如下图所示： Sub showConst() MsgBox wdWord9TableBehavior= wdWord9TableBehavior End Sub 将光标定位到Msgbox语句所在行，点击工具栏上的运行按钮。如下图所示： 即可