Excel-VBA-操作-Word(入門篇)

1、本文的對(duì)象是:有一定ExcelVBA基礎(chǔ)，對(duì)WodVBA還沒(méi)有什么認(rèn)識(shí)，想在Excel中通過(guò)VBA操作Word還有困難的人。一、新建Word引用需要首先創(chuàng)建一個(gè)對(duì)WordApplication對(duì)象的引用。在VBA中，工具引用,選取"MicrosoftWord11.0ObjectLibrary”。方法一、NewWord.ApplicationDimWordappAsWord.ApplicationSetWordapp=NewWord.ApplicationWordapp.Visible=True'可見(jiàn)'Wordapp.ScreenUpdating=False'屏

2、幕刷新DimWordDAsWord.Document，定義word類SetWordD=Wordapp.Documents.Add'新建文檔'SetWordD=Wordapp.Documents.open(filename)'打開(kāi)文檔'關(guān)閉文檔1退出Word對(duì)象WordD.CloseSetWordD=NothingWordApp.Quit方法二、CreateObjectDimWordAppAsObjectSetWordApp=CreateObject("Word.Application")'新建Word對(duì)象后續(xù)操作及退出一樣方法三、Ge

3、tObject文件已打開(kāi)的情況下，使用：SetWordD=GetObject(filename),可建立對(duì)文檔的引用，如果文件沒(méi)有打開(kāi)，則還需要先用方法一或二來(lái)操作。至于方法一和方法二的區(qū)別，在網(wǎng)上詢問(wèn)了一下，大師們的回答是：方法一：前期綁定，好處是在對(duì)象后輸入句點(diǎn)可以給出快速提示，因?yàn)樾枰纫脤?duì)象，所以容易出現(xiàn)版本兼容問(wèn)題。方法二：后期綁定，沒(méi)有提示，根據(jù)運(yùn)行代碼機(jī)器上對(duì)象的版本創(chuàng)建對(duì)象，兼容性好。提示：有時(shí)二者有較大區(qū)別，可論壇搜索字典對(duì)象，建議編寫代碼時(shí)使用前期綁定,發(fā)布時(shí)使用后期綁定。二、認(rèn)識(shí)Word的結(jié)構(gòu)Excel有：Excel.Application'Excel引用Exc

4、el.Application.Workbooks'工作簿Excel.Application.Workbooks.Sheets(1)'工作表工作表下是Range,區(qū)域；Cells(row,col),單元格Word有：Word.ApplicationWord.Application.Documents'文檔文檔下有字符、單詞、句子、段落和節(jié)。字符組成單詞，單詞組成句子，句子組成段落。此外，每個(gè)文檔具有一個(gè)包含一個(gè)或多個(gè)節(jié)的Sections集合，每一個(gè)節(jié)都有一個(gè)包含該節(jié)頁(yè)眉和頁(yè)腳的HeadersFooters集合。Characters(index)Words(index)Se

5、ntences(index)Paragraphs(index)Sections(index)前三個(gè)返回Range對(duì)象，能直接使用任何區(qū)域?qū)傩曰蚍椒ㄐ薷脑揜ange對(duì)象。后面二個(gè)返回該集合的單個(gè)成員，而不是Range對(duì)象，不能直接使用區(qū)域?qū)傩曰蚍椒?。如下使用例子：Words(l)后面直接.Copy,而.Paragraphs(l)和.Copy之間多了一個(gè)Range。Selection.Words(l).CopyActiveDocument.Paragraphs(l).Range.CopyCharacters：字符,ActiveDocument.Sentences(l).Characters.Cou

6、nt,第一句的字符總數(shù)。Words：?jiǎn)卧~，對(duì)于英文來(lái)說(shuō)是二個(gè)空格之間的字母加空格，對(duì)于中文，一個(gè)標(biāo)點(diǎn)符號(hào)，一個(gè)漢字，或一個(gè)詞(按照微軟的輸入法中的詞組定義？)。(感覺(jué)不是很可靠？)Sentences：句子，以句號(hào)結(jié)束？感覺(jué)也不是一個(gè)很可靠的范圍，感覺(jué)還是字符、段落、節(jié)，控制起來(lái)靠譜一些。Range對(duì)象表示文檔中的一個(gè)連續(xù)范圍，由一個(gè)起始字符位置和一個(gè)終止字符位置定義。這個(gè)連續(xù)范圍可以小到一個(gè)插入點(diǎn)，大到整個(gè)文檔。DimrngPaAsRangeSetrngPa=ActiveDocument.Characters(1)'第一個(gè)字符SetrngPa=ActiveDocument.Range(

