当前位置：文档之家 › Word VBA语法

Word VBA语法

  • 格式：doc
  • 大小：45.50 KB
  • 文档页数：4

Word VBA语法办公软件2008-09-18 23:11:20 阅读37 评论0 字号：大中小WORD中的Range对象在操纵Word VBA，绝大多数是针对Word中的各视图中的文本进行的，正确掌握、理解和应用Word Range是Word Vba的重要一课，初学者甚至熟悉Excel的编程人员，往往对Word 中的Range对象手足无措，原因是不了解Word中Range对象的本质和意义。

1. Range 对象的定义：该对象代表文档中的一个连续范围。

每一个Range 对象由一起始和一终止字符位置定义。

和文档中书签的使用方法类似，Visual Basic 使用Range 对象识别文档的指定部分。

但和书签不同，Range 对象只在定义该对象的过程正在运行时才存在。

Range 对象和所选内容相互独立。

也就是说，可定义和复制一个范围而不需改变所选内容。

还可在文档中定义多个范围，但每一个窗格中只能有一个所选内容。

透彻的理解，只要是以文本形式存在的区域，就有Range对象，无论是页眉页脚中，批注脚注中，还是图形的文本框中，无论是一个光标，一个字符、一个词、一个句子、一个段落、一节还是一个文档，都可以看成是一个Range对象。

2. 对比EXCEL Range对象如果同EXCEL中的Range对象对比，你也许会更容易理解一些。

Excel中，每个单元格，是一个Range对象，连续或者非连续的单元格，都可以组成一个Range 对象，它由单元格地址组成的；在Word中，每个字符是一个“单元格”，它是由每个字符（无论是否可见，如段落标记等）构成了一个文档的Range对象，尽管它存活在运行时间中，也就是凡是由字符组成的具有起点和终点位置的连续文本，哪怕起点等于终点（光标）或者终点是起点位置的下一个字符，都是一个Range对象。

而Word中的Selection对象可以理解成EXCEL中的ActiveCell对象。

3. StoryRanges对象：StoryRanges由Range 对象组成的集合，该集合代表文档中的文字部分。

可使用StoryRanges(index) 返回单个部分（作为一个Range 对象），其中index 为一个wdStoryType 常量。

Start、End和StoryType属性唯一地确定了一个Range对象。

Start和End属性分别返回或者设置Range对象的起始和结束字符的位置。

每个文档构成部分起始处的字符位置是0 (zero)，而第一个字符之后的位置是1，依此类推。

