循环在+VBA中的应用

1、循环在WORDVBA中的应用001在活动文档的开头插入一张4列3行的表格。ForEach.Next结构用于循环遍历表格中的每个单元格。在ForEach.Next结构中，InsertAfter方法用于将文字添至表格单元格(单元格1、单元格2、以此类推)。SubCreateNewTable()DimdocActiveAsDocumentDimtblNewAsTableDimcelTableAsCellDimintCountAsIntegerSetdocActive=ActiveDocumentSettblNew=_Range:=(Start:=0,End:=0),NumRows:=3,_NumCo

2、lumns:=4)intCount=1ForEachcelTableIn"Cell"&intCountintCount=intCount+1NextcelTableFormat:=wdTableFormatColorful2,_ApplyBorders:=True,ApplyFont:=True,ApplyColor:=TrueEndSubCell方法返回单独的Cell对002在活动文档中第一张表格的第一个单元格中插入文字而InsertAfter方象。Range属性返回一个Range对象。Delete方法用于删除现有的文字,法用于插入文字“Cell1,ToSubIn

3、sertTextInCell()If>=1ThenWith(1).Cell(Row:=1,Column:=1).Range.Delete.InsertAfterText:="Cell1,1"EndWithEndIfEndSub003返回并显示文档中第一张表格的第一行中每个单元格的内容。SubReturnTableText()DimtblOneAsTableDimcelTableAsCellDimrngTableAsRangeSettblOne=(1)ForEachcelTableIn(1).CellsSetrngTable=(Start:=_End:=-1)MsgBo

4、xNextcelTableEndSubSubReturnCellText()DimcelTableAsCellDimrngTableAsRangeSettblOne=(1)ForEachcelTableIn(1).CellsSetrngTable=Unit:=wdCharacter,Count:=-1MsgBoxNextcelTableEndSub004在活动文档的开头插入用制表符分隔的文本，然后将这些文本转换为表格。SubConvertExistingText()With.InsertBefore"one"&vbTab&"two"&am

5、p;vbTab&"three"&vbCr.ConvertToTableSeparator:=Chr(9),NumRows:=1,NumColumns:=3EndWithEndSub005定义一个数组，该数组的元素个数等于文档中第一张表格(假定为OptionBase1)中的单元格数。ForEach.Next结构用于返回每个表格单元格的内容，并将文字指定给相应的数组元素。SubReturnCellContentsToArray()DimintCellsAsIntegerDimcelTableAsCellDimstrCells()AsStringDimintCou

6、ntAsIntegerDimrngTextAsRangeIf>=1ThenWith(l).RangeintCells=.ReDimstrCells(intCells)intCount=1ForEachcelTableIn.CellsSetrngText=Unit:=wdCharacter,Count:=-1strCells(intCount)=rngTextintCount=intCount+1NextcelTableEndWithEndIfEndSub006将当前文档中的表格复制到新文档中。SubCopyTablesToNewDoc()DimdocOldAsDocumentDimrng

7、DocAsRangeDimtblDocAsTableIf>=1ThenSetdocOld=ActiveDocumentSetrngDoc=End:=0)ForEachtblDocInWithrngDoc.Paste.CollapseDirection:=wdCollapseEnd.InsertParagraphAfter.CollapseDirection:=wdCollapseEndEndWithNextEndIfEndSub007显示Documents集合中每个文档的名称。SubLoopThroughOpenDocuments()DimdocOpenAsDocumentForEach

8、docOpenInDocumentsMsgBoxNextdocOpenEndSub008使用数组存储活动文档中包含的所有书签的名称。SubLoopThroughBookmarks()DimbkMarkAsBookmarkDimstrMarks()AsStringDimintCountAsIntegerIf>0ThenReDimstrMarks-1)intCount=0ForEachbkMarkInstrMarks(intCount)=intCount=intCount+1NextbkMarkEndIfEndSub009更新活动文档中的DATE域。SubUpdateDateFields()

