正文

word vba編程實(shí)例（word vba編程基礎(chǔ)知識(shí)）

發(fā)布時(shí)間：2023-05-23 13:47:26 稿源：創(chuàng)意嶺閱讀： 62

大家好！今天讓創(chuàng)意嶺的小編來大家介紹下關(guān)于word vba編程實(shí)例的問題，以下是小編對(duì)此問題的歸納整理，讓我們一起來看看吧。

開始之前先推薦一個(gè)非常厲害的Ai人工智能工具，一鍵生成原創(chuàng)文章、方案、文案、工作計(jì)劃、工作報(bào)告、論文、代碼、作文、做題和對(duì)話答疑等等

只需要輸入關(guān)鍵詞，就能返回你想要的內(nèi)容，有小程序、在線網(wǎng)頁版、PC客戶端和批量生成器

問友Ai官網(wǎng)：https://ai.de1919.com。

本文目錄:

如何利用VBA代碼或者腳本代碼批量修改word文檔的正文標(biāo)題
怎樣利用vba自動(dòng)生成word報(bào)告

word vba編程實(shí)例（word vba編程基礎(chǔ)知識(shí)）

如何利用VBA代碼或者腳本代碼批量修改word文檔的正文標(biāo)題

操作步驟。
第一，首先將需要批量替換的多個(gè)Word文檔放在同一文件夾下面。
第二，新建一空白Word文檔，右擊空白工具欄，單擊“控件工具箱”，就可以看到屏幕上調(diào)出的控件工具箱。
第三，在控件工具箱上單擊“命令按鈕”，文檔中就放置了一個(gè)按鈕了。
第四，雙擊該按鈕，進(jìn)入VB代碼編寫模式，將以下代碼復(fù)制進(jìn)去。
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim myPas As String, myPath As String, i As Integer, myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "選擇目標(biāo)文件夾"
If .Show = -1 Then
myPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
myPas = InputBox("請(qǐng)輸入打開密碼：")
With Application.FileSearch
.LookIn = myPath
.FileType = msoFileTypeWordDocuments
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "大家好"
.Replacement.Text = "你好"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
myDoc.Save
myDoc.Close
Set myDoc = Nothing
Next
End If
End With
Application.ScreenUpdating = True
End Sub
第五，保存上面代碼，退出VB編輯模式，返回Word文檔界面。
第六，單擊選中該按鈕，再單擊控件工具箱的第一個(gè)按鈕“退出設(shè)計(jì)模式”。
第七，進(jìn)行測試：點(diǎn)擊按鈕，選擇要放置多個(gè)WORD文檔所在的文件夾，確定后即可完成！注意如果WORD文檔沒有加密的話，密碼項(xiàng)就不填，直接確認(rèn)。就會(huì)發(fā)現(xiàn)該文件夾下面的所有WORD文檔中“大家好”已被替換為“你好”了。

word vba編程實(shí)例（word vba編程基礎(chǔ)知識(shí)）

怎樣利用vba自動(dòng)生成word報(bào)告

以下是自行編寫的代碼實(shí)例片段，供參考：

'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
'生成分析報(bào)告
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Private Sub btnDtyp_Click()
sPathName = ThisWorkbook.Path & "模板" & "動(dòng)態(tài)研判分析.doc"
Set WordApp = CreateObject("Word.Application") '生成WORD對(duì)象
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Add(sPathName)
With Sheet6
sText = "{ksrq}" '開始日期
sReplace = Format(Range("D1").Value, "YYYY年M月DD日")
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{jsrq}" '結(jié)束日期
sReplace = Format(Range("F1").Value, "YYYY年M月DD日")
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{zj}" '總計(jì)人數(shù)
sReplace = .Range("E48").Value
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{nan}" '男性人數(shù)
sReplace = .Range("B33").Value
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{nv}" '女性人數(shù)
sReplace = .Range("B34").Value
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2

sText = "{jyrs}" '就業(yè)人數(shù)
sReplace = .Range("B84").Value + .Range("B85").Value
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2
sText = "{jxrs}" '就學(xué)人數(shù)
sReplace = .Range("B86").Value
WordDoc.Range.Find.Execute sText, False, True, False, False, False, True, 0, False, sReplace, 2

End With
sFileName = "分析記錄（" & Range("D1").Value & "至" & Range("F1").Value & "）.doc"
WordApp.ChangeFileOpenDirectory "E:分析報(bào)告"
WordDoc.SaveAs Filename:=sFileName, FileFormat:=wdFormatDocument
End Sub