StoryType 属性的WdStoryType常量可以表示十一种不同的文档构成部分类型，如下：wdCommentsStorywdEndnotesStorywdEvenPagesFooterStorywdEvenPagesHeaderStorywdFirstPageFooterStorywdFirstPageHeaderStorywdFootnotesStorywdMainTextStorywdPrimaryFooterStorywdPrimaryHeaderStorywdTextFrameStoryApplication对象- - - - - - - - - - - - - - - - - - - -(301)Application.ActivePrinter ‘获取当前打印机(302)Application.Height '当前应用程序文档的高度(303) Application.Width ‘当前应用程序文档的宽度(304)Application.Build ‘获取Word版本号和编译序号(305)Application.Caption ‘当前应用程序名(306)Application.DefaultSaveFormat '返回空字符串，表示Word文档(307)Application.DisplayRecentFiles '返回是否显示最近使用的文档的状态(308)Application.Documents.Count '返回当前打开的文档数(309)Application.FontNames.Count ‘返回当前可用的字体数(310) Application.Left ‘返回当前文档的水平位置(311)Application.MacroContainer.FullName '返回当前文档名，包括所在路径(312)Application.NormalTemplate.FullName '返回文档标准模板名称及所在位置(313)Application.RecentFiles.Count '返回最近打开的文档数目(314)Application.System.CountryRegion '返回应用程序所在的地区代码(315)Application.System.FreeDiskSpace ‘返回应用程序所在磁盘可用空间(316)Application.System.HorizontalResolution '返回显示器的水平分辨率(317)Application.System.VerticalResolution '返回显示器的垂直分辨率(318)nguageDesignation '返回系统所使用的语言(319)Application.System.MathCoprocessorInstalled ‘返回系统是否安装了数学协处理器(320)Application.System.OperatingSystem ‘返回当前操作系统名(321)Application.System.ProcessorType '返回计算机处理器名(322)Application.System.Version ‘返回操作系统的版本号(323)Application.Templates.Count '返回应用程序所使用的模板数(324)erName'返回应用程序用户名(325)Application.Version ‘返回应用程序的版本号- - - - - - - - - - - - - - - - - - - - - - Documents/Document 对象- - - - - - - - - - - - - - - - - - - - - -(326)ActiveDocument.AttachedTemplate.FullName '返回当前文档采用的模板名及模板所在位置(327)ActiveDocument.Bookmarks.Count '返回当前文档中的书签数(328)ActiveDocument.Characters.Count '返回当前文档的字符数(329)ActiveD ocument.CodeName ‘返回当前文档的代码名称(330)ments.Count ‘返回当前文档中的评论数(331)ActiveDocument.Endnotes.Count '返回当前文档中的尾注数(332)ActiveDocument.Fields.Count '返回当前文档中的域数目(333)ActiveDocument.Footnotes.Count ‘返回当前文档中的脚注数(334)ActiveDocument.FullName '返回当前文档的全名及所在位置(335)ActiveDocument.HasPassword '当前文档是否有密码保护(336)ActiveDocument.Hyperlinks.Count '返回当前文档中的链接数(337) ActiveDocument.Indexes.Count '返回当前文档中的索引数(338)ActiveDocument.ListParagraphs.Count '返回当前文档中项目编号或项目符号数(339)ActiveDocument.ListTemplates.Count '返回当前文档中使用的列表模板数(340)ActiveDocument.Paragraphs.Count '返回当前文档中的段落数(341)ActiveDocument.Password=XXX '设置打开文件使用的密码(342)ActiveDocument.ReadOnly '获取当前文档是否为只读属性(343)ActiveDocument.Saved '当前文档是否被保存(344)ActiveDocument.Sections.Count '当前文档中的节数(345)ActiveDocument.Sentences.Count ‘当前文档中的语句数(346)ActiveDocument.Shapes.Count'当前文档中的形状数(347)ActiveDocument.Styles.Count '当前文档中的样式数(348)ActiveDocument.Tables.Count ‘当前文档中的表格数(349)ActiveDocument.TablesOfAuthorities.Count ‘返回当前文档中的引文目录数(350)ActiveDocument.TablesOfAuthoriti esCategories.Count ‘返回当前文档中引文目录类别数(351)ActiveDocument.TablesOfContents.Count ‘返回当前文档中的目录数(352)ActiveDocument.TablesOfFigures.Count '返回当前文档中的图表目录数-- - - - - - - - - - - - - - - - - - - - - Paragraphs/Paragraph对象- - - - - - - - - - - - - - - - - - - - - - (353)Selection.Paragraphs.Count '返回所选区域的段落数(354)Selection.Paragraphs.First '返回所选区域中的第一段(355)ActiveDocument.Paragraphs(1).LeftIndent '返回当前文档中第一段的左缩进值(356)ActiveDocument.Paragraphs(1).LineSpacing '返回当前文档中第一段的行距(357)ActiveDocument.Paragraphs(1).OutlineL evel ‘返回或设置当前文档中第一段的大纲级别(358)ActiveDocument.Paragraphs(1).RightIndent‘返回当前文档中第一段的右缩进量(359)ActiveDocument.Paragraphs(1).SpaceBefore '返回当前文档中第一段的段前间距(360)ActiveDocument.Paragraphs(1).SpaceAfter ‘返回当前文档中第一段的段后间距(361)ActiveDocument.Paragraphs(1).Range.Text '返回当前文档中第一段的内容(362)ActiveDocument.Paragraphs(1)Local '返回当前文档中第一段应用的样式名(363)ActiveDocument.Paragraphs(1).Range.Style.Description '返回当前文档中第一段所应用样式的详细描述(364)ActiveDocument.Paragraphs(1) '返回当前文档中第一段所应用样式的字体名(365)ActiveDocument.Paragraphs(1)FarEast'返回或设置一种东亚字体名(366)ActiveDocument.Paragraphs(1).Range.Style.Font.Size'返回或设置当前文档中第一段所应用样式的字体大小(367)ActiveDocument.Paragraphs(1).Range.Style.Font.Spacing'返回或设置字符间距(368)Selection.Words.Count '所选区域的字数- - - - - - - - - - - - - Sentences对象- - - - - - - - - - - - - (369)Selection.Sentences.Item(1)'所选区域中的第一句的内容- - - - - - - - - - Words对象- - - - - - - - - -(371)ActiveDocument.Words(1).Select '选择当前文档中的第一个词(372)ActiveDocument.Range.Words(1).InsertAfter "我爱你！" '在当前文档中的第一个词后插入“我爱你” -- - - - - - - - - - - - Characters对象- - - - - - - - - - - - - (373)Selection.Characters.Count '当前文档中所选区域的字符数(374)ActiveDocument.Paragraphs(1).Range.InsertParagraphAfter'在当前文档的第一段之后插入一个新段落-- - - - - - - - - - - - - - - - - Sections/Section 对象- - - - - - - - - - - - - - - - - - (375)ActiveDocument.Sections.First '当前文档的第一节(376)ActiveDocument.Sections.First.PageSetup.BottomMargin '当前文档第一节所在页的底边距(377)ActiveDocument.Sections.First.PageSetup.LeftMargin '当前文档第一节所在页的左边距(378)ActiveDocument.Sections.First.PageSetup.RightMargin '当前文档第一节所在页的右边距(379)ActiveDocument.Sections.First.PageSetup.TopMargin '当前文档第一节所在页的顶边距(380)ActiveDocument.Sections.First.PageSetup.PaperSize '返回或设置当前文档第一节所在页的大小(381)ActiveDocument.Sections.First.PageSetup.PageHeight '返回或设置当前文档第一节所在页的高度(382)ActiveDocument.Sections.First.PageSetup.PageWidth '返回或设置当前文档第一节所在页的宽度(383)ActiveDocument.Sections.AddRange:=myRange '在当前文档中添加新节(384)ActiveDocument.Sections.Item(2) '当前文档中的第二节(385)st.Range.InsertAfter "文档结束！"'在当前文档中最后一节的结尾添加文字“文档结束！” - - - - - - - - - - Range对象- - - - - - - - - - (386)ActiveDocument.Range(Start:=0, End:=10) '表示当前文档前10个字符所组成的一个Range对象(387)Set myRange = ActiveDocument.Range( _ Start:=ActiveDocument.Paragraphs(2).Range.Start, _End:=ActiveDocument.Paragraphs(4).Range.End) '将当前文档第2段至第4段设置为一个Range对象(388)ActiveDocument.Paragraphs(1).Range.Copy '复制当前文档中的第一段(389) Selection.Copy Documents.Add.Content.Paste '复制所选内容到新文档中(390)ActiveDocument.Bookmarks("Book1").Copy Name:="Book2" '将Book2书签复制Book1书签标记的位置(391)Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4'将所选内容移至文档中的第4行(392)Selection.GoToWhat:=wdGoToTable, Which:=wdGoToNext '将所选内容移至下一个表格的第1个单元格(393)Selection.Range.AutoFormat '为所选内容套用格式(394) = "Arial" '将当前文档的字体设置为斜体(395)ActiveDocument.Content.Select Selection.Delete '将当前文档中的内容删除- - - - - 其它- - - - - (396) Documents.Add '添加一个新文档(397) Set myTable =ActiveDocument.Tables.Add(Selection.Range, 2, 2) '在当前文档所选区域添加一个2行2列的表格(398)Open "C:\my.txt" For Input As #1 '打开一个用于输入的文件并令其编号为1 (399)Line Input #1, TextLine'读取被打开用于输入且编号为1的文件(400)Close #1 '关闭编号为1的文件。

