Word编程代码大全：从基础到高级应用

需积分: 48 150 浏览量更新于2024-07-29 收藏 875KB PDF 举报

"这是一份全面的Word编程代码集，涵盖了从基础操作到高级功能的各种VBA编程技术，包括删除空白段落、设置段落样式、处理表格、书签管理、查找与替换、邮件合并、密码保护、公式计算等多个方面。这份资料共122页，由守柔(SHOUROU)编写，旨在帮助用户深入理解和掌握Word的自动化编程能力。" 本文档主要介绍了Word编程的一些核心知识点，以下是详细的解释： 1. **空白段落的删除**：使用VBA可以批量删除文档中无内容的空白段落，提高文档的整洁度。 2. **段落样式与格式的应用**：通过VBA，可以自定义段落样式，并应用于文档的各个部分，统一文档格式。 3. **查找与替换**：不仅讲解了基本的查找和替换操作，还包括批量替换和在整个文件夹中替换的高级用法。 4. **邮件合并**：介绍了如何设置条件格式，实现个性化邮件合并，提高批量处理文档的效率。 5. **密码保护**：学习如何设置随机文档打开密码，确保文档的安全性。 6. **图片编辑**：提供了图片编辑的VBA代码，可以对文档中的图片进行操作。 7. **表格处理**：包括在表格中设置边框，以及公式代码自动填充，实现复杂的计算功能。 8. **绘图功能**：如画直角坐标系和交点自动绘制，展示了Word的图形绘制能力。 9. **汉字拼音解决方案**：利用VBA获取汉字的拼音信息，方便文档处理。 10. **汉字笔画数获取**：提供计算汉字笔画数的代码，对于汉字教学或研究有所帮助。 11. **VBA工程的密码解除**：介绍了解除已知密码的VBA工程的方法，对于误设密码的情况非常实用。这些代码示例不仅涉及基础的文本处理，还涵盖了复杂的文档操作，如自定义菜单、对话框的使用、VBA命令的修改等，是学习和提升Word VBA编程技能的重要参考资料。通过学习和实践这些代码，用户能够高效地自动化处理Word文档，提升工作效率。

守柔(SHOUROU)WORD 编程代码集

第 16 页共 122 页

If Asc(i.Characters(1)) < -2050 And Asc(i.Characters(1)) > -20319 Then

If MyString = "" Then GoTo GNC '循环初始阶段跳至 GNC 行标签

If InStr(MyString, i.Text & ",") = 0 Then

GNC: aString = i.Text & "," '加入","分隔符以便精确定位

MyString = MyString & aString

Else

On Error Resume Next '忽略错误

Me.Variables.Add Name:=i.Text '添加文档变量

If Err.Number <> 0 Then '设置错误陷阱

Err.Clear '清除错误

'将次数累加写入

Me.Variables(i.Text).Value = Me.Variables(i.Text).Value + 1

Else

'首次写入文档变量时,其初始值为 2

Me.Variables(i.Text).Value = 2

End If

End Select

aString = "": MyString = "" '重新初始化变量

Application.ScreenUpdating = False '关闭屏幕更新

With Selection

.EndKey unit:=wdStory '移到文档末尾

'作一个区分标记

.InsertAfter vbCrLf & "------------------------------------ 词数频次统计列表

------------------------------------" & vbCrLf

.EndKey unit:=wdStory '移到文档末尾

For Each aVar In Me.Variables '在文档变量中循环

'插入文档中

aString = """" & aVar.Name & """出现频次:" & vbTab & aVar.Value &

vbCrLf

MyString = MyString & aString '文本累加写入内存变量中,以加速运行

.InsertAfter MyString

'根据出现频次排序

.Sort FieldNumber:="域 1", SortFieldType:= _

wdSortFieldNumeric, SortOrder:=wdSortOrderDescending

End With

VarClear '清空文档变量

Me.UndoClear '清空撤消

Application.ScreenUpdating = True '恢复屏幕更新

End Sub

守柔(SHOUROU)WORD 编程代码集

第 18 页共 122 页

End If

End With

Application.ScreenUpdating = True '恢复屏幕更新