7、_Start:=ActiveDocument.Paragraphs(l).Range.Startz_End:=ActiveDocument.Paragraphs(4).Range.End)'第，段頭到第4段尾SetrngPa=ActiveDocument.Range(Start:=0zEnd:=10)'當(dāng)前文檔前10個(gè)字符rngPa.Select選定，我覺(jué)得用處不大，原因就是為什么要選中呢？能操作就直接操作，不能的話,就選中吧(他可以說(shuō)是沒(méi)辦法的辦法)。range對(duì)象的賦值：(包括任意的對(duì)象，Set是對(duì)對(duì)象賦值的標(biāo)準(zhǔn)語(yǔ)句)seta=b和變量的賦值：a=l不一樣三、通過(guò)錄制宏生成

8、代碼有了對(duì)Word基本結(jié)構(gòu)的認(rèn)識(shí),想操作這些對(duì)象應(yīng)該使用什么方法、修改哪些屬性？不知道就”錄制宏錄制宏是我們認(rèn)識(shí)未知對(duì)象的很好方法之一，通過(guò)宏錄制器將操作譯成Word的VisualBasic代碼，再根據(jù)需要修改代碼。Word中錄制與Excel不同的是，不能使用鼠標(biāo)移動(dòng)光標(biāo)或選中一行，只能使用鍵盤來(lái)移動(dòng)，或用Shift+方向鍵來(lái)選中。以下幾句話就是鍵盤的：上、下、左、右、Home、End.Shift+左選中5個(gè)字符、Shift+右選中5個(gè)字符。Selection.MoveUpUnit:=wdLinezCount:=1Selection.MoveDownUnit:=wdLine,Count:=1S

9、election.MoveLeftUnit:=wdCharacter,Count:=1Selection.MoveRightUnit:=wdCharacter,Count:=1Selection.HomeKeyUnit:=wdLineSelection.EndKeyUnit:=wdLineSelection.MoveLeftUnit:=wdCharacter,Count:=5ZExtend:=wdExtendSelection.MoveRightUnit:=wdCharacter,Count:=5,Extend:=wdExtend錄制的宏使用Selection屬性返回Selection對(duì)象。即

10、：錄制的宏總是以Selection.開(kāi)頭的，如上。要想使用這個(gè)Selection.,有時(shí)候我們就不得不先對(duì)特定的對(duì)象.Select,選中。當(dāng)然，Selection是一個(gè)Range,Characters>Words、Sentences也是Range,Paragraphs(n).Range,Sections(2).Range也是Range,那我們就可以將Selection.后面的語(yǔ)句嫁接到前面這些Range之后，就不用先.Select了。錄制的宏，通過(guò)嫁接或者復(fù)制到EXCELVBA之后，有的運(yùn)行會(huì)出錯(cuò)，此時(shí)應(yīng)檢查以下幾項(xiàng)：1、第一項(xiàng)中要求的"引用“建立了沒(méi)？2、利用VBA提醒功能檢

11、查語(yǔ)句。VBA編輯過(guò)程中，通常在打下.之后（需要前期綁定？），該對(duì)象所有的方法、屬性都會(huì)顯示出來(lái)，利用這個(gè)特點(diǎn)，可以檢查錄制的宏，能否嫁接到需要操作的對(duì)象之后。提示里有就能，沒(méi)有就不能。3、部分轉(zhuǎn)換函數(shù)，WordVBA里有，ExcelVBA里可能沒(méi)有，遇到這樣的情況，也可能出錯(cuò)。例：WordD.Paragraphs（l）.Range.ParagraphFormat.FirstLineIndent=CentimetersToPoints（0.35）Selection.ParagraphFormat.FirstLinelndent=CentimetersT。P。ints（0.35）是'&#