合集下载

Word_VBA语法

Word_VBA语法

Word VBA语法办公软件2008-09-18 23:11:20 阅读37 评论0 字号：大中小WORD中的Range对象在操纵Word VBA，绝大多数是针对Word中的各视图中的文本进行的，正确掌握、理解和应用Word Range是Word Vba的重要一课，初学者甚至熟悉Excel的编程人员，往往对Word 中的Range对象手足无措，原因是不了解Word中Range对象的本质和意义。

1. Range 对象的定义：该对象代表文档中的一个连续范围。

每一个Range 对象由一起始和一终止字符位置定义。

和文档中书签的使用方法类似，Visual Basic 使用Range 对象识别文档的指定部分。

但和书签不同，Range 对象只在定义该对象的过程正在运行时才存在。

Range 对象和所选内容相互独立。

也就是说，可定义和复制一个范围而不需改变所选内容。

还可在文档中定义多个范围，但每一个窗格中只能有一个所选内容。

透彻的理解，只要是以文本形式存在的区域，就有Range对象，无论是页眉页脚中，批注脚注中，还是图形的文本框中，无论是一个光标，一个字符、一个词、一个句子、一个段落、一节还是一个文档，都可以看成是一个Range对象。

2. 对比EXCEL Range对象如果同EXCEL中的Range对象对比，你也许会更容易理解一些。