9、DimfldDateAsFieldForEachfldDateInIfInStr(1,"Date",1)ThenNextfldDateEndSub010如果名为"Filename"的词条是AutoTextEntries集合中的一部分，则以下示例显示条消息。SubFindAutoTextEntry()DimatxtEntryAsAutoTextEntryForEachatxtEntryInIf="Filename"ThenMsgBox"TheFilenameAutoTextentryexists.NextatxtEntryEn

10、dSub011在第一个表格中添加一行，然后将文本Cell插入该行SubCountCells()DimtblNewAsTableDimcelTableAsCellDimintCountAsIntegerintCount=1SettblNew=(1)SetrowNew=ForEachcelTableInText:="Cell"&intCountintCount=intCount+1NextcelTableEndSub012向新文档中添加一个3行5列的表格，然后在表格的每个单元格中插入数据。SubNewTable()DimdocNewAsDocumentDimtblNew

11、AsTableDimintXAsIntegerDimintYAsIntegerSetdocNew=SettblNew=3,5)WithtblNewForintX=1To3ForintY=1To5.Cell(intX,intY)."Cell:R"&intX&",C"&intYNextintYNextintXEndWithEndSub013将Blue变量的值设为6,如果该变量不存在，本示例将该变量添加至文档，并将值设为6。ForEachaVarInIf="Blue"Thennum=NextaVarIfnum=0Th

12、enName:="Blue,Value:=6Else(num).Value=6EndIf014在文档关闭以前提示用户保存文档。SubPromptToSaveAndClose()DimdocAsDocumentForEachdocInDocumentsSaveChanges:=wdPromptToSaveChangesNextEndSub015若要确定文档是否处于打开状态，可使用ForEachNext语句列举Documents集合中的元素。如果文档是打开的，则下列示例激活该文档，如果没有打开文档，则将该文档打开。SubActivateOrOpenDocument()DimdocAsDo

13、cumentDimdocFoundAsBooleanForEachdocInDocumentsIfInStr(1,"",1)ThendocFound=TrueExitForElsedocFound=FalseEndIfNextdocIfdocFound=FalseThenFileName:=""EndSub016第三个多级符号列表模板创建另一种编号样式。SetmyTemp=ListGalleries(wdOutlineNumberGallery).ListTemplates(3)Fori=1to9IfiMod2=0Then(i).NumberStyle=

14、_wdListNumberStyleUppercaseRomanElse(i).NumberStyle=_wdListNumberStyleLowercaseRomanEndIfNexti017将活动文档中每个多级符号列表的编号样式更改为大写字母。ForEachltInForEachllIn=wdListNumberStyleUppercaseLetterNextllNextlt018将活动文档页脚中的页码格式设置为小写罗马数字。ForEachsecIn(wdHeaderFooterPrimary).PageNumbers_.NumberStyle=wdPageNumberStyleLower

15、caseRomanNextsec019显示活动文档各列表的项数。ForEachliInMsgBoxNextli020显示活动文档中每个段落的样式。ForEachparainMsgBoxNextpara021交替设置活动文档中的所有段落为“标题3”和“正文”样式Fori=1ToIfiMod2=0Then(i).Style=wdStyleNormalElse:(i).Style=wdStyleHeading3EndIfNexti022显示所选内容中每个字符的样式。Characters集合的每个元素都是一个Range对象ForeachcinMsgBoxNextc023将从Normal模板中删除名为“

16、Custom1”的工具栏。DimcbLoopAsCommandBarForEachcbLoopInCommandBarsIf="Custom1"ThenSource:=,_Name:="Custom1",_Object:=wdOrganizerObjectCommandBarsEndIfNextcbLoop024提示用户删除活动文档的相关模板中的每一个“自动图文集”词条。如果用户单击“确定”按钮，则将删除“自动图文集”词条。DimatEntryAsAutoTextEntryDimintResponseAsIntegerForEachatEntryIn_i