12、39;首行縮進(jìn)2字符”操作錄制的，嫁接后，運(yùn)行出錯(cuò)，按方法2檢查：.ParagraphFormat.FirstLineIndent能用在Range之后，那么就是CentimetersToPoints（0.35）出問(wèn)題了？這顯然是一個(gè)函數(shù)，字面意思是''厘米轉(zhuǎn)換成點(diǎn)數(shù)，（錄制時(shí)我明明輸入的是“2字符”，錄下來(lái)咋成了厘米為單位呢？）那是否是ExcelVBA里沒(méi)有這個(gè)函數(shù)呢？（我不知道），將=后面直接改為數(shù)字運(yùn)行通過(guò),最后試下來(lái)=2。大約相當(dāng)于5號(hào)字的''首行縮進(jìn)2字符。（這個(gè)20,就是20Points?0.35cm=20Points?）（有人可能會(huì)說(shuō)這樣的辦法太笨，

13、有什么好辦法請(qǐng)告知。先謝過(guò)!）四、Wordvba常用語(yǔ)句100句工、系統(tǒng)參數(shù)(01)Application.ActivePrinter'獲取當(dāng)前打印機(jī).當(dāng)前應(yīng)用'當(dāng)前應(yīng)用程、獲取Word、當(dāng)前應(yīng)用(02)Application.Height程序文檔的高度(03)Application.Width序文檔的寬度(04)Application.Build版本號(hào)和編譯序號(hào)(05)Application.Caption程序名(06)Application.DefaultSaveFormat返回空字符串，表示W(wǎng)ord文檔(07)Application.DisplayRecentFiles.

14、返回是否顯示最近使用的文檔的狀態(tài)(08)Application.Documents.Count1返回當(dāng)前打開(kāi)的文檔數(shù)(09)、返回當(dāng)、返回當(dāng)前文Application.FontNames.Count前可用的字體數(shù)(10) Application.Left檔的水平位置(11)Application.MacroContainer.FullName1返回當(dāng)前文檔名，包括所在路徑Application.MacroContainer.pach返回當(dāng)前文檔路徑Application.ActiveDocument.Path獲得文件的相對(duì)路徑(12)Application.NormalTemplate.Ful

15、lName1返回文檔標(biāo)準(zhǔn)模板名稱及所在位置(13) Application.RecentFiles.Count返回最近打開(kāi)的文檔數(shù)目(14)Application.System.CountryRegion1返回應(yīng)用程序所在的地區(qū)代碼(15)Application.System.FreeDiskSpace'返回應(yīng)用程序所在磁盤可用空間(16)Application.System.HorizontalResolution'返回顯示器的水平分辨率(17)Application.System.VerticalResolution返回顯示器的垂直分辨率(18)Application.Sy

16、stem.LanguageDesignation.返回系統(tǒng)所使用的語(yǔ)言(19)Application.System.MathCoprocessorlnstailed'返回系統(tǒng)是否安裝了數(shù)學(xué)協(xié)處理器(20)Application.System.OperatingSystem'返回當(dāng)前操作系統(tǒng)名(21)Application.System.ProcessorType回計(jì)算機(jī)處理器名(22) Application.System.Version操作系統(tǒng)的版本號(hào)(23) Application.Templates.Count，返'返I.返回應(yīng)用程序所使用的模板數(shù)'返回應(yīng)

17、用'返回應(yīng)用程(24) Application.UserName程序用戶名(25) Application.Version序的版本號(hào)2、Documents/Document對(duì)象(26)ActiveDocument.AttachedTemplate.FullName'返回當(dāng)前文檔采用的模板名及模板所在位(27)ActiveDocument.Bookmarks.Count1返回當(dāng)前文檔中的書簽數(shù)(28)ActiveDocument.Characters.Count1返回當(dāng)前文檔的字符數(shù)(29) ActiveDocument.CodeName'返回當(dāng)前文檔的代碼名稱(30)

18、ActiveDocument.Comments.Count、返回當(dāng)前文檔中的評(píng)論數(shù)(31)ActiveDocument.Endnotes.Count1返回當(dāng)前文檔中的尾注數(shù)(32) ActiveDocument.Fields.Count1返回當(dāng)前文檔中的域數(shù)目(33)ActiveDocument.Footnotes.Count、返回當(dāng)前文檔中的腳注數(shù)(34) ActiveDocument.FullName'返回當(dāng)前文檔的全名及所在位置(35) ActiveDocument.HasPassword'當(dāng)前文檔是否有密碼保護(hù)(36)ActiveDocument.Hyperlinks.

