在word中怎样制作宏啊???

1.在word中怎样制作宏啊???

创建宏

可以使用宏记录器录制一系列操作来创建宏 （宏：可用于自动执行任务的一项或一组操作。可用 Visual Basic for Applications 编程语言录制宏。），也可以在 Visual Basic 编辑器 （Visual Basic 编辑器：一种环境，用于编写新的 Visual Basic for Applications 代码和过程，并编辑已有的代码和过程。Visual Basic 编辑器包括完整的调试工具集，用于查找代码中的语法、运行时和逻辑问题。）中输入 Visual Basic for Applications (Visual Basic for Applications (VBA):Microsoft Visual Basic 的宏语言版本，用于编写基于 Microsoft Windows 的应用程序，内置于多个 Microsoft 程序中。） 代码来创建宏。

也可同时使用两种方法。可以录制一些步骤，然后添加代码来完善其功能。

录制步骤

在“工具”菜单上，指向“宏”，然后单击“录制新宏”。

在“宏名”框中，键入宏的名称。

在“将宏保存在”框中，单击将保存宏的模板 （模板：是指一个或多个文件，其中所包含的结构和工具构成了已完成文件的样式和页面布局等元素。例如，Word 模板能够生成单个文档，而 FrontPage 模板可以形成整个网站。）或文档。

在“说明”框中，键入对宏的说明。

如果不希望将宏指定到工具栏 （工具栏：包含可用于执行命令的按钮和选项的栏。要显示工具栏，请按 Alt 然后按 Shift+F10。）、菜单 （菜单：单击菜单栏或其他工具栏上的菜单名时出现的命令的列表。）或快捷键 （快捷键：功能键或组合键，例如 F5 或 Ctrl+A，可用来执行菜单命令。存取键是另外一种组合键，例如 Alt+F，可以将焦点移至菜单、命令或控件。），请单击“确定”开始录制宏。

若要将宏指定到工具栏或菜单，请单击“工具栏”，然后单击“命令”选项卡。在“命令”框中，单击正在录制的宏，然后将其拖动到需指定到的工具栏或菜单。单击“关闭”，开始录制宏。

要给宏指定快捷键，请单击“键盘”，在“命令”框中单击正在录制的宏，在“请按新快捷键”框中键入所需的快捷键，然后单击“指定”。单击“关闭”，开始录制宏。

执行要包含在宏中的操作。

录制宏时，可以使用鼠标单击命令和选项，但不能选择文本。必须使用键盘记录这些操作。例如，可以使用 F8 来选择文本，并按 End 将光标移动到行的结尾处。

若要停止录制宏，请单击“停止录制”。

通过使用 Visual Basic for Applications

在“工具”菜单中，指向“宏”，然后单击“宏”。

在“宏的位置”列表中，单击将保存宏的模板 （模板：是指一个或多个文件，其中所包含的结构和工具构成了已完成文件的样式和页面布局等元素。例如，Word 模板能够生成单个文档，而 FrontPage 模板可以形成整个网站。）或文档。

在“宏名”框中，键入宏的名称。

单击“创建”，打开“Visual Basic 编辑器”。

注释 如果为一个新的宏指定与现有 Microsoft Word 内置命令相同的名称，新的宏操作将代替现有的操作。若要查看 Word 中的内置宏列表，请指向“工具”菜单上的“宏”，然后单击“宏”。在“宏的位置”列表中，单击“Word 命令”。

2.怎样编辑word 里面的宏啊?

1.首先，打开一个word文件，录制一部分内容。

2.单击工具>；宏>；录制宏。

3.选中目标段落，进行居中操作。

4.完成录制，单击左上角的停止按钮。

5.这样宏就录制完成了，按住ctrl+F11打开vba编辑器，就自动生成了如下代码，若还需要其他具体的操作可以再其基础上编程操作完成。

3.求word设置页面的宏代码

With ActiveDocument.PageSetup.TextColumns .SetCount NumColumns:=2 '这句话用于分2栏，你可以改变那个数字，分为需要的栏数 .EvenlySpaced = True '对称版式 .Width = CentimetersToPoints(5.84) '栏宽 .Spacing = CentimetersToPoints(2.96) '栏间距 End With With ActiveDocument.PageSetup '以下是页面设置 .TopMargin = CentimetersToPoints(2.2) '上边距 .BottomMargin = CentimetersToPoints(2.2) '下边距 .LeftMargin = CentimetersToPoints(2) '左边距 .RightMargin = CentimetersToPoints(3.5) '右边距 .HeaderDistance = CentimetersToPoints(1.5) '页眉 .FooterDistance = CentimetersToPoints(1.5) '页脚 .PageWidth = CentimetersToPoints(27) '页面宽度 .PageHeight = CentimetersToPoints(39) '页面高度 End Withword的宏是比较好理解的，基本就是英语白话。

你可以尝试改变一些参数的值（那些数字）观察一下 注：以上的代码在我的电脑上运行无误。

4.在word中如何制作宏

宏的使用不是太广泛，也有一定的难度，有时使用它甚至可能会生成病毒。

下面依我的使用经验做一个“宏”的应用举例：

在单位里撰写各种报告中，最后都要有一个落款（即单位、时间），这种落款会经常出现和使用，因此我们可以录制一个“宏”，当需要的时候，只需加载即可。

第一步：录制“宏”

① 先设置字号大小；

② “工具---宏---录制新宏”，打开“录制宏”对话框；

③ 在“宏名”栏中，将默认名改为“落款”，确定；

④ 在文档中输入落款单位和时间，调整文字的位置为自己需要的效果；

* 这时只能使用键盘上的方向键、空格键改变文字的位置；

⑤ “工具---宏---停止录制”。

第二步：加载“宏”

① “工具---宏---宏”，打开“宏”对话框；

② 选择需要加载的宏，单击“运行”按钮。

5.Word的宏怎么用

一、宏的录制 在这里举一实例。

例如，在Word 97中，要插入字符，则往往要到符号框中查找半天。对于一些常用的符号，如“￥”，便可以使用宏来使工作简化。

1.单击“工具”选单中“宏”子选单，再单击“录制新宏”选项。 2.给宏取名为“Yuan”，再单击“键盘”。

3.在弹出的对话框中指定快捷键，可指定为“Ctrl+Y”，再关闭该对话框回到“录制宏”对话框。单击“确定”按钮启动记录器。

4.运行“插入”选单中的“符号”子选单，从弹出的“符号”框中选择“￥”，插入后再关闭。另外，也可以指定到工具栏，从弹出的“自定义”对话框中的“命令”栏中把“Normal.NewMacro1.Yuan”拖放到工具栏中。

5.单击“停止录制”工具栏中的“停止录制”按钮。 6.单击“工具”选单中“宏”子选单，再单击“宏”命令。

7.选择第二步中的宏名称，再单击“编辑”按钮。 这时我们可以从中看到以下代码： Sub Yuan() Selection.InsertSymbol Font：=〃楷体—GB2312〃，CharacterNumber:=-27,Unicode:=True End Sub 以后，当你需要插入字符“￥”时，只需按下快捷键“Ctrl+Y”，或者是在工具栏点击“Normal.NewMacrol.Yuan”便可以了。

二、宏的编辑 宏录制器将以上宏操作翻译为Visual Basic代码。但是，录制宏时会受到一些限制。

许多复杂的宏，例如，要用到循环语句，便无法录制。为了提高录制的宏的功能，就可能需要修改录制到模块中的代码。

具体操作为：单击“工具”选单中“宏”子选单，再单击“宏”命令。选择第二步中的宏名称，再单击“编辑”按钮。

然后便加载Visual Basic编辑器，我们可以看到所录制的宏自动生成的Visual Basic代码。 例如，在C:\My Document中有200个Word文档，依次命名为“1.doc”,“2.doc”,“3.doc”，…“200.doc”，我们需要把文件格式改变为文本文件，即txt文件。

先以1.doc为例，录制一个宏，打开文档，另存为txt文件，再关闭该活动文档。生成的Visual Basic代码如下： Sub Macro1() 〃C:\My document〃 Documents.Open FileName：=〃1.doc〃 ActiveDocument.SaveAs FileName：=〃1.txt〃，FileFormat:=wdFormatText ActiveWindow.Close End Sub 下一步便进行编辑，用一个循环语句依次打开各个文件，转化后再关闭。

代码如下： Sub Macro1() dim i for i=1 to 200 〃C:\My document〃 Documents.Open FileName:=i & 〃.doc〃 ActiveDocument.SaveAs FileName: =i & 〃.txt〃， FileFormat:=wdFormatText ActiveWindow.Close next i End Sub 再次运行该宏，便可以轻松完成任务。宏的作用由此可略见一斑。

6.求word设置页面的宏代码

With ActiveDocument.PageSetup.TextColumns

.SetCount NumColumns:=2 '这句话用于分2栏，你可以改变那个数字，分为需要的栏数

.EvenlySpaced = True '对称版式

.Width = CentimetersToPoints(5.84) '栏宽

.Spacing = CentimetersToPoints(2.96) '栏间距

End With

With ActiveDocument.PageSetup '以下是页面设置

.TopMargin = CentimetersToPoints(2.2) '上边距

.BottomMargin = CentimetersToPoints(2.2) '下边距

.LeftMargin = CentimetersToPoints(2) '左边距

.RightMargin = CentimetersToPoints(3.5) '右边距

.HeaderDistance = CentimetersToPoints(1.5) '页眉

.FooterDistance = CentimetersToPoints(1.5) '页脚

.PageWidth = CentimetersToPoints(27) '页面宽度

.PageHeight = CentimetersToPoints(39) '页面高度

End With

word的宏是比较好理解的，基本就是英语白话。你可以尝试改变一些参数的值（那些数字）观察一下

注：以上的代码在我的电脑上运行无误