宏调用word保存的参数

发布日期：2021-04-07

如何在WORD文档中使用别人保存的宏？

在wod中使用“工具”/“宏”/“录制宏”，然后在该文档中进行一些必要的设置，设置完毕后，关闭“录制宏”对话框，这样一个宏就录制好了。

然后是给宏取一个名，将它拖移到桌面的工具栏中。

这样你在另一篇文档中若要使用和该宏——即前面那篇文档相同的设置，只要你选中文本，点击工具栏中的宏就可以迅速完成。

这就是宏的录制与使用过程。

求个WORD批量处理宏要求：将一个文件夹里的所有WORD文件（当

这个其实非常简单，编几行代码便可瞬间完成，根本不用一个文件一个文件地来，全部批量自动化操作并保存关闭。

以Wod2003为例。

Wod2007类似。

首先你可以用Wod打开所有的DOC文档，然后菜单“工具---宏”，输入宏名：全部文档小五号，在“宏的位置”选择“Noma t（共用模板），再点“创建”，把以下代码复制粘贴到里面就可以了。

不论你是打开20还是50个文档，可以说是瞬间完成。

本方法是通过一个循环遍历所有打开的文档进行操作。

将变量doc定义为一个文档类型document，而Documents代表所有打开的文档，然后通过Fo Each循环遍历所有打开的文档，全选每一个文档并将字体设为9号字（即小五号）。

为了以后方便使用，你可以选择菜单“工具---自定义”，点“命令”选项卡，在左边的“类别”中找到“宏”，将右边的这个宏命令拖放到工具栏，以后点一下工具栏这个按钮就可以了，还可以点击这个窗口下边的“键盘”按钮，找的方法同上，给这个宏命令设定一个快捷方式。

以后想用时绝对超级方便快捷。

是否保存或既保存并关闭由你自己决定（修改代码即可），如果某个文档是新建的文档且从未保存过文件名，则弹出“另存为”对话框，如果全部是打开的文档，则自动保存并全部关闭。

Su 全部文档小五号（） On Eo Resume Next Dim doc As Document Fo Each doc In Documents With doc .Activate .Application.Selection.WholeStoy "全选 .Application.Selection.Font.Size = 9 "字体大小设为9号（即小五号） .Save "保存文档 .Close "关闭文档 End With Next doc End Su

Excel用宏来调用其它Excel文件的数据,并复制下来保持于这个Excel中...

你的这个很简单，代码如下： Sub C5C15_B3B13() Dim Fo As Object, myName As String Set Fo = Application.FileDialog(msoFileDialogFilePicker) Fo.Title = ＂请选择您要复制C5:C15数据的文件：＂ If Fo.Show = True Then myName = Fo.SelectedItems(1) If myName = ＂＂ Then MsgBox ＂您取消了文件选择，所以本次处理未完成，将直接退出＂， vbOKOnly + vbInformation Exit Sub End If Dim wb as Workbook For Each wb in Workbooks if wb.Fullname = myName then Goto wbHasOpened Next set wb = workbooks.open(myname)wbHasOpened: Dim sh as worksheet For each sh in wb.sheets if sh.name = ＂Voice Quality＂ Then [b3:B13] = sh.[c5:c15].value Exit For end if Next Msgbox ＂处理完成！＂ wb.close TrueEnd Sub...

如何调出Word的这个宏安全界面？

答复楼主：Wod当中，嵌入的宏，就是一种将用户操作，与处理动作编成系列批命令的实现工具。

用户可以借助这个功能，简化一些列经常操作。

提高文书处理效率。

可以看成为一种功能化的编程。

非法的制造病毒者，也有利用这个功能，在Wod文件中，嵌入病毒的。

这样的应用，显然与宏的原本思想相违背。

属于不正当的行为。

以下为实例参考！----一、宏的录制 在这里举一实例。

例如，在Wod 97中，要插入字符，则往往要到符号框中查找半天。

对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。

1.单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。

2.给宏取名为“Yuan”，再单击“键盘”。

3.在弹出的对话框中指定快捷键，可指定为“Ctl+Y”，再关闭该对话框回到“录制宏”对话框。

单击“确定”按钮启动记录器。

4.运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。

另外，也可以指定到工具栏，从弹出的“自定义”对话框中的“命令”栏中把“Nomal.NewMaco1.Yuan”拖放到工具栏中。

5.单击“停止录制”工具栏中的“停止录制”按钮。

6.单击“工具”选单中“宏”子选单，再单击“宏”命令。

7.选择第二步中的宏名称，再单击“编辑”按钮。

这时我们可以从中看到以下代码： Su Yuan() Selection.InsetSymol Font：=″楷体—GB2312″，ChaacteNume:=-27,Unicode:=Tue End Su 以后，当你需要插入字符“￥”时，只需按下快捷键“Ctl+Y”，或者是在工具栏点击“Nomal.NewMacol.Yuan”便可以了。

二、宏的编辑 宏录制器将以上宏操作翻译为Visual Basic代码。

但是，录制宏时会受到一些限制。

许多复杂的宏，例如，要用到循环语句，便无法录制。

为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。

具体操作为：单击“工具”选单中“宏”子选单，再单击“宏”命令。

选择第二步中的宏名称，再单击“编辑”按钮。

然后便加载Visual Basic编辑器，我们可以看到所录制的宏自动生成的Visual Basic代码。

例如，在C:\My Document中有200个Wod文档，依次命名为“ c”,“2.doc”,“ c”，…“ c”，我们需要把文件格式改变为文本文件，即txt文件。

先以 c为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。

生成的Visual Basic代码如下： Su Maco1() ChangeFileOpenDiectoy ″C:\My document″ Documents.Open FileName：=″ c″ ActiveDocument.SaveAs FileName：=″1.txt″，FileFomat:=wdFomatText ActiveWindow.Close End Su 下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。

代码如下： Su Maco1() dim i fo i=1 to 200 ChangeFileOpenDiectoy ″C:\My document″ Documents.Open FileName:=i & ″.doc″ ActiveDocument.SaveAs FileName: =i & ″.txt″， FileFomat:=wdFomatText ActiveWindow.Close next i End Su 再次运行该宏，便可以轻松完成任务。

宏的作用由此可略见一斑 供参考！

还是求WORD批量处理宏要求：将一个文件夹里的所有WORD文件（

我觉得这个可能很难。

如果我们让宏打开一个一个的文件执行设置字号操作，其实还是要让Wod打开这些文件，速度还是很慢。

如果我们了解Wod文档的内部结构，或许可以完全通过代码在后台实现，无须使用Wod将它们一个个打开。

我不是太懂编程，不知有人懂吗？ 或许我可以推荐你使用OfficeTa这款让Wod、Excel、PowePoint支持标签的插件（下载地址： 安装OfficeTa后，进入有多个DOC文档的文件夹，全选所有文件，按下回车键，Wod就会打开所有文件并在同一个窗口中显示多个标签，执行宏代码，这样或许感觉舒服点。

不过我试了下打开40个DOC文件，确实有些慢，然后直接点Wod右上角的关闭按钮，可能太多了，好像Wod死掉了，后来终止进程才解决。

可能与系统配置不太好有关。

呵呵！