19、Count'返回當(dāng)前文檔中的鏈接數(shù)(37) ActiveDocument.Indexes.Count返回當(dāng)前文檔中的索引數(shù)(38)ActiveDocument.ListParagraphs.Count返回當(dāng)前文檔中項(xiàng)目編號(hào)或項(xiàng)目符號(hào)數(shù)(39)ActiveDocument.ListTemplates.Count返回當(dāng)前文檔中使用的列表模板數(shù)(40)ActiveDocument.Paragraphs.Count1返回當(dāng)前文檔中的段落數(shù)(41)打開(kāi)文件使用的密碼設(shè)置'獲取'當(dāng)前文ActiveDocument.Password=XXX(42) ActiveDocument.Re

20、adOnly當(dāng)前文檔是否為只讀屬性(43) ActiveDocument.Saved檔是否被保存(44) ActiveDocument.Sections.Count當(dāng)前文檔中的節(jié)數(shù)(45)ActiveDocument.Sentences.Count、當(dāng)前文檔中的語(yǔ)句數(shù)(46) ActiveDocument.Shapes.Count1當(dāng)前文檔中的形狀數(shù)，圖形？(47) ActiveDocument.Styles.Count1當(dāng)前文檔中的樣式數(shù)(48) ActiveDocument.Tables.Count'當(dāng)前文檔中的表格數(shù)(49)ActiveDocument.TablesOfAutho

21、rities.Count'返回當(dāng)前文檔中的引文目錄數(shù)(50)ActiveDocument.TablesOfAuthoritiesCategories.Count'返回當(dāng)前文檔中引文目錄類別數(shù)(51)ActiveDocument.TablesOfContents.Count返回當(dāng)前文檔中的目錄數(shù)(52)ActiveDocument.TablesOfFigures.Count'返回當(dāng)前文檔中的圖表目錄數(shù)3、Paragraphs/Paragraph對(duì)象(53) Selection.Paragraphs.Count'返回所選區(qū)域的段落數(shù)(54) Selection.Pa

22、ragraphs.First'返回所選區(qū)域中的第一段(55)ActiveDocument.Paragraphs(l).LeftIndent(56)返回當(dāng)前文檔中第一段的左縮進(jìn)值A(chǔ)ctiveDocument.Paragraphs(l).LineSpacing.返回當(dāng)前文檔中第一段的行距(57)ActiveDocument.Paragraphs(l).OutlineLevel、返回或設(shè)置當(dāng)前文檔中第一段的大綱級(jí)別2.OutlineLevel=wdOutlineLevelZ級(jí).OutlineLevel=wdOutlineLevel3級(jí)(58)ActiveDocument.Paragraphs

23、(l).RightIndent、返回當(dāng)前文檔中第一段的右縮進(jìn)量(59)ActiveDocument.Paragraphs(l).SpaceBefore'返回當(dāng)前文檔中第一段的段前間距(60)ActiveDocument.Paragraphs(l).SpaceAfter、返回當(dāng)前文檔中第一段的段后間距(61)ActiveDocument.Paragraphs(l).Range.Text'返回當(dāng)前文檔中第一段的內(nèi)容(62)ActiveDocument.Paragraphs(l).Range.Style.NameLocal'返回當(dāng)前文檔中第一段應(yīng)用的樣式名(63)Active

24、Document.Paragraphs(l).Range.Style.Description'返回當(dāng)前文檔中第一段所應(yīng)用樣式的詳細(xì)描述(64)ActiveDocument.Paragraphs(l).Range.Style.Font.Name'返回當(dāng)前文檔中第一段所應(yīng)用樣式的字體名(65)ActiveDocument.Paragraphs(l).Range.Style.Font.NameFarEast1返回或設(shè)置一種東亞字體名(66)ActiveDocument.Paragraphs(l).Range.Style.Font.Size.返回或設(shè)置當(dāng)前文檔中第一段所應(yīng)用樣式的字體大

25、小(67)ActiveDocument.Paragraphs(l).Range.Style.Font.Spacing'返回或設(shè)置字符間距(68)Selection.Words.Count'所選區(qū)域的字?jǐn)?shù)Sentences對(duì)象(69)Selection.Sentences.Item(l)1所選區(qū)域中的第一句的內(nèi)容Words對(duì)象(71) ActiveDocument.Words(l).Select1選擇當(dāng)前文檔中的第一個(gè)詞(72)ActiveDocument.Range.Words(l).InsertAfter"我愛(ài)你！”，在當(dāng)前文檔中的第一個(gè)詞后插入''