17、ntResponse=MsgBox("Doyouwanttodeletethe"&&"AutoTextentry",vbYesNoCancel)IfintResponse=vbYesThenWithSource:=.Path&""&.Name,Name:=,Object:=wdOrganizerObjectAutoTextEndWithElseIfintResponse=vbCancelThenExitForEndIfNextatEntry025显示Word启动时自动加载的每一加载项的名称。Dimadd

18、inLoopasAddInDimblnFoundasBooleanblnFound=FalseForEachaddinLoopInAddInsWithaddinLoopIf.Autoload=TrueThenMsgBox.NameblnFound=TrueEndIfEndWithIfblnFound<>TrueThenMsgBox"Noadd-inswereloadedautomatically.026判断名为的加载项是否自动加载。DimaddinLoopasAddInForEachaddinLoopInAddinsIfInStr(LCase$,"")

19、>0ThenIf=TrueThenMsgbox"Autoload"EndIfNextaddinLoop027为所选内容的第一节的每个页面添加由黑点构成的边框。DimborderLoopAsBorderForEachborderLoopIn(1).BordersWithborderLoop.ArtStyle=wdArtBasicBlackDots.ArtWidth=6EndWithNextborderLoop028为活动文档中的第一节的每个页面添加由特定图片所构成的边框。DimborderLoopAsBorderWith(1).=TrueForEachborderLoo

20、pIn.Borders.ArtStyle=wdArtPeople.ArtWidth=15EndWithNextborderLoopOLE对象形式链接EndWith029如果未将Word设置为自动更新链接，则更新活动文档中所有以的图形。DimshapeLoopasShapeForEachshapeLoopInWithshapeLoopIf.Type=msoLinkedOLEObjectThenIf.=FalseThen.EndIfEndIfEndWithNexts030更新活动文档中未被自动更新的域。DimfieldLoopasFieldForEachfieldLoopInIf=FalseThe

21、nfieldLoop031在活动文档中的所有居中段落底部应用下边框。ForEachparaInIf=wdAlignParagraphCenterThen(wdBorderBottom).LineStyle=wdLineStyleSingle(wdBorderBottom),LineWidth=wdLineWidth300PtEndIfNextpara032为当前节中的所有页面添加边框。ForEachaBorderIn(1).Borders=wdArtBasicBlackDots=6NextaBorder033检查活动文档中的所有样式，如果检查到一个非内置样式，则显示该样式的名称。Dimstyl

22、eLoopAsStyleForEachstyleLoopinIf=FalseThenMsgboxEndIfNextstyleLoop034检查应用程序中创建的所有题注标签，如果检查到一个非内置的题注标签，则显示该标签的名称。DimclLoopAsCaptionLabelForEachclLoopinCaptionLabelsIf=FalseThenMsgboxEndIfNextclLoop035在父节点中添加子节点，并在父节点中显示文本以代表创建的子节点数目SubCountChildNodes()DimshpDiagramAsShapeDimdgnNodeAsDiagramNodeDimshp

23、TextAsShapeDimintCountAsInteger'AddradialdiagramtothecurrentdocumentSetshpDiagram=_(Type:=msoDiagramRadial,Left:=10,_Top:=15,Width:=400,Height:=475)'AddfirstnodetothediagramSetdgnNode='AddthreechildnodesForintCount=1To3NextintCount'AddatextboxforeachnodeinthediagramForintCount=1To4Se

24、tshpText=Str(intCount)NextintCountEndSubNormal模板中。036将与活动文档相关的模板中的所有“自动图文集”词条复制到DimatEntryAsAutoTextEntryForEachatEntryIn_Source:=_Destination:=,Name:=,_Object:=wdOrganizerObjectAutoTextNextatEntry037如果活动文档中含有名为“SubText的样式，本示例将该本翎:;复制到C:Templates中。DimstyleLoopAsStyleForEachstyleLoopInIfstyleLoop=&qu