End Sub

'----------------------

十一) 查找与替换的基本代码用法之三(批量替换)

功能简介：同时进行多个查找与替换，支持非通配符下的特殊字符的替换。

比如，适用于 ISO 文件，因组织机构调整，对所有原有部门一次输入后替换为新部门。

查找的各个内容之间，用英文逗号分隔（","），查找数量不限。

替换的各个内容之间，用英文逗号分隔（","），替换数量必须等同于查找数量，如是删除某

个查找内容，替换中键入""(空空)

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub Document_Close()

On Error Resume Next

Application.CommandBars("Edit").Controls("多个替换").Delete '恢复原有菜单

End Sub

'----------------------

Private Sub Document_Open()

On Error Resume Next

Dim NewButton As CommandBarButton

CustomizationContext = ActiveDocument '将自定义组合键和工具命令保存于

活动文档中

'指定 CTRL+F 为键盘快捷方式

KeyBindings.Add wdKeyCategoryMacro, "MySub", BuildKeyCode(wdKeyControl,

wdKeyF)

'指定 F5 为快捷方式

KeyBindings.Add wdKeyCategoryMacro, "MySub", BuildKeyCode(wdKeyF5)

Application.CommandBars("Edit").Controls("多个替换").Delete '预防性删除

Set NewButton =

Application.CommandBars("Edit").Controls.Add(Type:=msoControlButton, Before:=11)

With NewButton

.Caption = "多个替换" '命令名称

.FaceId = 100 '命令的 FaceId

.Visible = True '可见

.OnAction = "MySub" '指定响应过程名

End With

End Sub

'----------------------

Sub MySub()

UserForm1.Show

End Sub

'----------------------

Sub ComReset() '恢复默认设置

Application.CommandBars("Edit").Reset

End Sub

守柔(SHOUROU)WORD 编程代码集

第 20 页共 122 页

Unload Me '卸载窗体

End Sub

'----------------------

Private Sub UserForm_Initialize()

Me.Caption = "多文本替换操作"

Me.TextBox1.SetFocus

Me.CommandButton2.Default = True

End Sub

'----------------------

http://club.excelhome.net/dispbbs.asp?boardID=23&ID=81350&page=2

十二) 查找与替换的基本代码用法之四-全文件夹替换

功能简介:批量多文件（全文件夹）的多文本一次性替换操作。

运行本程序后，先输入需查找和与之对应的替换的文本，然后点击“选择文件夹”，您

可以找到指定的文件夹中的部分或者所有文件，注意，您需要全选文件（CTRL+A），或

者使用 SHIFT/CTRL 配合鼠标键选取多个文件），确定后自动进行批量替换。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋

'^The Code CopyIn [ThisDocument-ThisDocument]^'

'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub Document_Open()

Application.Windows(ThisDocument.Name).Visible = False

MySub

End Sub

'----------------------

Sub MySub()

UserForm1.Show

End Sub

'----------------------

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋

'^The Code CopyIn [用户窗体-UserForm1]^'

'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub CommandButton1_Click()

Me.TextBox1 = ""

Me.TextBox2 = ""

Me.TextBox1.SetFocus

End Sub

'----------------------

Private Sub CommandButton2_Click()

Dim MyFind() As String, MyRep() As String, i As Integer, aStory As Variant

Dim MyDialog As FileDialog, vrtSelectdeItem As Variant, Doc As Document

On Error Resume Next

'检查是否为空

MsgBox "请先正确录入查找与对应替换的内容,以英文逗号分隔" & vbCrLf & _

"在选定文件夹中,您可以全选或部分选定文件(CTRL/SHIFT)+鼠标单击",

vbInformation

剩余121页未读，继续阅读

hzbarrywang

粉丝: 0
资源: 1

Word编程代码大全：从基础到高级应用

Word编程代码集

Word编程代码集.doc

守柔WORD编程代码集

你知道word宏代码吗

vba编程代码大全pdf

word vba编程手册 csdn

word可以写代码块吗

写一个holle word的代码

pdf转word程序代码

如何在word中插入代码

最新资源