26、我愛(ài)你"4、Characters對(duì)象(73) Selection.Characters.Count'當(dāng)前文檔中所選區(qū)域的字符數(shù)(74)ActiveDocument.Paragraphs(l).Range.InsertParagraphAfter'在當(dāng)前文檔的第一段之后插入一個(gè)新段落5、Sections/Section對(duì)象(75)ActiveDocument.Sections.First'當(dāng)前文檔的第一節(jié)(76)ActiveDocument.Sections.First.PageSetup.BottomMargin'當(dāng)前文檔第一節(jié)所在頁(yè)的底邊距(77)A

27、ctiveDocument.Sections.First.PageSetup.LeftMargin'當(dāng)前文檔第一節(jié)所在頁(yè)的左邊距(78)ActiveDocument.Sections.First.PageSetup.RightMargin'當(dāng)前文檔第一節(jié)所在頁(yè)的右邊距(79)ActiveDocument.Sections.First.PageSetup.TopMargin'當(dāng)前文檔第一節(jié)所在頁(yè)的頂邊距(80)ActiveDocument.Sections.First.PageSetup.PaperSize '返或設(shè)置當(dāng)前文檔第一節(jié)所在頁(yè)的大小(81)Active

28、Document.Sections.First.PageSetup.PageHeight'返回或設(shè)置當(dāng)前文檔第一節(jié)所在頁(yè)的高度(82)ActiveDocument.Sections.First.PageSetup.PageWidth'返回或設(shè)置當(dāng)前文檔第一節(jié)所在頁(yè)的寬度(83) ActiveDocument.Sections.AddRange:=myRange'在當(dāng)前文檔中添加新節(jié)(84)ActiveDocument.Sections.Item(2)'當(dāng)前文檔中的第二節(jié)(85)ActiveDocument.Sections.Last.Range.InsertAf

29、ter”文檔結(jié)束！”，在當(dāng)前文檔中最后一節(jié)的結(jié)尾添加文字”文檔結(jié)束！”6、Range對(duì)象(86) ActiveDocument.Range(Start:=OzEnd:=10)'表示當(dāng)前文檔前10個(gè)字符所組成的一個(gè)Range對(duì)象(87)SetmyRangeActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Startz_End:=ActiveDocument.Paragraphs(4).Ra一個(gè)Range對(duì)象(88)ActiveDocument.Paragraphs(l).Range.Copy'復(fù)制當(dāng)前文檔

30、中的第一段(89)Selection.CopyDocuments.Add.Content.Paste1復(fù)制所選內(nèi)容到新文檔中(90)ActiveDocument.Bookmarks(vvBooklll).CopyName:=l,Book2"1將Book2書簽復(fù)制Bookl書簽標(biāo)記的位置(91) Selection.GoToWhat:=wdGoToLine,Which:=wdGoToAbsolutezCount:=4'將所選內(nèi)容移至文檔中的第4行(92) Selection.GoToWhat:=wdGoToTablezWhich:=wdGoToNext.將所選內(nèi)容移至下一個(gè)表格

31、的第1個(gè)單元格(93) Selection.Range.AutoFormat'為所選內(nèi)容套用格式(94)ActiveDocument.Content.Font.Name“AriaF一將當(dāng)前文檔的字體設(shè)置為斜體(95)ActiveDocument.Content.SelectSelection.Delete'將當(dāng)前文檔中的內(nèi)容刪除其它添加一個(gè)(96)Documents.Add新文檔(97)myTableActiveDocument.Tables.Add(Selec±ion.Rangez 2r 2)1在當(dāng)前文檔所選區(qū)域添加一個(gè)7、文件讀寫(98) Open"C:

