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() ChangeFileOpenDirectory 〃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 ChangeFileOpenDirectory 〃C:\My document〃 Documents.Open FileName:=i & 〃.doc〃 ActiveDocument.SaveAs FileName: =i & 〃.txt〃， FileFormat:=wdFormatText ActiveWindow.Close next i End Sub 再次运行该宏，便可以轻松完成任务。

宏的作用由此可略见一斑。

如何在Word中利用“录制宏”进行文字排版

1.录制你自己的宏(1)运行Word，并新建一个文件。

打开“工具”菜单栏，选择“宏”，在二级菜单中选择“录制新宏”。

(2)出现“录制宏”对话框，随便为宏取个名按“确定”即可，这时会出现一个悬浮的“停止录”工具，宏录制就已经开始了。

(3)打开“编辑”菜单栏，选择“替换”，出现“查找和替换”对话框。

(4)用鼠标在“查找内容”栏内点一下，再点击“高级”，再按“特殊字符”，选择两次“人工分行符”，在“替换为”栏内选“特殊字符”的“段落标志”，再选全部替换，点击“确定”。

在“查找内容”栏内，选“高级”，再按“特殊字符”，选择一次“人工分行符”，用鼠标在“替换为”栏内点一下。

删除里面的全部内容，什么都不输入，再点“全部替换”，点击“确定”。

这一步骤是先保留段落标志，再将段内的人工分行符清除。

(6)关闭“替换”对话框，在“编辑”菜单栏中选“全选”，再在“格式”中选“段落”，打开“段落”对话框，在“缩进和间距”的“特殊格式”选“首行缩进”，“度量值”为两个字符。

在字体中选“宋体”、字号中选“小四号字”。

这一步骤是设置字体、字号和进行排版。

(7)在悬浮的“停止录”工具条上按“停止”钮，到此宏录制的工作结束。

2.制作自定义快捷按钮(1)打开“工具”菜单栏，选择“自定义”。

出现“自定义”对话框，点击“命令”选项。

在“类别”栏内找到“宏”，选中它，然后再选中“命令”栏中刚刚录制的宏。

(2)按住鼠标左键，将它拖放到工具栏上可以放置的位置，松开左键。

这时在工具栏上就增加了这一刚刚录制的宏按钮。

(3)注意，不要关闭“自定义”对话框，在“更改所选内容”上选“更改按钮图标”，从出现的图标中选中一个自己喜欢的图标。

再在“更改所选内容”选“默认样式”，关闭“自定义”对话框，这样就形成一个和Word工具栏其他快捷按钮一样的自定义按钮。

以后只要打开Word就能处理文本，把网上复制的内容粘贴到Word上，然后按下自定义的宏按钮，全部搞定。

字符样式为要点的设置为标题3office

Sub 前123级标题（） "测试结果 1 代码重复运行1次才能调整好。

Selection.HomeKey wdStory "光标移到最前面。