Excel中，每个单元格，是一个Range对象，连续或者非连续的单元格，都可以组成一个Range 对象，它由单元格地址组成的；在Word中，每个字符是一个“单元格”，它是由每个字符（无论是否可见，如段落标记等）构成了一个文档的Range对象，尽管它存活在运行时间中，也就是凡是由字符组成的具有起点和终点位置的连续文本，哪怕起点等于终点（光标）或者终点是起点位置的下一个字符，都是一个Range对象。

而Word中的Selection对象可以理解成EXCEL中的ActiveCell对象。

3. StoryRanges对象：StoryRanges由Range 对象组成的集合，该集合代表文档中的文字部分。

VBA在Word中的实用编程技巧

VBA在Word中的实用编程技巧

VBA在Word中的实用编程技巧Microsoft Word是一款功能强大的文字处理程序，而VBA （Visual Basic for Applications）是一种用于自动化和自定义Office应用程序的编程语言。

结合VBA和Word，用户可以利用编程技巧来提高工作效率，优化文档生成和编辑过程。

本文将介绍一些在Word中使用VBA的实用编程技巧。

1. 自动化任务VBA可以帮助自动执行一些重复性的任务，如批量替换文本、创建目录、添加页眉和页脚等。

通过编写VBA宏，可以将这些任务自动化，节省大量时间和人力资源。

例如，您可以编写一个宏来自动替换指定文字，并在整个文档中应用相同的更改。

2. 自定义快速访问工具栏Word的快速访问工具栏（Quick Access Toolbar）是一个位于顶部的工具栏，用于快速访问最常用的命令。

使用VBA，您可以通过自定义快速访问工具栏来添加自定义按钮和命令。

这样，您可以根据自己的需求，将常用的功能一键点击，提高操作效率。

3. 格式化文本VBA可以帮助您快速格式化文本，例如设置字体、字号、颜色、对齐方式等。

通过编写宏，您可以选择指定的文本，并应用所需的格式。

这对于大量文本的处理非常有用，尤其是当您需要对多个文档进行一致的格式化时。

4. 创建自定义对话框VBA可以创建自定义对话框，以便用户输入信息或作出选择。

通过编写代码，您可以定义对话框的布局、控件和功能，并根据用户的选择执行相应的操作。

这使得您可以根据实际需要，创建个性化的交互界面，提高用户体验和操作流畅度。

5. 自动生成文档使用VBA，您可以编写宏来生成自定义的文档。

例如，您可以创建一个模板文件，其中包含常见的文档结构和格式，然后使用VBA宏根据特定的输入数据自动填充并生成新的文档。

如此一来，您无需手动创建每个文档的结构和格式，大大提高了文档生成的效率。

6. 处理图表和图形VBA可以帮助您处理Word中的图表和图形。

常用WORD-VBA代码

常用WORD-VBA代码