25、ot;SubText"ThenSource:=,_Destination:="C:Templates",_Name:="SubText”，Object:=wdOrganizerObjectStylesEndIfNextstyleLoop038显示各打开文档的名称。ForEachaDocInDocumentsaName=aName&&vbCrNextaDocMsgBoxaName039查看Documents集合以判定名为""的文档是否已打开。如果该文档包含在Documents集合中，则激活该文档；否则，打开该文档ForE

26、achdocInDocumentsIf=""Thenfound=TrueNextdocIffound<>TrueThenFileName:="C:Documents"ElseDocuments("").ActivateEndIf040如果FirstLetterExceptions集合包含缩写"addr.",则下列示例将其从中删除。ForEachaExceptInIf="addr."ThenNextaExcept041创建一篇新文档，然后插入所有的自动更正的首字母例外项。ForEach

27、aExceptInWithSelection.InsertAfter.InsertParagraphAfter.CollapseDirection:=wdCollapseEndEndWith042显示与Windows集合的第一个窗口相关的窗格中所有的非打印字符。ForEachmyPaneInWindows(1).Panes=TrueNextmyPane043设置Windows集合中所有窗口的视图选项。ForEachmyWindowInWindowsWith.ShowTabs=True.ShowParagraphs=True.Type=wdNormalViewEndWithTextColumns

28、NextmyWindow044将包含所选内容的节的格式设置为三栏。ForEach.Next循环用于显示集合中每一列的宽度。NumColumns:=3ForEachacolInMsgBox"Width="&PointsToInchesNextacol045显示活动文档中每一个域的域代码。DimfieldLoopAsFieldForEachfieldLoopInMsgBoxChr(34)&&Chr(34)NextfieldLoop046判断活动文档中是否包含一个名为“Title的邮件合并域。DimfieldLoopAsFieldForEachfieldL

29、oopInIfInStr(1,"Title",1)ThenMsgBox"ATitlemergefieldisinthisdocument"EndIfNextfieldLoop047如果名为"acheive"的"自动更正"词条是AutoCorrectEntries集合的一员，则下列示例将该词条删除。SubDeleteAutoTextEntry()DimaceEntryAsAutoCorrectEntryForEachaceEntryInIf="acheive"ThenNextaceEntryEnd

30、Sub048为活动文档的所有超链接创建快捷方式，并将其添加到“收藏夹”文件夹。ForEachmyHyperlinkInNextmyHyperlink049为创建快捷方式，并将其添加至“收藏夹”文件夹。如果还未打开，本示例将从C:Documents文件夹打开该文档。ForEachdocinDocumentsIfLCase=""ThenisOpen=TrueNextdocIfisOpen<>TrueThen_FileName:="C:DocumentsDocuments("").AddToFavorites050为活动文档中第一节的每个

31、页面添加单线型边框，然后设置每个边框到页面边缘的距离。DimborderLoopAsBorderWith(1)ForEachborderLoopIn.Borders=wdLineStyleSingle=wdLineWidth050PtNextborderLoopWith.Borders.DistanceFrom=wdBorderDistanceFromPageEdge.DistanceFromTop=20.DistanceFromLeft=22.DistanceFromBottom=20.DistanceFromRight=22EndWithEndWith051为所选内容的第一节的每个页面添加

32、边框，然后将文本与页面边框的距离设置为6磅。DimborderLoopAsBorderWith(1)ForEachborderLoopIn.Borders=wdArtSeattle二22NextborderLoopWith.Borders.DistanceFrom=wdBorderDistanceFromText.DistanceFromTop=6.DistanceFromLeft=6.DistanceFromBottom=6.DistanceFromRight=6EndWithEndWith052如果文档在上次保存后进行了修改，本示例将保存该文档。DimdocLoopAsDocumentFo

33、rEachdocLoopInDocumentsIf=FalseThenNextdocLoop053先将文档的左右边距设置为英寸，然后打印所有打开的文档DimdocLoopAsDocumentForEachdocLoopInDocumentsWithdocLoop.=InchesToPoints.=InchesToPoints.PrintOutEndWithNextdocLoop054删除活动文档正文和页脚中的所有域。ForEachaFieldinNextaFieldSetmyRange=(1).Footers_(wdHeaderFooterPrimary).RangeForEachaField