32、my.txt"ForInputAs#1.打開(kāi)一個(gè)用于輸入的文件并令其編號(hào)為工(99) LineInput#1,TextLine1讀取被打開(kāi)用于輸入且編號(hào)為1的文件(100) Close#1'關(guān)閉編號(hào)為1的文件五、例子。例中的操作全部是錄制，然后嫁接的。例子:用ExcelVBA,將如下Excel表格(考試系統(tǒng)中導(dǎo)出的題庫(kù))，生成如下Word文檔規(guī)程名稱題型案D 正確答案規(guī) 程 11規(guī) 程 12題目?jī)?nèi)容答案A分值有否圖形答案B選 擇 題ABCD判 斷 題對(duì)2答案C答題目2題目選擇題A規(guī) 程 4判斷題錯(cuò)2規(guī)程1一、選擇題1、題目1(ABCD)ABC、D二、判斷題1、題目2(對(duì))規(guī)程

33、2一、選擇題1、題目3(A)A、B、CD二、判斷題1、題目4.(錯(cuò))SubScWordWd()'將''題庫(kù)"中的題目，按格式生成Word文檔DimIAsInteger,JAsInteger,ZhsAsInteger,XhAsInteger,DisAsStringDimLrAsString,BtAsString,BtlAsString,TxAsString,TxlAsStringDimLjAsString,WjmAsStringDimAASheets(,f題庫(kù)“'SelectZhs=Sheets(“題庫(kù)”).UsedRange.Rows.CountBt=

34、Cells(2z1)'標(biāo)題Tx=Cells(2,2)題型Xh=1'Dis=11*DimWordAppAsObjectfSetWordApp=CreateObject(vvWord.Applicationv>)'新建Word對(duì)象DimWordappAsWord.ApplicationSetWordapp=NewWord.Application'新建Word對(duì)象Wordapp.Visible=True'可見(jiàn)vWordapp.ScreenUpdating=False'屏幕刷新DimWordDAsWord.Document，定義word類'

35、新建文檔SetWordD=Wordapp.Documents.Add全選'字體，字號(hào)Wordapp.Selection.WholeStoryWordapp.Selection.Font.Name="宋體”Wordapp.Selection.Font.Size=10ForI=2ToZhsBtl=Cells(Iz1)WordD.Paragraphs(Dls).Range.Font.Name=“宋體"'字體WordD.Paragraphs(Dls).Range.Font.Size=10'字號(hào)IfLen(Trim(Btl)>0ThenTxl=Cells

36、(Iz2)Lr=Cells。，3)IfBtl<>BtThen'標(biāo)題不同，寫標(biāo)題，居中IfI>5Then'WordD.Paragraphs(Dls).Range.InsertAfter(vbCrLf)1插入回車符，增加一段Dis=Dis+1WordD.Paragraphs(Dls).Range.Selectordapp.Selection.InsertBreakType:=wdPageBreakvWordD.Paragraphs(Dls).Range.InsertBreakType:=wdPageBreak'插入分頁(yè)符，兩個(gè)都沒(méi)反應(yīng)？Wordapp.Se

37、lection.InsertBreakType:=wdSectionBreakNextPage，插入分節(jié)符(下一頁(yè))WordD.Paragraphs(Dls).Range.InsertAfter(vbCrLf)'插入回車符，增加一段DIs=Dis+1EndIfBt=BtlWordD.Paragraphs(Dls).Range.Text=Bt&vbCrLf1寫標(biāo)題vWordD.Paragraphs(Dls).Range.InsertAfter(vbCrLf)1插入回車符，增加一段WordD.Paragraphs(Dls).OutlineLevel=wdOutlineLevel2&

38、#39;設(shè)置大綱級(jí)別，2級(jí)vWordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent=CentimetersToPoints(O)WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent=0'取消首行縮進(jìn)ordD.ParagraphsCDIsj.Range.Font.Name="宋體"'字體vWordD.Paragraphs(Dls).Range.Font.Size=101字號(hào)WordD.Paragraphs(Dls).Range.Pa

39、ragraphFormat.Alignment=wdAlignParagraphCenter'居中排列WordD.Paragraphs(Dls).Range.Font.Bold=wdToggle'加粗DIs=DIs+1Xh=1EndIfIfTxlOTxThen'題型不同，寫題型IfTxl="選擇題"ThenWordD.Paragraphs(Dls).Range.Text="一、選擇題"'寫題型ElseWordD.Paragraphs(Dls).Range.InsertAfter(vbCrLf),插入回車符，增加一段Dis=Dis+1WordD.Paragraphs(Dls).Range.Text="二、判斷題"'寫題型EndIfTx=TxlWordD.Paragraphs(Dls).Range.ParagraphFormat.Alignm