第五章WordVBA常用对象与应用案例.ppt

第二章 Word VBA常用对象与应用案例,1,对象的概念和对象变量的定义,对象的概念 对象（object）是一些相关的变量和方法的集合。Office VBA是一种面向对象的编程语言。对象是VBA的结构基础，VBA应用程序就是由许多对象组成。 在Office中，VBA对象可分为集合对象和独立对象两种。独立对象代表一个Office中的一个元素，如Word中的一个文档、一个段落、一个书签或单独的字符。集合也是一个对象，该对象包含多个其他对象，通常这些对象属于相同的类型；例如，在Word中，一个Documents集合对象中可包含文档中的所有Document对象。修改与对象相关的方法或属性就可以定制对象，也可修改整个的对象集合。 在VBA中，有一个变量的数据类型是Object，即对象型变量。使用对象变量代替一个对象是指：不直接引用该对象，而使用对象变量访问其代表的对象,2,对象的概念和对象变量的定义,例如，一段程序同时处理三个打开的Word文档，从一个文档中将一些文本复制到另外两个文档中去。如果仅仅打开了这三个文档，就可以分别引用，如写成Documents(1)、Documents(2)、Documents(3)，因为这些文档在Documents集合中占有前三个位置。 然而，如果程序改变了文档的顺序，关闭一个或多个文档，或者生成一个和多个新的文档，情况立刻就会变得混乱起来。但是如果使用了对象变量（例如，命名为Words1、Words2、Words3）去引用这些文档，情况就简单得多。这是因为不论在Documents集合中哪个文档处在第一的位置，总可以用对象变量Wordsl3进行引用，并了解将要使用的文档。,3,对象的概念和对象变量的定义,对象变量的定义 Dim MyObject1 As Object Set objectvariable=expression|nothing 例如，下面的语句声明MyObject1变量，并赋值为Excel的当前工作簿： Dim exObject1 As Object Set exObject1=ActiveDocument 而下面的语句使用Nothing关键字，则释放exObject1对象变量占用的内存空间： Set exObject1=Nothing,4,Word中的常用对象,Word中常用的对象有：Application对象、Document对象、Range对象、Selection对象、Paragraph对象、Sentences对象、Words对象、Characters对象、Find与Replacement对象、Table（包括Column、Row和Cell）对象等。 其中，Application对象是Word中最高级别的对象，它就是Word应用程序本身。,5,Word中的常用对象,Application对象 用户启动一个Word时的同时，也创建了一个Application对象。Application对象位于对象模型的最高级，它代表整个Word应用程序，而且此对象的属性和方法独立于所有文档之外，全部针对的是Word应用程序本身。用户可以使用Application对象的属性或方法来控制或返回应用程序范围内的特性、控制应用程序窗口的外观等。可以使用Application属性来返回Word Application对象。如，以下的语句表示从视图状态切换到打印预览状态。 Application.PrintPreview = True,6,Word中的常用对象,Sub application1() With Application .WindowState = wdWindowStateNormal .Height = 450 .Width = 600 End With End Sub,7,Word中的常用对象,8,Word中的常用对象,9,Word中的常用对象,用户可以用以下的代码检查Documents集合的Count属性来确认是否有文档是打开的。 Sub application2() If Documents.Count = 0 Then If MsgBox(“没有文档被打开！“ & vbCr & vbCr & _ “你希望创建一个空白文档吗?“, _ vbYesNo + vbExclamation, “No Doccnnent Is Open“) = vbYes Then Documents.Add Else End End If End If End Sub,10,Word中的常用对象,如果对正在使用哪个文档进行操作存在疑问，则应声明一个Document对象变量，并使用这个对象变量来工作，而不是使用ActiveDocument对象来工作。例如，下述语句声明一个Document对象，并将ActiveDocument对象指派给它，所以以后的代码可以针对这Document对象工作。 Dim myDocument As Document Set myDocument = ActiveDocument With myDocument .PageSetup.RightMargin = InchesToPoints(1) '右页边距设置为1 英寸（72 磅） End With,11,Word中的常用对象,Application对象应用举例 下面代码显示活动文档的路径和文件名。 MsgBox ActiveDocument.Path & Application.PathSeparator & ActiveDocument.Name 下面代码显示活动文档的名称，如果没有打开的文档，则显示一条消息。 If Application.Documents.Count = 1 Then MsgBox ActiveDocument.Name Else MsgBox “没有文档被打开！“ End If,12,Word中的常用对象,下面代码将所选内容为插入点，然后创建一个区域，包括选定内容的后面五个字符。 Dim rngTemp As Range Selection.Collapse Direction:=wdCollapseStart Set rngTemp = ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start + 5) 下面代码在活动文档的开头插入文本，然后打印该文档。 Dim rngTemp As Range Set rngTemp = ActiveDocument.Range(Start:=0, End:=0) With rngTemp .InsertBefore “公司报告“ .Font.Name = “Arial“ .Font.Size = 24 .InsertParagraphAfter End With ActiveDocument.PrintOut,13,Word中的常用对象,将插入点移至曾经进行过编辑的下一个位置。 Application.GoForward 打印活动文档的当前页面。 ActiveDocument.PrintOut Range:=wdPrintCurrentPage 打印当前文件夹中的所有文档。 adoc = Dir(“*.DOC“) Dir 函数用于返回所有扩展名为“.doc”的文件名。 Do While adoc “ Application.PrintOut FileName:=adoc adoc = Dir() Loop 打印活动窗口中文档的前三页。 ActiveDocument.ActiveWindow.PrintOut Range:=wdPrintFromTo, From:=“1“, To:=“3“,14,Word中的常用对象,将Word应用程序窗口调整为 7 英寸宽、6 英寸高。 With Application .WindowState = wdWindowStateNormal .Resize Width:=InchesToPoints(7), Height:=InchesToPoints(6) End With 退出Word并提示用户保存自上次保存后已修改过的每篇文档。 Application.Quit SaveChanges:=wdPromptToSaveChanges 用户保存所有文档。如果用户单击“是”按钮，则在退出Word前，所有的文档都将以Word格式进行保存。 Dim intResponse As Integer intResponse = MsgBox(“你将希望保存所有文档吗?“, vbYesNo) If intResponse = vbYes Then Application.Quit _ SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument,15,Word中的常用对象,Documents/Document对象 当用户在Word中打开或创建一个文件的同时，也创建了一个Document对象。用户可以使用Document对象或Documents集合的属性或方法来打开、创建、保存、激活或者关闭文件。,16,17,Word中的常用对象,18,Word中的常用对象,19,Word中的常用对象,显示Documents集合的第一篇文档的名字。 Sub DocumentItem() If Documents.Count = 1 Then MsgBox Documents.Item(1).Name End If End Sub 以只读方式打开文档MyDoc.doc。 Sub OpenDoc() Documents.Open FileName:=“C:MyFilesMyDoc.doc“, ReadOnly:=True End Sub 如果活动文档在上次保存后进行了修改，则保存活动文档。 If ActiveDocument.Saved = False Then ActiveDocument.Save,20,Word中的常用对象,保存Documents集合中的每一文档，但在保存文档前不提示用户。 Documents.Save NoPrompt:=True, _ OriginalFormat:=wdOriginalDocumentFormat (5)以下代码根据Normal模板新建一篇文档，然后显示“另存为”对话框。 Documents.Add.Save 以下代码将对上次保存后的文档进行修改和保存。 Dim docLoop As Document For Each docLoop In Documents If docLoop.Saved = False Then docLoop.Save Next docLoop,21,Word中的常用对象,以下代码先将文档的左右边距设置为 0.5 英寸，然后打印所有打开的文档。 Dim docLoop As Document For Each docLoop In Documents With docLoop .PageSetup.LeftMargin = InchesToPoints(0.5) .PageSetup.RightMargin = InchesToPoints(0.5) .PrintOut End With Next docLoop 以下代码表示以只读方式打开文档Doc.doc Documents.Open FileName:=“C:FilesDoc.doc“, ReadOnly:=True,22,Word中的常用对象,Selection Selection对象代表窗口或窗格中的当前所选内容。若文档中没有所选内容，则代表插入点。每个文档窗格只能有一个活动的Selection对象，并且整个应用程序中只能有一个活动的Selection对象。 与Range对象不同的是，Selection对象代表的选定内容既可以是文档中的一个区域也可以仅仅是一个插入点。,23,24,25,26,Word中的常用对象,将第一个窗口的所选内容复制到下一个窗口 If Windows.Count = 2 Then Windows(1).Selection.Copy Windows(1).Next.Activate Selection.Paste End If 本例也可使用下面的语句。 ActiveDocument.ActiveWindow.Panes(1).Selection.Copy ActiveDocument.ActiveWindow.Panes(2).Selection.Paste 下面代码表示如果插入点不在表格中，则将所选内容插入点移至下一张表格。 If Selection.Information(wdWithInTable) = False Then Selection.GoToNext What:=wdGoToTable End If,27,Word中的常用对象,在活动文档开头插入一个数学表达式，计算该表达式，并将计算结果插入该区域。其结果为“1+1=2”。 Set myRange = ActiveDocument.Range(0, 0) myRange.InsertBefore “1 + 1 “ myRange.InsertAfter “= “ & myRange.Calculate 计算选定的数学表达式并显示其结果。 MsgBox “And the answer is. “ & Selection.Calculate 从活动文档中删除所有文字和段落格式设置。 Sub ClrFmtg() ActiveDocument.Select : Selection.ClearFormatting End Sub,28,Word中的常用对象,从活动文档的第二至第四段删除所有文字和段落的格式设置。 Sub ClrFmtg2() ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start, _ End:=ActiveDocument.Paragraphs(4).Range.End).Select : Selection.ClearFormatting End Sub If Selection.Type = wdSelectionNormal Then Selection.Copy : Documents.Add.Content.Paste End If 将活动文档的内容复制为图片，并将其作为图片粘贴到文档的结尾。 Sub CopyPasteAsPicture() ActiveDocument.Content.Select With Selection .CopyAsPicture .Collapse Direction:=wdCollapseEnd .PasteSpecial DataType:=wdPasteMetafilePicture End With End Sub,29,Word中的常用对象,将活动文档第一段的格式复制到第二段。 ActiveDocument.Paragraphs(1).Range.Select Selection.CopyFormat ActiveDocument.Paragraphs(2).Range.Select Selection.PasteFormat 剪切第一个段落的第一个单词，并将该单词粘贴到该段落的末尾。 With ActiveDocument.Paragraphs(1).Range .Words(1).Cut .Collapse Direction:=wdCollapseEnd .Move Unit:=wdCharacter, Count:=-1 .Paste End With,30,Word中的常用对象,剪切所选内容，并粘贴到新文档中。 If Selection.Type = wdSelectionNormal Then Selection.Cut Documents.Add.Content.Paste End If 选择并删除活动文档中的内容。 Sub DeleteSelection() Dim intResponse As Integer intResponse = MsgBox(“Are you sure you want to “ & _ “delete the contents of the document?“, vbYesNo) If intResponse = vbYes Then ActiveDocument.Content.Select Selection.Delete End If End Sub,31,Word中的常用对象,将所选内容在表格中向前移动三个单元格。 If Selection.Information(wdWithInTable) = True Then Selection.Move Unit:=wdCell, Count:=3 End If 以下代码将当前所选内容的文本赋值给变量strTemp，如果该变量是一个段落标记，则删除其最后一个字符。 Dim strTemp as String strTemp = Selection.Text If Right(strTemp, 1) = vbCr Then strTemp = Left(strTemp, Len(strTemp) - 1) 以下代码“Dear”替换活动文档的第一个词。 Set myRange = ActiveDocument.Words(1) myRange.Text = “Dear “,32,Word中的常用对象,新文档中插入10行文字。 Documents.Add For i = 1 To 10 Selection.Text = “Line“ & Str(i) & Chr(13) Selection.MoveDown Unit:=wdParagraph, Count:=1 Next i 用“Goodbye”替换活动文档中的“Hello”。 Set myRange = ActiveDocument.Content With myRange.Find .ClearFormatting .Replacement.ClearFormatting .Text = “Hello“ .Replacement.Text = “Goodbye“ .Execute Replace:=wdReplaceAll End With,33,Word中的常用对象,批量设置文档中图片的格式。 Sub 批量设置图片格式() Dim I, Count As Integer Count = ActiveDocument.InlineShapes.Count '计算当前文档中的图片总数 For I = 1 To Count With ActiveDocument.InlineShapes(I).PictureFormat '当前文档中的每一个图片格式 .Brightness = 0.5 '设置图片亮度 .Contrast = 0.5 '设置对比度 .CropBottom = 10 '底部剪切10磅 End With Next End Sub,34,Word中的常用对象,【例5-1】 百马百担问题：有100匹马，驮100担货，大马驮3担，中马驮2担，两匹小马驮1担，问有大、中、小马各有多少？运行结果如图5-1所示。,35,Word中的常用对象,Sub 百马百担() Dim dm As Integer, zm As Integer, xm As Integer 'dm,zm,xm分别表示大马数,中马数,小马数 Selection.EndKey unit:=wdStory Selection.TypeText Text:=“大、中、小马可能的数目为：“ Selection.TypeParagraph '换行 For dm = 1 To 33 For zm = 1 To 50 xm = 100 - dm - zm If 3 * dm + 2 * zm + 0.5 * xm = 100 Then ms = “大马“ & dm & “匹，中马“ & zm & “匹，小马“ & xm & “匹“ Selection.TypeText Text:=ms Selection.TypeParagraph '换行 End If Next Next End Sub,36,Word中的常用对象,Paragraphs/Paragraph对象 Paragraph对象代表选定内容、范围或文档内的一个段落。 Paragraph对象为Paragraphs 集合的一个成员。Paragraphs集合包含了所选内容、范围或文档中的所有段落。用户可用Paragraphs(index)来表示一个Paragraph对象，其中index为索引号。例如，以下代码将活动文档的第一段右对齐。ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphRight,37,38,39,Word中的常用对象,Paragraphs/Paragraph对象应用举例 用Add、InsertParagraph、InsertParagraphAfter或InsertParagraphBefore方法在所选内容的第一段前添加一个段落标记。 Selection.Paragraphs(1).Range.InsertParagraphBefore 以下代码将所选内容的段落格式设为右对齐、双倍行距。 With Selection.Paragraphs .Alignment = wdAlignParagraphRight .LineSpacingRule = wdLineSpaceDouble End With,40,Word中的常用对象,清除第一段的段前距离 ActiveDocument.Paragraphs(1).CloseUp 本示例缩减段落或段落中选定内容之前或之后的间距，每运行一次该步骤，缩减 6 磅。如果段前或段后的间距都是零，则本步骤无效。 Sub DecreaseParaSpacing() Selection.Paragraphs.DecreaseSpacing End Sub 将活动文档的第一段缩进10个字符。 ActiveDocument.Paragraphs(1).IndentCharWidth 10 将活动文档第一段的首行缩进10个字符。 With ActiveDocument.Paragraphs(1) .IndentFirstLineCharWidth 10 End With,41,Word中的常用对象,更改当前文档第二段的格式，以在该段前设置12磅的段前间距。 ActiveDocument.Paragraphs(2).OpenUp 也可使用ActiveDocument.Paragraphs(1).SpaceBefore = 12 将活动文档中的所有段落的缩进量增加两个级别，再将第一段的缩进量删除一个级别。 With ActiveDocument.Paragraphs .Indent .Indent End With ActiveDocument.Paragraphs(1).Outdent,42,Word中的常用对象,将活动文档段落3的标题样式降级。 ActiveDocument.Paragraphs(3).OutlineDemote 将活动窗口切换至大纲视图，并提升活动文档中第一段的样式级别。 ActiveDocument.ActiveWindow.View.Type = wdOutlineView ActiveDocument.Paragraphs(1).OutlinePromote 将活动文档中首段的行距更改为单倍行距。 ActiveDocument.Paragraphs(1).Space1 或使用ActiveDocument.Paragraphs(1).LineSpacingRule = wdLineSpaceSingle,43,Word中的常用对象,Sentences、Words和Characters集合 Sentences Sentence代表了选定部分、区域或文档中的所有句子。例如： 显示选定部分的句数。 MsgBox Selection.Sentences.Count & “ sentences are selected“ 用Sentences(index)返回一个表示单句的Range对象，其中index为索引序号。索引序号代表该句在Sentences集合中的位置。 将当前文档的首句设置格式。 With ActiveDocument.Sentences(1) .Bold = True 粗体 .Font.Size = 24 设置大小 End With,44,Word中的常用对象,Sentences集合没有Add方法，而是用InsertAfter或InsertBefore方法向Range对象中添加句子。以下代码可在活动文档首段之后插入一句。 With ActiveDocument MsgBox .Sentences.Count & “ sentences“ .Paragraphs(1).Range.InsertParagraphAfter .Paragraphs(2).Range.InsertBefore “这是一座蓝色的房子。“ MsgBox . “共有：“& Sentences.Count & “句。“ End With,45,Word中的常用对象,Words集合 Words为所选内容、区域或文档中的单词组成的集合。Words集合中的每一项均为代表一个单词的Range对象。使用Words(index)可以代表一个单词，其中index为索引序号，表示单词在Words集合中的位置。例如： 以下代码显示当前选定的单词数。 MsgBox Selection.Words.Count & “ words are selected“ 以下代码将所选内容中第一个单词的格式设为24磅加倾斜。 With Selection.Words(1) .Italic = True .Font.Size = 24 End With,46,Word中的常用对象,以下代码选定活动文档中的第一个单词（及单词后的空格）。 ActiveDocument.Words(1).Select 说明：如果所选内容为插入点，且后面紧跟一个空格，则Selection.Words(1)指所选内容前面的单词。如果所选的为插入点且后面紧跟一个字符，则Selection.Words(1)指所选内容后面的单词。 使用InsertAfter 方法或InsertBefore 方法可将文本添至Range 象。下列示例在活动文档的第一个单词后面插入文本。 ActiveDocument.Range.Words(1).InsertAfter “新单词“,47,Word中的常用对象,Characters集合 由选定内容、区域或文档中的字符所组成的集合。Characters集合中的每个元素都是代表一个字符的Range对象，而不是字符对象。用Characters(index)可代表一个Range对象，表示一个字符。其中index是索引序号，该索引序号指出了字符在 Characters 集中的位置。例如： 以下代码显示选定部分的字符数。 MsgBox Selection.Characters.Count & “ characters are selected“ 以下代码将选定内容的首字符设置为24磅的加粗格式。 With Selection.Characters(1) .Bold = True .Font.Size = 24 End With,48,Word中的常用对象,以下代码可以在活动文档的首段之后插入一个新段落。 With ActiveDocument .Paragraphs(1).Range.InsertParagraphAfter .Paragraphs(2).Range.InsertBefore “新文本“ End With,49,Word中的常用对象,Sections/Section对象 Section对象代表选定内容、范围或文档中的某一节。Section对象为Sections集合的一个成员。Sections集合包含了选定内容、范围或文档中的所有节。常用Sections(index)的形式代表单独的Section对象，其中index为索引号。例如： 以下代码可以修改活动文档第一节的左、右页边距。 With ActiveDocument.Sections(1).PageSetup .LeftMargin = InchesToPoints(0.5) .RightMargin = InchesToPoints(0.5) End With,50,Word中的常用对象,可用Add方法或InsertBreak方法在文档中添加新的节。以下代码用于在活动文档的开头添加一节。 Set myRange = ActiveDocument.Range(Start:=0, End:=0) ActiveDocument.Sections.Add Range:=myRange myRange.InsertParagraphAfter 以下代码用于在选定内容的第一段之前添加一分节符。 Selection.Paragraphs(1).Range.InsertBreak Type:=wdSectionBreakContinuous 以下代码在活动文档最后一节的结尾插入文字。 With ActiveDocument.Sections.Last.Range .Collapse Direction:=wdCollapseEnd .InsertAfter “end of document“ End With,51,Word中的常用对象,以下代码显示活动文档中节的数目，在选定内容的第一段之前插入分节符，并再次显示节的数目。 MsgBox ActiveDocument.Sections.Count & “ sections“ Selection.Paragraphs(1).Range.InsertBreak _ Type:=wdSectionBreakContinuous MsgBox ActiveDocument.Sections.Count & “ sections“,52,53,Word中的常用对象,Range对象 代表文档中的一个连续范围。每一个Range对象由一起始（start）和一终止（End）字符位置定义。文档的起始位置为0。例如创建一个由指定文档的前两段组成的区域，该区域的起始点在第一段的起始处，它的结束点在第二段的结束处（段落标记之后）。 Range对象Range方法的语法为： expression.Range(Start,End) 说明：该表达式返回一个Document文本对象。其中，expression（对象达式）是必须的，参数Start和End)分别表示Range对象的起止位置。,54,Word中的常用对象,Range对象使用举例： 以下代码显示活动文档前10个字符，并在开始处插入文字。 Dim myRange As Range Set myRange = ActiveDocument.Range(Start:=0, End:=10) MsgBox myRange myRange.InsertBefore “Hello “ '类似于书签，在活动文档的开头插入文字,55,Word中的常用对象,将活动文档中的第二个段落内容居中。 ActiveDocument.Paragraphs(2).Range.Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter 将前10字符格式设置为粗体。 ActiveDocument.Range(Start:=0, End:=10).Bold = True 下列代码创建一个Range对象，该对象从第二段开头开始，至第五段末尾后结束。 Sub NewRange() Dim doc As Document, rngDoc As Range Set doc = ActiveDocument Set rngDoc = doc.Range(Start:=doc.Paragraphs(2).Range.Start, _ End:=doc.Paragraphs(5).Range.End) 或直接使用Set rngDoc = ActiveDocument.Range( _ Start:=ActiveDocument.Paragraphs(2).Range.Start, _ End:=ActiveDocument.Paragraphs(5).Range.End) End Sub,56,Word中的常用对象,以下程序可以用于判断选定位置是否为插入点。 Sub 判断选定是否为插入点() Dim R1 As Range Set R1 = ActiveDocument.Range() R1.Select '判断当前Selection对象是否为一个插入点 If Selection.Type = wdSelectionIP Then MsgBox “选中对象为一个插入点！“ Else MsgBox “选中对象不是一个插入点！“ End If End Sub,57,Word中的常用对象,【例5-2】 复制一文章中的每一句到该句的句头，用红色斜体表示，界面设计如图5-2所示，设计步骤如下： 启动Word程序，新建一个空白文档，在文档中输入如图5-3所示的文字段落。 打开“控件工具箱”工具栏，在Word文档中添加两个命令按钮CommandButton12，然后将两个命令按钮的Caption属性分别设置为“复制句子”和“清除添加”。 双击任何一个命令按钮，进入VBE编辑器，分别编写命令按钮的Click事件代码。,58,Word中的常用对象,Private Sub CommandButton1_Click() “复制句子”按钮 Dim te As Word.Range With ActiveDocument For I = .Sentences.Count -1 To 1 Step -1 Set te = .Range(.Sentences(I).Start, .Sentences(I).End) ' Set te = .Sentences(I) '也可以这样表示 te.Select te.Copy Selection.MoveLeft Selection.Paste .Sentences(I).Font.Color = wdColorRed .Sentences(I).Font.Italic = True Next End With End Sub,59,Word中的常用对象,Private Sub CommandButton2_Click() “清除添加”按钮 '清除刚才复制出来的内容 Dim te As Word.Range With ActiveDocument For I = .Sentences.Count - 2 To 0 Step -2 Set te = .Sentences(I) : te.Delete Next End With End Sub 关闭VBE窗口，单击“控件工具箱”工具栏中的“退出设计模式”按钮，再单击“复制句子”可复制文本。,60,Word中的常用对象,【例5-3】 文本倒置，实现文本倒置的程序代码如下： Sub 文本