有用的WORD VBA代码1、删除空格'* +++++++++++++++++++++++++++++++++++++++'功能简介:删除空格''* ----------------------------------------Sub 删除空格()Dim FindChar As String, Fcount As Integer, RepChar As StringOn Error Resume NextApplication.ScreenUpdating = False '关闭屏幕更新FindChar = " "RepChar = ""With ActiveDocument.Content.Find '此处针对全文档Do While .Execute(findtext:=FindChar) = True '如果发现Fcount = Fcount + 1 '计数器LoopIf MsgBox("文档中共发现了" & Fcount & "个" & FindChar & vbCrLf _& ",按Yes键将进行下一步的替换工作,按No取消", vbYesNo + vbInformation) = vbYes Then.Execute findtext:=FindChar, Wrap:=wdFindContinue, replacewith:=RepChar, Replace:=wdReplaceAllEnd IfEnd WithApplication.ScreenUpdating = True'恢复屏幕更新End Sub2、段首空格删除第一种'* +++++++++++++++++++++++++++++++++++++++'功能简介:删除段首空格''*-----------------------------------------Sub 删除段首空格1()Selection.WholeStory 'CTR+ASelection.ParagraphFormat.Alignment = wdAlignParagraphCenter 'CTR+ESelection.ParagraphFormat.Reset 'CTR+QEnd Sub第二种'* +++++++++++++++++++++++++++++++++++++++'功能简介:删除段首空格''* ----------------------------------------Sub 删除段首空格2()Dim i As Paragraph, n As LongApplication.ScreenUpdating = False '关闭屏幕刷新For Each i In ActiveDocument.Paragraphs '在活动文档的段落集合中循环For n = 1 To i.Range.Characters.CountIf i.Range Like " *" _Or i.Range Like " *" Theni.Range.Characters(1).DeleteElse: Exit ForEnd IfNext nNextApplication.ScreenUpdating = True '恢复屏幕刷新 End Sub第三种'* +++++++++++++++++++++++++++++++++++++++'功能简介:删除段首空格''* ----------------------------------------Sub 删除段首空格3()Dim i As Paragraph, n As LongApplication.ScreenUpdating = False '关闭屏幕刷新For Each i In ActiveDocument.Paragraphs '在活动文档的段落集合中循环For n = 1 To i.Range.Characters.CountIf i.Range.Characters(1).Text = " " _Or i.Range.Characters(1).Text = " " Theni.Range.Characters(1).DeleteElse: Exit ForEnd IfNext nNextApplication.ScreenUpdating = True '恢复屏幕刷新End Sub3、删除空白段落'功能简介:可以对指定长度的段落进行删除，当LEN=1时'可对空白段落进行删除。

VBA：在Word中用宏语句插入域

VBA：在Word中用宏语句插入域

VBA：在Word中用宏语句插入域一、打开 Word 的 Visual Basic 编辑器。

这仅是打开编辑器方法之一，如果你已熟悉，可直接跳到步骤二。

1.单击Word 的“工具”菜单，指向“宏”，单击“录制新宏”。

弹出录制宏对话框，单击确定。

2.这时，会自动显示录制宏工具栏，不用管它，在Word 的正文区输入文字，如：Hong3.单击录制宏工具栏上的“停止”按钮4.单击 Word 的“工具”菜单，指向“宏”，单击“Visual Basic 编辑器”。

这样就会打开 Word 的 Visual Basic 编辑器窗口这时，就会看到刚刚录制的宏：Sub Macro1()' Macro1 Macro' 宏在 2010-2-5 由 *** 录制Selection.TypeText Text:="Hong"End Sub上面的宏实际上与 VB 模块中的一个过程完全相同。

Word 的宏实际就是 VBA，语法与 VB 完全一样。

运行宏：将光标定位到这个过程内的任意地方，单击 Visual Basic 编辑器工具栏的“运行”按钮，刚才在Word 正文区的操作会再次重复一遍，也就是再次输入字符 Hong二、用宏语句插入域下面，我们将宏修改为：Sub Macro1()T = "Eq \f(\f(5,y + 6),7x\s\up3(2) + 8y + 9)" '语句1Selection.Fields.Add Selection.Range, -1, T, False '语句2End Sub运行宏，我们会发现 Word 中插入了一个繁分数：第一条语句将Eq 公式域的名称字符“Eq”当作开关的一部分赋值给变量 T，第二条语句插入一个空域，然后在这个空域中插入变量 T 所代表的所有字符。

这两条语句插入的繁分数实际就是域{ Eq \f(\f(5,y + 6),7x\s\up3(2) + 8y + 9) }因此，只需要修改语句１中两个英文引号（" "）中的字符，就可以在文档中插入各式各样的域。