Dim p As Paragraph For Each p In ActiveDocument.Paragraphs If p.Style = ＂标题 1＂ Then p.LeftIndent = 0 "段落的绝对左缩进量（以磅为单位） If p.Style = ＂标题 1＂ Then p.RightIndent = 0 "段落的绝对左缩进量（以磅为单位） If p.Style = ＂标题 1＂ Then p.FirstLineIndent = CentimetersToPoints(0) "首行缩进0cm（只对单位是cm的缩进有效） If p.Style = ＂标题 1＂ Then p.CharacterUnitFirstLineIndent = 0 "首行缩进0磅（只对单位是磅的缩进有效） If p.Style = ＂标题 2＂ Then p.LeftIndent = 0 "段落的绝对左缩进量（以磅为单位） If p.Style = ＂标题 2＂ Then p.RightIndent = 0 "段落的绝对左缩进量（以磅为单位） If p.Style = ＂标题 2＂ Then p.FirstLineIndent = CentimetersToPoints(0) "首行缩进0cm（只对单位是cm的缩进有效） If p.Style = ＂标题 2＂ Then p.CharacterUnitFirstLineIndent = 0 "首行缩进0磅（只对单位是磅的缩进有效） If p.Style = ＂标题 3＂ Then p.LeftIndent = 0 "段落的绝对左缩进量（以磅为单位） If p.Style = ＂标题 3＂ Then p.RightIndent = 0 "段落的绝对左缩进量（以磅为单位） If p.Style = ＂标题 3＂ Then p.FirstLineIndent = CentimetersToPoints(0) " "首行缩进0cm If p.Style = ＂标题 3＂ Then p.CharacterUnitFirstLineIndent = 0 "首行缩进0磅（只对单位是磅的缩进有效） If p.Style = ＂标题 1＂ Then p.FirstLineIndent = CentimetersToPoints(0) "首行缩进0cm（只对单位是cm的缩进有效） If p.Style = ＂标题 1＂ Then p.CharacterUnitFirstLineIndent = 0 "首行缩进0磅（只对单位是磅的缩进有效） If p.Style = ＂标题 2＂ Then p.FirstLineIndent = CentimetersToPoints(0) "首行缩进0cm（只对单位是cm的缩进有效） If p.Style = ＂标题 2＂ Then p.CharacterUnitFirstLineIndent = 0 "首行缩进0磅（只对单位是磅的缩进有效） If p.Style = ＂标题 3＂ Then p.FirstLineIndent = CentimetersToPoints(0) " "首行缩进0cm If p.Style = ＂标题 3＂ Then p.CharacterUnitFirstLineIndent = 0 "首行缩进0磅（只对单位是磅的缩进有效） Next Selection.Move " If p.Style = ＂标题 1＂ Then p.Range.Font.Color = vbBlack "blue " If p.Style = ＂标题 1＂ Then p.Format.LineSpacingRule = wdLineSpaceExactly "行距固定值 " If p.Style = ＂标题 1＂ Then p.Format.LineSpacing = 20 "行距固定值= 20 " If p.Style = ＂标题 1＂ Then p.Format.SpaceBefore = 0 "段前距为0 " If p.Style = ＂标题 1＂ Then p.Format.SpaceAfter = 0 "段后距为0 " If p.Style = ＂标题 1＂ Then p.LeftIndent = 0 "段落的绝对左缩进量（以磅为单位） " If p.Style = ＂标题 1＂ Then p.RightIndent = 0 "段落的绝对右缩进量（以磅为单位） " If p.Style = ＂标题 1＂ Then p.Range.Bold = True "加粗 " If p.Style = ＂标题 1＂ Then p.CharacterUnitFirstLineIndent = InchesToPoints(0) "度量单位从英寸转换为磅Points Selection.HomeKey wdStory "光标移到最前面。

" D图片居中 End Sub

Word 2007 宏怎么制作？、

创建宏 可以使用宏记录器录制一系列操作来创建宏 （宏：可用于自动执行任务的一项或一组操作。

可用 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 命令”。

word2003中 怎么利用宏隐藏文字~

dot)&quot。

第二步第一步：启动Word..＂命令，执行＂选项。

在＂确定＂效果＂按钮，打开＂自定义键盘＂工具→宏→录制新宏，在＂字体＂选项卡中；按钮。

返回后再单击工具栏上的＂录制宏＂窗口；设置对话框，在＂宏名＂栏中为所录制的新宏取名为Hidden；请按新快捷键&quot，在＂将宏保存在&quot，选定所有文本。

再执行＂文本框中，此时进行键盘操作；下拉框中选择＂所有文档（Normal，打开&quot，单击&quot，单击＂键盘＂将宏指定到＂工具框中：执行＂格式→字体＂菜单命令，按下Alt Ctrl H组合键，这个快捷键组合就会出现在＂请按新快捷键&quot，选中＂文本框中，单击窗口＂指定＂按钮；单选框中的＂隐藏文字＂选项，将快捷键指定给Hidden宏，最后单击＂关闭＂按钮..；编辑→全选＂菜单命令，打开＂字体＂保存＂按钮。

单击＂停止录制＂..；窗口，光标定位在&quot，进入宏录制状态...

word 如何删除不包含指定字符的行（宏）

If InStr(a, ＂@＂) Then a.Range.Delete首先，你必须保证原来的语句能正确运行，即能删除包含“@”的行。

那么，If Not InStr(a, ＂@＂) Then a.Range.Delete应该能删除不包含“@”的行。

另外，可以试试：If InStr(a, ＂@＂)=0 Then a.Range.Delete