當前位置：首頁 > 编程资源 > 编程问答 >内容正文

编程问答

关于WORD VBA学习使用心得

發布時間：2023/12/14 编程问答 30 豆豆

生活随笔收集整理的這篇文章主要介紹了关于WORD VBA学习使用心得小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

應用背景

在大學期間，我就在給著名教育機構當中的英語名師李老師做助教，在助教的工作過程當中，有一項工作是進行word文檔的修改，但數量較多，每次修改到最后都些許心累，期間一直在尋找可以進行批量修改的方法，我曾經考慮使用C語言，python語言來進行相應的操作，基本思路就是寫一個腳本文件，令其完成所有的工作，但始終是不了了之。期間，我也曾找到批量修改word文檔的軟件工具，為XCLWinKits，我也立刻購買了他的會員，其功能還是比較強大，大大減輕了我的工作量，如果看到這篇博客的同學有需要使用，可以從下面的鏈接下載，雖然減輕了不少工作，但是還是非常繁瑣，畢竟幾百個文件開開關關，還是不是非常方便的，而且容易出錯，最終我找到了office自帶的編程語言，VBA，比較好用，而且編譯環境比較簡單，只要可以安裝office應該就可以。 (https://www.wodeabc.com/coupon/102126/1001957)

一、功能需求

1、完成word文檔中批量刪除指定位置表格的功能
2、完成word文檔中批量刪除指定位置圖片的功能
3、完成在第一頁末尾添加分頁符的功能
4、完成修改word文檔中指定表格內容的功能

二、功能設計

1.實現流程

功能實現流程如下:

#mermaid-svg-4HMO0ZOYq28o5oYv .label{font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family);fill:#333;color:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .label text{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .node rect,#mermaid-svg-4HMO0ZOYq28o5oYv .node circle,#mermaid-svg-4HMO0ZOYq28o5oYv .node ellipse,#mermaid-svg-4HMO0ZOYq28o5oYv .node polygon,#mermaid-svg-4HMO0ZOYq28o5oYv .node path{fill:#ECECFF;stroke:#9370db;stroke-width:1px}#mermaid-svg-4HMO0ZOYq28o5oYv .node .label{text-align:center;fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .node.clickable{cursor:pointer}#mermaid-svg-4HMO0ZOYq28o5oYv .arrowheadPath{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .edgePath .path{stroke:#333;stroke-width:1.5px}#mermaid-svg-4HMO0ZOYq28o5oYv .flowchart-link{stroke:#333;fill:none}#mermaid-svg-4HMO0ZOYq28o5oYv .edgeLabel{background-color:#e8e8e8;text-align:center}#mermaid-svg-4HMO0ZOYq28o5oYv .edgeLabel rect{opacity:0.9}#mermaid-svg-4HMO0ZOYq28o5oYv .edgeLabel span{color:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .cluster rect{fill:#ffffde;stroke:#aa3;stroke-width:1px}#mermaid-svg-4HMO0ZOYq28o5oYv .cluster text{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv div.mermaidTooltip{position:absolute;text-align:center;max-width:200px;padding:2px;font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family);font-size:12px;background:#ffffde;border:1px solid #aa3;border-radius:2px;pointer-events:none;z-index:100}#mermaid-svg-4HMO0ZOYq28o5oYv .actor{stroke:#ccf;fill:#ECECFF}#mermaid-svg-4HMO0ZOYq28o5oYv text.actor>tspan{fill:#000;stroke:none}#mermaid-svg-4HMO0ZOYq28o5oYv .actor-line{stroke:grey}#mermaid-svg-4HMO0ZOYq28o5oYv .messageLine0{stroke-width:1.5;stroke-dasharray:none;stroke:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .messageLine1{stroke-width:1.5;stroke-dasharray:2, 2;stroke:#333}#mermaid-svg-4HMO0ZOYq28o5oYv #arrowhead path{fill:#333;stroke:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .sequenceNumber{fill:#fff}#mermaid-svg-4HMO0ZOYq28o5oYv #sequencenumber{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv #crosshead path{fill:#333;stroke:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .messageText{fill:#333;stroke:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .labelBox{stroke:#ccf;fill:#ECECFF}#mermaid-svg-4HMO0ZOYq28o5oYv .labelText,#mermaid-svg-4HMO0ZOYq28o5oYv .labelText>tspan{fill:#000;stroke:none}#mermaid-svg-4HMO0ZOYq28o5oYv .loopText,#mermaid-svg-4HMO0ZOYq28o5oYv .loopText>tspan{fill:#000;stroke:none}#mermaid-svg-4HMO0ZOYq28o5oYv .loopLine{stroke-width:2px;stroke-dasharray:2, 2;stroke:#ccf;fill:#ccf}#mermaid-svg-4HMO0ZOYq28o5oYv .note{stroke:#aa3;fill:#fff5ad}#mermaid-svg-4HMO0ZOYq28o5oYv .noteText,#mermaid-svg-4HMO0ZOYq28o5oYv .noteText>tspan{fill:#000;stroke:none}#mermaid-svg-4HMO0ZOYq28o5oYv .activation0{fill:#f4f4f4;stroke:#666}#mermaid-svg-4HMO0ZOYq28o5oYv .activation1{fill:#f4f4f4;stroke:#666}#mermaid-svg-4HMO0ZOYq28o5oYv .activation2{fill:#f4f4f4;stroke:#666}#mermaid-svg-4HMO0ZOYq28o5oYv .mermaid-main-font{font-family:"trebuchet ms", verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv .section{stroke:none;opacity:0.2}#mermaid-svg-4HMO0ZOYq28o5oYv .section0{fill:rgba(102,102,255,0.49)}#mermaid-svg-4HMO0ZOYq28o5oYv .section2{fill:#fff400}#mermaid-svg-4HMO0ZOYq28o5oYv .section1,#mermaid-svg-4HMO0ZOYq28o5oYv .section3{fill:#fff;opacity:0.2}#mermaid-svg-4HMO0ZOYq28o5oYv .sectionTitle0{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .sectionTitle1{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .sectionTitle2{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .sectionTitle3{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .sectionTitle{text-anchor:start;font-size:11px;text-height:14px;font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv .grid .tick{stroke:#d3d3d3;opacity:0.8;shape-rendering:crispEdges}#mermaid-svg-4HMO0ZOYq28o5oYv .grid .tick text{font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv .grid path{stroke-width:0}#mermaid-svg-4HMO0ZOYq28o5oYv .today{fill:none;stroke:red;stroke-width:2px}#mermaid-svg-4HMO0ZOYq28o5oYv .task{stroke-width:2}#mermaid-svg-4HMO0ZOYq28o5oYv .taskText{text-anchor:middle;font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv .taskText:not([font-size]){font-size:11px}#mermaid-svg-4HMO0ZOYq28o5oYv .taskTextOutsideRight{fill:#000;text-anchor:start;font-size:11px;font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv .taskTextOutsideLeft{fill:#000;text-anchor:end;font-size:11px}#mermaid-svg-4HMO0ZOYq28o5oYv .task.clickable{cursor:pointer}#mermaid-svg-4HMO0ZOYq28o5oYv .taskText.clickable{cursor:pointer;fill:#003163 !important;font-weight:bold}#mermaid-svg-4HMO0ZOYq28o5oYv .taskTextOutsideLeft.clickable{cursor:pointer;fill:#003163 !important;font-weight:bold}#mermaid-svg-4HMO0ZOYq28o5oYv .taskTextOutsideRight.clickable{cursor:pointer;fill:#003163 !important;font-weight:bold}#mermaid-svg-4HMO0ZOYq28o5oYv .taskText0,#mermaid-svg-4HMO0ZOYq28o5oYv .taskText1,#mermaid-svg-4HMO0ZOYq28o5oYv .taskText2,#mermaid-svg-4HMO0ZOYq28o5oYv .taskText3{fill:#fff}#mermaid-svg-4HMO0ZOYq28o5oYv .task0,#mermaid-svg-4HMO0ZOYq28o5oYv .task1,#mermaid-svg-4HMO0ZOYq28o5oYv .task2,#mermaid-svg-4HMO0ZOYq28o5oYv .task3{fill:#8a90dd;stroke:#534fbc}#mermaid-svg-4HMO0ZOYq28o5oYv .taskTextOutside0,#mermaid-svg-4HMO0ZOYq28o5oYv .taskTextOutside2{fill:#000}#mermaid-svg-4HMO0ZOYq28o5oYv .taskTextOutside1,#mermaid-svg-4HMO0ZOYq28o5oYv .taskTextOutside3{fill:#000}#mermaid-svg-4HMO0ZOYq28o5oYv .active0,#mermaid-svg-4HMO0ZOYq28o5oYv .active1,#mermaid-svg-4HMO0ZOYq28o5oYv .active2,#mermaid-svg-4HMO0ZOYq28o5oYv .active3{fill:#bfc7ff;stroke:#534fbc}#mermaid-svg-4HMO0ZOYq28o5oYv .activeText0,#mermaid-svg-4HMO0ZOYq28o5oYv .activeText1,#mermaid-svg-4HMO0ZOYq28o5oYv .activeText2,#mermaid-svg-4HMO0ZOYq28o5oYv .activeText3{fill:#000 !important}#mermaid-svg-4HMO0ZOYq28o5oYv .done0,#mermaid-svg-4HMO0ZOYq28o5oYv .done1,#mermaid-svg-4HMO0ZOYq28o5oYv .done2,#mermaid-svg-4HMO0ZOYq28o5oYv .done3{stroke:grey;fill:#d3d3d3;stroke-width:2}#mermaid-svg-4HMO0ZOYq28o5oYv .doneText0,#mermaid-svg-4HMO0ZOYq28o5oYv .doneText1,#mermaid-svg-4HMO0ZOYq28o5oYv .doneText2,#mermaid-svg-4HMO0ZOYq28o5oYv .doneText3{fill:#000 !important}#mermaid-svg-4HMO0ZOYq28o5oYv .crit0,#mermaid-svg-4HMO0ZOYq28o5oYv .crit1,#mermaid-svg-4HMO0ZOYq28o5oYv .crit2,#mermaid-svg-4HMO0ZOYq28o5oYv .crit3{stroke:#f88;fill:red;stroke-width:2}#mermaid-svg-4HMO0ZOYq28o5oYv .activeCrit0,#mermaid-svg-4HMO0ZOYq28o5oYv .activeCrit1,#mermaid-svg-4HMO0ZOYq28o5oYv .activeCrit2,#mermaid-svg-4HMO0ZOYq28o5oYv .activeCrit3{stroke:#f88;fill:#bfc7ff;stroke-width:2}#mermaid-svg-4HMO0ZOYq28o5oYv .doneCrit0,#mermaid-svg-4HMO0ZOYq28o5oYv .doneCrit1,#mermaid-svg-4HMO0ZOYq28o5oYv .doneCrit2,#mermaid-svg-4HMO0ZOYq28o5oYv .doneCrit3{stroke:#f88;fill:#d3d3d3;stroke-width:2;cursor:pointer;shape-rendering:crispEdges}#mermaid-svg-4HMO0ZOYq28o5oYv .milestone{transform:rotate(45deg) scale(0.8, 0.8)}#mermaid-svg-4HMO0ZOYq28o5oYv .milestoneText{font-style:italic}#mermaid-svg-4HMO0ZOYq28o5oYv .doneCritText0,#mermaid-svg-4HMO0ZOYq28o5oYv .doneCritText1,#mermaid-svg-4HMO0ZOYq28o5oYv .doneCritText2,#mermaid-svg-4HMO0ZOYq28o5oYv .doneCritText3{fill:#000 !important}#mermaid-svg-4HMO0ZOYq28o5oYv .activeCritText0,#mermaid-svg-4HMO0ZOYq28o5oYv .activeCritText1,#mermaid-svg-4HMO0ZOYq28o5oYv .activeCritText2,#mermaid-svg-4HMO0ZOYq28o5oYv .activeCritText3{fill:#000 !important}#mermaid-svg-4HMO0ZOYq28o5oYv .titleText{text-anchor:middle;font-size:18px;fill:#000;font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv g.classGroup text{fill:#9370db;stroke:none;font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family);font-size:10px}#mermaid-svg-4HMO0ZOYq28o5oYv g.classGroup text .title{font-weight:bolder}#mermaid-svg-4HMO0ZOYq28o5oYv g.clickable{cursor:pointer}#mermaid-svg-4HMO0ZOYq28o5oYv g.classGroup rect{fill:#ECECFF;stroke:#9370db}#mermaid-svg-4HMO0ZOYq28o5oYv g.classGroup line{stroke:#9370db;stroke-width:1}#mermaid-svg-4HMO0ZOYq28o5oYv .classLabel .box{stroke:none;stroke-width:0;fill:#ECECFF;opacity:0.5}#mermaid-svg-4HMO0ZOYq28o5oYv .classLabel .label{fill:#9370db;font-size:10px}#mermaid-svg-4HMO0ZOYq28o5oYv .relation{stroke:#9370db;stroke-width:1;fill:none}#mermaid-svg-4HMO0ZOYq28o5oYv .dashed-line{stroke-dasharray:3}#mermaid-svg-4HMO0ZOYq28o5oYv #compositionStart{fill:#9370db;stroke:#9370db;stroke-width:1}#mermaid-svg-4HMO0ZOYq28o5oYv #compositionEnd{fill:#9370db;stroke:#9370db;stroke-width:1}#mermaid-svg-4HMO0ZOYq28o5oYv #aggregationStart{fill:#ECECFF;stroke:#9370db;stroke-width:1}#mermaid-svg-4HMO0ZOYq28o5oYv #aggregationEnd{fill:#ECECFF;stroke:#9370db;stroke-width:1}#mermaid-svg-4HMO0ZOYq28o5oYv #dependencyStart{fill:#9370db;stroke:#9370db;stroke-width:1}#mermaid-svg-4HMO0ZOYq28o5oYv #dependencyEnd{fill:#9370db;stroke:#9370db;stroke-width:1}#mermaid-svg-4HMO0ZOYq28o5oYv #extensionStart{fill:#9370db;stroke:#9370db;stroke-width:1}#mermaid-svg-4HMO0ZOYq28o5oYv #extensionEnd{fill:#9370db;stroke:#9370db;stroke-width:1}#mermaid-svg-4HMO0ZOYq28o5oYv .commit-id,#mermaid-svg-4HMO0ZOYq28o5oYv .commit-msg,#mermaid-svg-4HMO0ZOYq28o5oYv .branch-label{fill:lightgrey;color:lightgrey;font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv .pieTitleText{text-anchor:middle;font-size:25px;fill:#000;font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv .slice{font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv g.stateGroup text{fill:#9370db;stroke:none;font-size:10px;font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv g.stateGroup text{fill:#9370db;fill:#333;stroke:none;font-size:10px}#mermaid-svg-4HMO0ZOYq28o5oYv g.statediagram-cluster .cluster-label text{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv g.stateGroup .state-title{font-weight:bolder;fill:#000}#mermaid-svg-4HMO0ZOYq28o5oYv g.stateGroup rect{fill:#ECECFF;stroke:#9370db}#mermaid-svg-4HMO0ZOYq28o5oYv g.stateGroup line{stroke:#9370db;stroke-width:1}#mermaid-svg-4HMO0ZOYq28o5oYv .transition{stroke:#9370db;stroke-width:1;fill:none}#mermaid-svg-4HMO0ZOYq28o5oYv .stateGroup .composit{fill:white;border-bottom:1px}#mermaid-svg-4HMO0ZOYq28o5oYv .stateGroup .alt-composit{fill:#e0e0e0;border-bottom:1px}#mermaid-svg-4HMO0ZOYq28o5oYv .state-note{stroke:#aa3;fill:#fff5ad}#mermaid-svg-4HMO0ZOYq28o5oYv .state-note text{fill:black;stroke:none;font-size:10px}#mermaid-svg-4HMO0ZOYq28o5oYv .stateLabel .box{stroke:none;stroke-width:0;fill:#ECECFF;opacity:0.7}#mermaid-svg-4HMO0ZOYq28o5oYv .edgeLabel text{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .stateLabel text{fill:#000;font-size:10px;font-weight:bold;font-family:'trebuchet ms', verdana, arial;font-family:var(--mermaid-font-family)}#mermaid-svg-4HMO0ZOYq28o5oYv .node circle.state-start{fill:black;stroke:black}#mermaid-svg-4HMO0ZOYq28o5oYv .node circle.state-end{fill:black;stroke:white;stroke-width:1.5}#mermaid-svg-4HMO0ZOYq28o5oYv #statediagram-barbEnd{fill:#9370db}#mermaid-svg-4HMO0ZOYq28o5oYv .statediagram-cluster rect{fill:#ECECFF;stroke:#9370db;stroke-width:1px}#mermaid-svg-4HMO0ZOYq28o5oYv .statediagram-cluster rect.outer{rx:5px;ry:5px}#mermaid-svg-4HMO0ZOYq28o5oYv .statediagram-state .divider{stroke:#9370db}#mermaid-svg-4HMO0ZOYq28o5oYv .statediagram-state .title-state{rx:5px;ry:5px}#mermaid-svg-4HMO0ZOYq28o5oYv .statediagram-cluster.statediagram-cluster .inner{fill:white}#mermaid-svg-4HMO0ZOYq28o5oYv .statediagram-cluster.statediagram-cluster-alt .inner{fill:#e0e0e0}#mermaid-svg-4HMO0ZOYq28o5oYv .statediagram-cluster .inner{rx:0;ry:0}#mermaid-svg-4HMO0ZOYq28o5oYv .statediagram-state rect.basic{rx:5px;ry:5px}#mermaid-svg-4HMO0ZOYq28o5oYv .statediagram-state rect.divider{stroke-dasharray:10,10;fill:#efefef}#mermaid-svg-4HMO0ZOYq28o5oYv .note-edge{stroke-dasharray:5}#mermaid-svg-4HMO0ZOYq28o5oYv .statediagram-note rect{fill:#fff5ad;stroke:#aa3;stroke-width:1px;rx:0;ry:0}:root{--mermaid-font-family: '"trebuchet ms", verdana, arial';--mermaid-font-family: "Comic Sans MS", "Comic Sans", cursive}#mermaid-svg-4HMO0ZOYq28o5oYv .error-icon{fill:#522}#mermaid-svg-4HMO0ZOYq28o5oYv .error-text{fill:#522;stroke:#522}#mermaid-svg-4HMO0ZOYq28o5oYv .edge-thickness-normal{stroke-width:2px}#mermaid-svg-4HMO0ZOYq28o5oYv .edge-thickness-thick{stroke-width:3.5px}#mermaid-svg-4HMO0ZOYq28o5oYv .edge-pattern-solid{stroke-dasharray:0}#mermaid-svg-4HMO0ZOYq28o5oYv .edge-pattern-dashed{stroke-dasharray:3}#mermaid-svg-4HMO0ZOYq28o5oYv .edge-pattern-dotted{stroke-dasharray:2}#mermaid-svg-4HMO0ZOYq28o5oYv .marker{fill:#333}#mermaid-svg-4HMO0ZOYq28o5oYv .marker.cross{stroke:#333}:root { --mermaid-font-family: "trebuchet ms", verdana, arial;}#mermaid-svg-4HMO0ZOYq28o5oYv {color: rgba(0, 0, 0, 0.75);font: ;}StartRead FilesFunction 1,2,3,4End

上圖流程當中循環文件夾中所有文件個數的次數

2.代碼文件

代碼如下（示例）：

Sub 修改文檔() Dim doc As Document, myFile As String Dim rng As Range Dim rngO As Range myFile = Dir(" & "*.docx") Do While myFile <> "" myFile = "文件目錄" & myFileSet doc = Word.Documents.Open(myFile)'插入分頁符Set rng = doc.Range(Start:=doc.Paragraphs(68).Range.Start, _End:=doc.Paragraphs(68).Range.End)rng.InsertBreak'修改次數Set rngO = ActiveDocument.Range(Start:=ActiveDocument.Tables(1).Cell(1, 2).Range.Start, _End:=ActiveDocument.Tables(1).Cell(1, 2).Range.EndrngO.Text = "9次Set rngO = ActiveDocument.Range(Start:=ActiveDocument.Tables(1).Cell(1, 2).Range.Start + 1, _End:=ActiveDocument.Tables(1).Cell(1, 2).Range.End)rngO.Font.Size = 14'刪除指定圖片表格On Error Resume Next '該條語句的含義是如果出現錯誤就繼續執行下一條語句doc.InlineShapes(5).Deletedoc.InlineShapes(12).Deletedoc.Tables(3).Deletedoc.Tables(3).Delete doc.Savedoc.CloseSet doc = NothingSet rng = NothingSet rngO = NothingmyFile = Dir Loop End Sub

總結

以上為本次WORD VBA批量修改文件的主要程序流程以及代碼文件

沒想到第一次在CSDN上面寫博客是寫的VBA的內容

程序基本完成了所需要的功能，現有程序配合XCL基本上可以非常迅速地完成現在工作所需要地內容，當然還需要進一步的學習和練習

總結

以上是生活随笔為你收集整理的关于WORD VBA学习使用心得的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。

上一篇：初级程序员考试大纲 (转)
下一篇：【主动轮廓模型（二）】《GVF Snak