Excel VBA 操作Word(入門篇) | 程式前沿
文章推薦指數: 80 %
原文地址本文的物件是:有一定Excel VBA基礎,對Word VBA還沒有什麼認識, ... 三、通過錄制巨集生成程式碼有了對Word基本結構的認識,想操作這些物件 ...
程式語言前端開發IOS開發Android開發雲端運算人工智慧伺服器搜尋資料庫軟體開發工具ExcelVBA操作Word(入門篇)2018.08.03程式語言HOME程式語言ExcelVBA操作Word(入門篇)Advertisement原文地址本文的物件是:有一定ExcelVBA基礎,對WordVBA還沒有什麼認識,想在Excel中通過VBA操作Word還有困難的人。
一、新建Word引用需要首先建立一個對WordApplication物件的引用。
在VBA中,工具-引用,選取“MicroSoftWord11.0ObjectLibrary”。
方法一、NewWord.Application DimWordappAsWord.Application SetWordapp=NewWord.Application Wordapp.Visible=True ‘可見 ‘Wordapp.ScreenUpdating=False ‘螢幕重新整理 DimWordDAsWord.Document ‘定義word類 SetWordD=Wordapp.Documents.Add ‘新建文件 ‘SetWordD=Wordapp.Documents.open(filename) ‘開啟文件 ‘…… WordD.Close ‘關閉文件 SetWordD=Nothing WordApp.Quit ‘退出Word物件方法二、CreateObject DimWordAppAsObject SetWordApp=CreateObject(“Word.Application”) ‘新建Word物件‘後續操作及退出一樣……方法三、GetObject檔案已開啟的情況下,使用:SetWordD=GetObject(filename),可建立對文件的引用,如果檔案沒有開啟,則還需要先用方法一或二來操作。
至於方法一和方法二的區別,在網上詢問了一下,大師們的回答是:方法一:前期繫結,好處是在物件後輸入句點可以給出快速提示,因為需要先引用物件,所以容易出現版本相容問題。
方法二:後期繫結,沒有提示,根據執行程式碼機器上物件的版本建立物件,相容性好。
提示:有時二者有較大區別,可論壇搜尋字典物件,建議編寫程式碼時使用前期繫結,釋出時使用後期繫結。
二、認識Word的結構Excel有:Excel.Application ’Excel引用Excel.Application.Workbooks ’工作簿Excel.Application.Workbooks.Sheets(1) ’工作表工作表下是Range,區域;Cells(row,col),單元格Word有:Word.ApplicationWord.Application.Documents ’文件文件下有字元、單詞、句子、段落和節。
字元組成單詞,單片語成句子,句子組成段落。
此外,每個文件具有一個包含一個或多個節的Sections集合,每一個節都有一個包含該節頁首和頁尾的HeadersFooters集合。
Characters(index)Words(index)Sentences(index)Paragraphs(index)Sections(index)前三個返回Range物件,能直接使用任何區域屬性或方法修改該Range物件。
後面二個返回該集合的單個成員,而不是Range物件,不能直接使用區域屬性或方法。
如下使用例子:Words(1)後面直接.Copy,而.Paragraphs(1)和.Copy之間多了一個Range。
Selection.Words(1).CopyActiveDocument.Paragraphs(1).Range.CopyCharacters:字元,ActiveDocument.Sentences(1).Characters.Count,第一句的字元總數。
Words:單詞,對於英文來說是二個空格之間的字母加空格,對於中文,一個標點符號,一個漢字,或一個詞(按照微軟的輸入法中的片語定義?)。
(感覺不是很可靠?)Sentences:句子,以句號結束?感覺也不是一個很可靠的範圍,感覺還是字元、段落、節,控制起來靠譜一些。
Range物件表示文件中的一個連續範圍,由一個起始字元位置和一個終止字元位置定義。
這個連續範圍可以小到一個插入點,大到整個文件。
DimrngPaAsRange SetrngPa=ActiveDocument.Characters(1) ‘第一個字元 SetrngPa=ActiveDocument.Range(_ Start:=ActiveDocument.Paragraphs(1).Range.Start,_ End:=ActiveDocument.Paragraphs(4).Range.End) ‘第1段頭到第4段尾 SetrngPa=ActiveDocument.Range(Start:=0,End:=10) ‘當前文件前10個字元 rngPa.Select選定,我覺得用處不大,原因就是為什麼要選中呢?能操作就直接操作,不能的話,就選中吧(他可以說是沒辦法的辦法)。
range物件的賦值:(包括任意的物件,Set是對物件賦值的標準語句)seta=b和變數的賦值:a=1不一樣 第三段:通過錄制巨集生成程式碼,修改如下:三、通過錄制巨集生成程式碼有了對Word基本結構的認識,想操作這些物件應該使用什麼方法、修改哪些屬性?不知道就“錄製巨集”。
錄製巨集是我們認識未知物件的很好方法之一,通過巨集錄製器將操作譯成Word的VisualBasic程式碼,再根據需要修改程式碼。
Word中錄製與Excel不同的是,不能使用滑鼠移動游標或選中一行,只能使用鍵盤來移動,或用Shift方向鍵來選中。
以下幾句話就是鍵盤的:上、下、左、右、Home、End、Shift左選中5個字元、Shift右選中5個字元。
Selection.MoveUpUnit:=wdLine,Count:=1 Selection.MoveDownUnit:=wdLine,Count:=1 Selection.MoveLeftUnit:=wdCharacter,Count:=1 Selection.MoveRightUnit:=wdCharacter,Count:=1 Selection.HomeKeyUnit:=wdLine Selection.EndKeyUnit:=wdLine Selection.MoveLeftUnit:=wdCharacter,Count:=5,Extend:=wdExtend Selection.MoveRightUnit:=wdCharacter,Count:=5,Extend:=wdExtend錄製的巨集使用Selection屬性返回Selection物件。
即:錄製的巨集總是以Selection.開頭的,如上。
要想使用這個Selection.,有時候我們就不得不先對特定的物件.Select,選中。
當然,Selection是一個Range,Characters、Words、Sentences也是Range,Paragraphs(n).Range,Sections(2).Range也是Range,那我們就可以將Selection.後面的語句嫁接到前面這些Range之後,就不用先.Select了。
錄製的巨集,通過嫁接或者複製到EXCELVBA之後,有的執行會出錯,此時應檢查以下幾項:1、第一項中要求的“引用”建立了沒?2、利用VBA提醒功能檢查語句。
VBA編輯過程中,通常在打下.之後(需要前期繫結?),該物件所有的方法、屬性都會顯示出來,利用這個特點,可以檢查錄製的巨集,能否嫁接到需要操作的物件之後。
提示裡有就能,沒有就不能。
3、部分轉換函式,WordVBA裡有,ExcelVBA裡可能沒有,遇到這樣的情況,也可能出錯。
例:WordD.Paragraphs(1).Range.ParagraphFormat.FirstLineIndent=CentimetersToPoints(0.35)Selection.ParagraphFormat.FirstLineIndent=CentimetersToPoints(0.35)是“首行縮排2字元”操作錄製的,嫁接後,執行出錯,按方法2檢查:.ParagraphFormat.FirstLineIndent能用在Range之後,那麼就是CentimetersToPoints(0.35)出問題了?這顯然是一個函式,字面意思是“釐米轉換成點數”,(錄製時我明明輸入的是“2字元”,錄下來咋成了釐米為單位呢?)那是否是ExcelVBA裡沒有這個函式呢?(我不知道),將=後面直接改為數字執行通過,最後試下來=20大約相當於5號字的“首行縮排2字元”。
(這個20,就是20Points?0.35cm=20Points?)(有人可能會說這樣的辦法太笨,有什麼好辦法請告知。
先謝過!) 四、Wordvba常用語句100句1、系統引數(01)Application.ActivePrinter ‘獲取當前印表機(02)Application.Height ‘當前應用程式文件的高度 (03)Application.Width ‘當前應用程式文件的寬度 (04)Application.Build ‘獲取Word版本號和編譯序號 (05)Application.Caption ‘當前應用程式名 (06)Application.DefaultSaveFormat ‘返回空字串,表示Word文件 (07)Application.DisplayRecentFiles ‘返回是否顯示最近使用的文件的狀態 (08)Application.Documents.Count ‘返回當前開啟的文件數 (09)Application.FontNames.Count ‘返回當前可用的字型數 (10)Application.Left ‘返回當前文件的水平位置 (11)Application.MacroContainer.FullName ‘返回當前文件名,包括所在路徑 Application.MacroContainer.pach ‘返回當前文件路徑Application.ActiveDocument.Path ‘獲得檔案的相對路徑 (12)Application.NormalTemplate.FullName ‘返回文件標準模板名稱及所在位置 (13)Application.RecentFiles.Count ‘返回最近開啟的文件數目 (14)Application.System.CountryRegion ‘返回應用程式所在的地區程式碼 (15)Application.System.FreeDiskSpace ‘返回應用程式所在磁碟可用空間 (16)Application.System.HorizontalResolution ‘返回顯示器的水平解析度 (17)Application.System.VerticalResolution ‘返回顯示器的垂直解析度 (18)Application.System.LanguageDesignation ‘返回系統所使用的語言 (19)Application.System.MathCoprocessorInstalled ‘返回系統是否安裝了數學協處理器 (20)Application.System.OperatingSystem ‘返回當前作業系統名 (21)Application.System.ProcessorType ‘返回計算機處理器名 (22)Application.System.Version ‘返回作業系統的版本號 (23)Application.Templates.Count ‘返回應用程式所使用的模板數 (24)Application.UserName ‘返回應用程式使用者名稱(25)Application.Version ‘返回應用程式的版本號2、Documents/Document物件 (26)ActiveDocument.AttachedTemplate.FullName‘返回當前文件採用的模板名及模板所在位置(27)ActiveDocument.Bookmarks.Count ‘返回當前文件中的書籤數(28)ActiveDocument.Characters.Count ‘返回當前文件的字元數(29)ActiveDocument.CodeName ‘返回當前文件的程式碼名稱(30)ActiveDocument.Comments.Count‘ 返回當前文件中的評論數(31)ActiveDocument.Endnotes.Count ‘返回當前文件中的尾註數(32)ActiveDocument.Fields.Count ‘返回當前文件中的域數目(33)ActiveDocument.Footnotes.Count‘返回當前文件中的腳註數(34)ActiveDocument.FullName ‘返回當前文件的全名及所在位置(35)ActiveDocument.HasPassword ‘當前文件是否有密碼保護(36)ActiveDocument.Hyperlinks.Count ‘返回當前文件中的連結數(37)ActiveDocument.Indexes.Count ‘返回當前文件中的索引數(38)ActiveDocument.ListParagraphs.Count ‘返回當前文件中專案編號或專案符號數(39)ActiveDocument.ListTemplates.Count ‘返回當前文件中使用的列表模板數(40)ActiveDocument.Paragraphs.Count ‘返回當前文件中的段落數(41)ActiveDocument.Password=XXX ‘設定開啟檔案使用的密碼(42)ActiveDocument.ReadOnly ‘獲取當前文件是否為只讀屬性(43)ActiveDocument.Saved ‘當前文件是否被儲存(44)ActiveDocument.Sections.Count ‘當前文件中的節數(45)ActiveDocument.Sentences.Count ‘當前文件中的語句數(46)ActiveDocument.Shapes.Count ‘當前文件中的形狀數,圖形?(47)ActiveDocument.Styles.Count ‘當前文件中的樣式數(48)ActiveDocument.Tables.Count ‘當前文件中的表格數(49)ActiveDocument.TablesOfAuthorities.Count‘返回當前文件中的引文目錄數(50)ActiveDocument.TablesOfAuthoritiesCategories.Count‘返回當前文件中引文目錄類別數(51)ActiveDocument.TablesOfContents.Count‘返回當前文件中的目錄數(52)ActiveDocument.TablesOfFigures.Count ‘返回當前文件中的圖表目錄數3、Paragraphs/Paragraph物件 (53)Selection.Paragraphs.Count ‘返回所選區域的段落數(54)Selection.Paragraphs.First ‘返回所選區域中的第一段(55)ActiveDocument.Paragraphs(1).LeftIndent ‘返回當前文件中第一段的左縮排值(56)ActiveDocument.Paragraphs(1).LineSpacing‘返回當前文件中第一段的行距(57)ActiveDocument.Paragraphs(1).OutlineLevel ‘返回或設定當前文件中第一段的大綱級別 .OutlineLevel=wdOutlineLevel2 ‘2級.OutlineLevel=wdOutlineLevel3 ‘3級(58)ActiveDocument.Paragraphs(1).RightIndent‘返回當前文件中第一段的右縮排量 (59)ActiveDocument.Paragraphs(1).SpaceBefore‘返回當前文件中第一段的段前間距 (60)ActiveDocument.Paragraphs(1).SpaceAfter‘返回當前文件中第一段的段後間距 (61)ActiveDocument.Paragraphs(1).Range.Text ‘返回當前文件中第一段的內容 (62)ActiveDocument.Paragraphs(1).Range.Style.NameLocal ‘返回當前文件中第一段應用的樣式名 (63)ActiveDocument.Paragraphs(1).Range.Style.Description ‘返回當前文件中第一段所應用樣式的詳細描述 (64)ActiveDocument.Paragraphs(1).Range.Style.Font.Name ‘返回當前文件中第一段所應用樣式的字型名 (65)ActiveDocument.Paragraphs(1).Range.Style.Font.NameFarEast ‘返回或設定一種東亞字型名 (66)ActiveDocument.Paragraphs(1).Range.Style.Font.Size‘返回或設定當前文件中第一段所應用樣式的字型大小 (67)ActiveDocument.Paragraphs(1).Range.Style.Font.Spacing‘返回或設定字元間距(68)Selection.Words.Count ‘所選區域的字數Sentences物件 (69)Selection.Sentences.Item(1) ‘所選區域中的第一句的內容Words物件 (71)ActiveDocument.Words(1).Select ‘選擇當前文件中的第一個詞 (72)ActiveDocument.Range.Words(1).InsertAfter“我愛你!”‘在當前文件中的第一個詞後插入“我愛你” 4、Characters物件 (73)Selection.Characters.Count‘當前文件中所選區域的字元數 (74)ActiveDocument.Paragraphs(1).Range.InsertParagraphAfter’在當前文件的第一段之後插入一個新段落 5、Sections/Section物件 (75)ActiveDocument.Sections.First ‘當前文件的第一節 (76)ActiveDocument.Sections.First.PageSetup.BottomMargin‘當前文件第一節所在頁的底邊距 (77)ActiveDocument.Sections.First.PageSetup.LeftMargin‘當前文件第一節所在頁的左邊距 (78)ActiveDocument.Sections.First.PageSetup.RightMargin‘當前文件第一節所在頁的右邊距 (79)ActiveDocument.Sections.First.PageSetup.TopMargin‘當前文件第一節所在頁的頂邊距(80)ActiveDocument.Sections.First.PageSetup.PaperSize‘返回或設定當前文件第一節所在頁的大小 (81)ActiveDocument.Sections.First.PageSetup.PageHeight‘返回或設定當前文件第一節所在頁的高度 (82)ActiveDocument.Sections.First.PageSetup.PageWidth‘返回或設定當前文件第一節所在頁的寬度 (83)ActiveDocument.Sections.AddRange:=myRange ‘在當前文件中新增新節 (84)ActiveDocument.Sections.Item(2) ‘當前文件中的第二節 (85)ActiveDocument.Sections.Last.Range.InsertAfter“文件結束!”‘在當前文件中最後一節的結尾新增文字“文件結束!” 6、Range物件 (86)ActiveDocument.Range(Start:=0,End:=10)‘表示當前文件前10個字元所組成的一個Range物件 (87)SetmyRange=ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(2).Range.Start,_ End:=ActiveDocument.Paragraphs(4).Range.End)‘將當前文件第2段至第4段設定為一個Range物件 (88)ActiveDocument.Paragraphs(1).Range.Copy‘複製當前文件中的第一段 (89)Selection.Copy Documents.Add.Content.Paste‘複製所選內容到新文件中 (90)ActiveDocument.Bookmarks(“Book1″).CopyName:=”Book2”‘將Book2書籤複製Book1書籤標記的位置 (91)Selection.GoToWhat:=wdGoToLine,Which:=wdGoToAbsolute,Count:=4‘將所選內容移至文件中的第4行 (92)Selection.GoToWhat:=wdGoToTable,Which:=wdGoToNext‘將所選內容移至下一個表格的第1個單元格 (93)Selection.Range.AutoFormat‘為所選內容套用格式 (94)ActiveDocument.Content.Font.Name=“Arial”‘將當前文件的字型設定為斜體 (95)ActiveDocument.Content.SelectSelection.Delete‘將當前文件中的內容刪除其它 (96)Documents.Add ‘新增一個新文件 (97)SetmyTable=ActiveDocument.Tables.Add(Selection.Range,2,2)‘在當前文件所選區域新增一個2行2列的表格 7、檔案讀寫(98)Open“C:\my.txt”ForInputAs#1 ‘開啟一個用於輸入的檔案並令其編號為1 (99)LineInput#1,TextLine ‘讀取被開啟用於輸入且編號為1的檔案 (100)Close#1 ‘關閉編號為1的檔案 五、例子。
例中的操作全部是錄製,然後嫁接的。
例子:用ExcelVBA,將如下Excel表格(考試系統中匯出的題庫),生成如下Word文件規程名稱 題型 題目內容 答案A 答案B 答案C 答案D 正確答案 分值 有否圖形規程1 選擇題 題目1…… …… …… …… …… ABCD 2 規程1 判斷題 題目2…… 對 2 規程2 選擇題 題目3…… …… …… …… …… A 2 規程2 判斷題 題目4…… 錯 2 規程1一、選擇題1、題目1…… (ABCD)A、……B、……C、……D、……二、判斷題1、題目2…… (對)規程2一、選擇題1、題目3…… (A)A、……B、……C、……D、……二、判斷題1、題目4…… (錯)SubScWordWd()‘將“題庫”中的題目,按格式生成Word文件 DimIAsInteger,JAsInteger,ZhsAsInteger,XhAsInteger,DlsAsString DimLrAsString,BtAsString,Bt1AsString,TxAsString,Tx1AsString DimLjAsString,WjmAsString DimAA Sheets(“題庫”).Select Zhs=Sheets(“題庫”).UsedRange.Rows.Count Bt=Cells(2,1) ‘標題 Tx=Cells(2,2) ‘題型 Xh=1 ‘ Dls=1 ‘ ‘DimWordAppAsObject ‘SetWordApp=CreateObject(“Word.Application”) ‘新建Word物件 DimWordappAsWord.Application SetWordapp=NewWord.Application ‘新建Word物件 Wordapp.Visible=True ‘可見 ‘Wordapp.ScreenUpdating=False ‘螢幕重新整理 DimWordDAsWord.Document ‘定義word類 SetWordD=Wordapp.Documents.Add ‘新建文件 Wordapp.Selection.WholeStory ‘全選 Wordapp.Selection.Font.Name=“宋體” ‘字型 Wordapp.Selection.Font.Size=10 ‘字號 ForI=2ToZhs Bt1=Cells(I,1) WordD.Paragraphs(Dls).Range.Font.Name=“宋體” ‘字型 WordD.Paragraphs(Dls).Range.Font.Size=10 ‘字號 IfLen(Trim(Bt1))>0Then Tx1=Cells(I,2) Lr=Cells(I,3) IfBt1<>BtThen ‘標題不同,寫標題,居中 IfI>5Then ‘ WordD.Paragraphs(Dls).Range.InsertAfter(vbCrLf) ‘插入回車符,增加一段 Dls=Dls1 WordD.Paragraphs(Dls).Range.Select ‘Wordapp.Selection.InsertBreakType:=wdPageBreak ‘WordD.Paragraphs(Dls).Range.InsertBreakType:=wdPageBreak ‘插入分頁符,兩個都沒反應? Wordapp.Selection.InsertBreakType:=wdSectionBreakNextPage ‘插入分節符(下一頁) WordD.Paragraphs(Dls).Range.InsertAfter(vbCrLf) ‘插入回車符,增加一段 Dls=Dls1 EndIf Bt=Bt1 WordD.Paragraphs(Dls).Range.Text=Bt&vbCrLf ‘寫標題 ‘WordD.Paragraphs(Dls).Range.InsertAfter(vbCrLf) ‘插入回車符,增加一段 WordD.Paragraphs(Dls).OutlineLevel=wdOutlineLevel2 ‘設定大綱級別,2級 ‘WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent=CentimetersToPoints(0) WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent=0 ‘取消首行縮排 ‘WordD.Paragraphs(Dls).Range.Font.Name=“宋體” ‘字型 ‘WordD.Paragraphs(Dls).Range.Font.Size=10 ‘字號 WordD.Paragraphs(Dls).Range.ParagraphFormat.Alignment=wdAlignParagraphCenter ‘居中排列 WordD.Paragraphs(Dls).Range.Font.Bold=wdToggle ‘加粗 Dls=Dls1 Xh=1 EndIf IfTx1<>TxThen ‘題型不同,寫題型 IfTx1=“選擇題”Then WordD.Paragraphs(Dls).Range.Text=“一、選擇題” ‘寫題型 Else WordD.Paragraphs(Dls).Range.InsertAfter(vbCrLf) ‘插入回車符,增加一段 Dls=Dls1 WordD.Paragraphs(Dls).Range.Text=“二、判斷題” ‘寫題型 EndIf Tx=Tx1 WordD.Paragraphs(Dls).Range.ParagraphFormat.Alignment=wdAlignParagraphJustify ‘左對齊 ‘WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent=CentimetersToPoints(0.35) ‘首行縮排2字元,時能用時不能用,CentimetersToPoints不能被Excel識別? WordD.Paragraphs(Dls).Range.ParagraphFormat.FirstLineIndent=20 ‘首行縮排,20大約相當於5號字的2字元 WordD.Paragraphs(Dls).Range.InsertAfter(vbCrLf) ‘插入回車符,增加一段 WordD.Paragraphs(Dls).Range.Font.Bold=wdToggle ‘加粗 Dls=Dls1 Xh=1 EndIf IfTx=“選擇題”Then WordD.Paragraphs(Dls).Range.Text=Xh&“、”&Lr&” (”&Cells(I,8)&“)”&vbCrLf ‘寫題目及標準答案 Dls=Dls1 WordD.Paragraphs(Dls).Range.Text=“A、”&Cells(I,4)&vbCrLf ‘選項A Dls=Dls1 WordD.Paragraphs(Dls).Range.Text=“B、”&Cells(I,5)&vbCrLf ‘選項B Dls=Dls1 WordD.Paragraphs(Dls).Range.Text=“C、”&Cells(I,6)&vbCrLf ‘選項C Dls=Dls1 IfLen(Trim(Cells(I,7)))>0Then WordD.Paragraphs(Dls).Range.Text=“D、”&Cells(I,7)&vbCrLf ‘選項D Dls=Dls1 EndIf Xh=Xh1 Else WordD.Paragraphs(Dls).Range.Text=Xh&“、”&Lr&” (”&Cells(I,8)&“)”&vbCrLf ‘寫題目及標準答案 Dls=Dls1 Xh=Xh1 EndIf EndIf NextI Wordapp.WindowState=wdWindowStateMinimize ‘最小化視窗 ‘Wordapp.ScreenUpdating=True ‘螢幕重新整理 ‘WordD.Close ‘ ‘SetWordD=Nothing ‘SetWordapp=Nothing ‘Wordapp.Quit ‘退出Word物件 ThisWorkbook.ActivateEndSub(完)Advertisement写评论取消回覆很抱歉,必須登入網站才能發佈留言。
近期文章Spark入門(一)用SparkShell初嘗Spark滋味2019.12.08Spark入門(二)如何用Idea運行我們的Spark項目2019.12.08Spark入門(三)Spark經典的單詞統計2019.12.08Spark入門(四)Spark的map、flatMap、mapToPair2019.12.08Spark入門(五)Spark的reduce和reduceByKey2019.12.08Spark入門(六)Spark的combineByKey、sortBykey2019.12.08Spark入門(七)Spark的intersection、subtract、union和distinct2019.12.08Spark實戰尋找5億次訪問中,訪問次數最多的人2019.12.08Spark實戰搭建我們的Spark分佈式架構2019.12.08【機器學習】深度學習開發環境搭建2019.12.08AdvertisementAdvertisement
延伸文章資訊
- 1Excel VBA 操作Word(入門篇) | 程式前沿
原文地址本文的物件是:有一定Excel VBA基礎,對Word VBA還沒有什麼認識, ... 三、通過錄制巨集生成程式碼有了對Word基本結構的認識,想操作這些物件 ...
- 2建立或執行巨集
在Word 中,您可以建立及執行宏來自動化常用的工作。 宏是一系列命令和指示,您以單一命令分組,以自動完成任務。 較新的版本Office 2007.
- 3word巨集、巨集程式設計以及VBA - 程式人生
word巨集是什麼呢? 巨集是一個批量處理程式命令,正確地運用它可以提高工作效率。微軟的office軟體允許使用者自己編寫,叫VBA的指令碼來增加其靈活 ...
- 4【Day 02】Word 很大,你要看一下- Microsoft Office Phishing
存檔要存成docm 檔,這才支援Macro 語法。 存檔完打開後會出現已經停用巨集,因為預設不是啟用的。所以如果有個麻瓜不知道這按下去可能會執行某個程式 ...
- 5一些Word VBA 常用的程式碼 - YDM 生活學習誌
一些Word VBA 常用的程式碼 ... 更多ydmqqq 的VBA 實戰小技巧 推薦文章. 在Excel 中新增一個工具列,並在其上新增按鈕使其連上某個巨集.