34、InNextaField055将底纹应用于选定内容中每张表格的首行。ForEach.Next循环用于在选定内容的每张表格中循环。SubShadeAllFirstRowsInTables()DimtblTableAsTableIf>=1ThenForEachtblTableIn(1).=wdTexture30PercentNexttblTableEndIfEndSub056在安装的转换器中循环，如果发现WordPerfect转换器，本示例会使用该转换器保存活动文档。SubSaveWithConverter()DimcnvWrdPrfAsFileConverter'LookforWo

35、rdPerfectfileconverter'Andsavedocumentusingtheconverter'FortheFileFormatconvertervalueForEachcnvWrdPrfInIf="WrdPrfctWin"ThenFileName:="",FileFormat:=EndIfNextcnvWrdPrfEndSub057显示使用密码保存文档的过程。SubSaveW让hPassword(docCurrentAsDocument,strPWDAsString)WithdocCurrent.SaveAsWriteP

36、assword:=strPWDEndWithEndSub058当SpellingSuggestions方法应用于Application对象时，必须指定要检查的单词。下例检查当GetSpellingSuggestions方法应用于一个区域时，则检查该区域的第一个单词。活动文档中的任意单词是否存在拼写建议。如果有，则在消息框中显示这些建议。不能在拼与建议集合中添加或删除建议。拼与建议是从主词典或自定乂词典中狄取的。ForEachwdInSetsugg=If<>0ThenForEachssInsuggMsgBoxNextssEndIfNextwd059在活动文档所有文字部分中删除与主文本

37、部分不同的自定义字符格式。ForEachaStoryInIf<>wdMainTextStoryThenaStory060在活动文档的各部分中寻找“MicrosoftWord；如找到则将其设置为斜体格式。ForEachmyStoryRangeInFindText:="MicrosoftWord",Forward:=TrueWhile=TrueFindText:="MicrosoftWord",Forward:=TrueWendWhileNotIsNothing)SetmyStoryRange=FindText:="MicrosoftW

38、ord",Forward:=TrueWhile=TrueFindText:="MicrosoftWord",Forward:=TrueWendWendNextmyStoryRange061包含内置"Normal”样式的样式分隔符的所有段落设置格式。SubStyleSep()DimpghDocAsParagraphForEachpghDocInIf=TrueThen="NormalEndIfNextpghDocEndSub062在每个样式分隔符后添加一个段落，然后删除样式分隔符。SubRemoveStyleSeparator()DimpghDoc

39、AsParagraphDimstyNameAsString'Loopthroughallparagraphsindocumenttocheckifitisastyle'separator.Ifitis,deleteitandenteraregularparagraphForEachpghDocInIf=TrueThenWithSelection.Collapse(wdCollapseEnd).TypeParagraph.MoveLeft(1).TypeBackspaceEndWithEndIfNextpghDocEndSub063在所选段落中英寸处添加一个制表位，并显示TabS

