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