40、tops集合中每一项目的位置。Position:=InchesToPointsForEachaTabInMsgBox"Position="_&PointsToInches&"inches"NextaTab064使用Paragraphs集合（或包含多个段落的一个范围）时，如果集合中各段制表位位置不一致，就必须在各段中分别修改。下例删除活动文档中位于各段1英寸处的制表位。ForEachparaIn(InchesToPoints(1).ClearNextpara065显示活动文档附加的模板中为FileOpen命令指定的所有组合键。DimkbLo

41、opAsKeyBindingDimstrOutputAsStringCustomizationContext=ForEachkbLoopIn_KeysBoundTo(KeyCategory:=wdKeyCategoryCommand,_Command:="FileOpen")strOutput=strOutput&&vbCrNextkbLoopMsgBoxstrOutput066删除"Normal"模板中"Macro1"的所有键盘指定方案。DimaKeyAsKeyBindingCustomizationContext=

42、NormalTemplateForEachaKeyIn_KeysBoundTo(KeyCategory:=wdKeyCategoryMacro,_Command:="Macro1")NextaKey067为第一个文档中的每一编号或有项目符号的段落添加一个黄色背景oForEachnumparInDocuments(1).ListParagraphs=wdYellowNextnumpar068活动文档中第二个列表中的段落添加双下划线。ForEachmyparaIn(2).ListParagraphs=wdUnderlineDoubleNextmypara069取消所有组合图形的

43、组合，并取消myDocument中所有图片和OLE对象的组合SetmyDocument=ActiveDocumentForEachsInNext070取消myDocument中所有组合图形的组合，但并不取消文档中图片和OLE对象的组合。SetmyDocument=ActiveDocumentForEachsInIf=msoGroupThenNext071选定第一张文档表格的第一列。ForEach.Next循环语句用于在所选内容(第一列中的所有单元格)的每个单元格中添加文字。SubAddTextToTableCells()DimintCellAsIntegerDimoCellAsCell.Cel

44、l(1,1).SelectintCell=1ForEachoCellIn="Cell"&intCellintCell=intCell+1NextoCellEndSub072显示在“自动插入题注”对话框内所选项目的名称。ForEachautoCapInAutoCaptionsIf=TrueThenMsgBox&"isconfiguredforautoinsert"EndIfNextautoCap073将author属性添加到活动文档中的book元素，然后设置属性的值。SubAddIDAttribute()DimobjElementAsXML

45、NodeDimobjAttributeAsXMLNodeForEachobjElementInIf=wdXMLNodeElementThenIf="book"ThenSetobjAttribute=.Add("author="DavidBarber"ExitForEndIfEndIfNextEndSub074查找单词“ook”的各种拼写建议。建议包括对通配符的替换。所有拼写建议都显示在消息框中。SubDisplaySuggestions()DimsugListAsSpellingSuggestionsDimsugAsSpellingSugges

46、tionDimstrSugListAsStringSetsugList=GetSpellingSuggestions(Word:="lrok”,_SuggestionMode:=wdSpellword)If=0ThenMsgBox"Nosuggestions."ElseForEachsugInsugListstrSugList=strSugList&vbTab&&vbLfNextsugMsgBox"Thesuggestionsforthiswordare:"_&vbLf&strSugListEndIfEn

47、dSub075在一个新文档中创建一个3x3表格，并为表格中每一个单元格分配连续的单元格号。然后将第一行的高度设置为20磅，并在单元格的顶端垂直对齐文本。SetnewDoc=SetmyTable=3,3)NextWith(1).Height=20.=wdAlignVerticalTopEndWith076新建一个文档，并将相同的段落插入10次。然后设置新文档的垂直对齐方式，使10个段落在上边距和下边距之间等距排列(两端对齐)。SetmyDoc=WithFori=1to9.InsertAfter"Thisisasentence.".InsertParagraphAfterNex

48、ti.InsertAfter"Thisisasentence."EndWith=wdAlignVerticalJustify077如果“记事本”应用程序在Tasks集合中，则本示例激活“记事本”oSubActivateNotePad()DimTask1'NotepadmustbeopenandintheTaskList.ForEachTask1InTasksIfInStr,"Notepad")>0Then=wdWindowStateNormalEndIfNextTasklEndSub078打开RecentFiles集合中的每一篇文档。Sub

49、OpenRecentFiles()DimrFileAsRecentFileForEachrFileInRecentFilesNextrFileEndSub079在名为“”的文档末尾插入文本。“ForEachNext语句用来判断此文档是否已打开。ForEachaDocumentInDocumentsIfInStr(LCase$,"")ThenSetmyRange=Documents("").Content"theend."EndIfNextaDocument080将F2添加给“Italic(倾斜)命令，然后使用“ForEachNext循

50、环显示分派给“Italic命令的键及上下文。DimkbLoopAsKeyBindingCustomizationContext=NormalTemplateKeyCategory:=wdKeyCategoryCommand,_Command:="Italic,KeyCode:=wdKeyF2ForEachkbLoopIn_KeysBoundTo(KeyCategory:=wdKeyCategoryCommand,_Command:="Italic")MsgBox&vbCr&kbLoop081在文档1的所有超链接中查找地址中含有“Microsoft&

51、quot;的一个链接。如果找到则用Follow方法激活该链接。ForEachhLinkInDocuments(1).HyperlinksIfInStr,"Microsoft")<>0ThenExitForEndIfNexthLink082列举列表库集合，以将其中七个列表模板(格式)恢复成Word内置列表模板格式。ForEachlgInListGalleriesForx=1To7(x)NextxNextlg083重新设置”项目符号和编号”对话框内的所有列表模板，以仍旧使用内置格式。ForEachlgInListGalleriesFori=1to7Index:=iN

52、exti084显示FontNames集合中的字体名称。DimstrFontAsStringDimintResponseAsIntegerForEachstrFontInFontNamesintResponse=MsgBox(Prompt:=strFont,Buttons:=vbOKCancel)IfintResponse=vbCancelThenExitForNextstrFont085重新加载Address智能标记类型的智能标记识别器和操作处理程序SubReloadAddressActionsRecognizersUsingFriendlyName()DimobjSmartTagTypeAs

53、SmartTagTypeDimstrSmartTagTypeAsStringForEachobjSmartTagTypeInIf="Address"ThenWithobjSmartTagType.EndWithExitForEndIfNextEndSub086搜索活动文档的每篇子文档，显示子文档的标题级别。If>=1ThenForeachsinMsgBox叮heheadinglevelforSubDoc"&i_&"is"&i=i+1NextsElseMsgBox"Therearenosubdocument

54、sdefined."EndIf087将author属性添加到活动文档中的book元素，然后设置属性的值。SubAddIDAttribute()DimobjElementAsXMLNodeDimobjAttributeAsXMLNodeForEachobjElementInIf=wdXMLNodeElementThenIf="book"ThenSetobjAttribute=_.Add("author”，="DavidBarber"ExitForEndIfEndIfNextEndSub088将id属性添加到活动文档中的book元素，然后

55、设置属性的值。SubAddIDAttribute()DimobjElementAsXMLNodeDimobjAttributeAsXMLNodeForEachobjElementInIf=wdXMLNodeElementThenIf="book"ThenSetobjAttribute=_.Add("id”，="ISBN:08"ExitForEndIfEndIfNextEndSub089提示用户是删除还是保留自动更正例外项”对话框的“其他”选项卡中的每个“自动更正”例外项。ForEachanEntryIn_response=MsgBox(&quo

56、t;Deleteentry:&,vbYesNoCancel)Ifresponse=vbYesThenElseIfresponse=vbCancelThenEndEndIfNextanEntry090显示可用来打开文档的转换器的唯一的格式值和格式名称。ForEachfcInFileConvertersIf=TrueThen_MsgBox&vbCr&Nextfc091遍历活动文档中所有浮动图形，并将所有链接的MicrosoftExcel工作表设置为可自动更新。ForEachsInIf=msoLinkedOLEObjectThenIf=""Then=Tru

57、eEndIfEndIfNext092最小化MicrosoftExcel应用程序窗口。ForEachmyTaskInTasksIfInStr,"MicrosoftExcel")>0Then=wdWindowStateMinimizeEndIf缩进英093设置第三个多级符号列表模板的所有级别的缩进量。每个列表级别都比前一个级别多寸（18磅）r=0ForEachlevInListGalleries(wdOutlineNumberGallery)_.ListTemplates(3).ListLevels=wdListLevelAlignLeft=rr=r+18Nextlev094将活动文档中的每个索引设置为两列。ForEachmyIndexIn二2NextmyIndex095如果在AutoTextEntries集合中包含一个名为“Test”的“自动图文集”词条，本示例从Normal模板插入该词条。ForEachentryI