宿迁商务办公培训丨word应用程序的原理
宿迁商务办公培训丨word应用程序的原理
2019即将过去，欢庆迎接2020新的到来，既然人生幕布已经拉开，就积极演出；脚步已经迈出，风雨坎坷怎能阻挡我的去路；希望种子已经播出，未来我们共同努力。
目前使用Word附注应用程序的用户已不少了，我相信也很大程度的提高了用户的工作效率，以下介绍一下该程序的原理和实现过程，有助于大家更便捷的使用。
一、原理
该程序主要利用Word中的Link域实现。该Link域一方面可通过右键选择性粘贴实现，也可通过VBA增加，本程序使用VBA批量增加。
二、实现过程
（一）基本代码
如上所述，本程序使用VBA批量增加，基本代码如下：
Private Sub LinkTable(rng As Range, path As String, xlRange As String, Exetstr As String)
Dim fieldText As String
Dim fld As Microsoft.O***terop.Word.Field
fieldText = IIf(Exetstr = "xlsm", "Excel.SheetMacroEnabled.12 ", "Excel.Sheet.12 ") & Chr(34) & path & Chr(34) & " " & Chr(34) & xlRange & Chr(34) & " \h"
rn***llapse(direction:=WdCollapseDirection.wdCollapseEnd)
fld = rng.Fields.Add(range:=rng, type:=WdFieldType.wdFieldLink, text:=fieldText, preserveFormatting:=True)
End Sub
（二）实现结果
1、“E: \\Word附注应用程序\\Word附注应用程序\\bin\\Debug\\样例\\W附注模板.xlsx”代表Excel文件的路径，故其用“\\”表示。附注工具中“更换路径”，从而实现刷新不同项目的附注，即是通过替换此处路径实现的。
2、“W附注模板”为Excel工作表名。
3、“_jds6”为该表格对应于Excel中名称为“_jds6”的区域，之所以采用命名的方式，有助于后续增减行操作。设计该命名方式时，初想用自己名字首拼wjb+数字，为了不那么自恋，还是用jd吧（有点jd的意思是不）。默认情况下，程序将产生的该类名称予以隐藏，利用VBA代码可全显隐藏的名称。
4、“\h \* MERGEFORMAT”为开关，其中“\h”表示“插入链接对象作为 HTML格式文本”；“\* MERGEFORMAT”表示“域代码的结果在更新时保留原格式”，该开关可使表格更新时格式不发生变化。
（三）更新域时，Word根据Excel自动增减行
如上所示，之所以采用命名区域的方式，也是考虑到Word增减行问题。增减行其实很简单，但却是本程序的一个核心。
基本原理即是，在更新链接时，先提取出该名称，再该名称在Excel中所涉表格的行数，然后计算目前该Word表格的行数，两者做差，多的增加，少的删除。知道了该原理，就知道了在Excel有增减行情况下，为什么不能用Word右键原生的“更新链接”了。而在执行通过附注工具的“更新链接”时，先将光标定 位在表格标题行的下一行，也是为了便于减行时，自己不想写更复杂的代码，以防止不小心删除标题等（虽然一般不会发生），虽该代码后来还是在“标题行重复”中增加了呢。
各位小伙伴们，如果你有任何相关专业的问题，不清楚的，不明白的，随时都可以找我们咨询，宿迁市上元教育永远欢迎大家。上元教育拥有一套完整的课程体系，和丰富的师资储备，一定全心全力为学员服务。
宿迁上元教育培训学校，专注学习效果，坚持工匠精神，贴心服务，放心报名。
咨询地址：宿迁市宿城区宝龙24街8号楼303室上元教育（宝龙永和豆浆对面三楼）
2019即将过去，欢庆迎接2020新的到来，既然人生幕布已经拉开，就积极演出；脚步已经迈出，风雨坎坷怎能阻挡我的去路；希望种子已经播出，未来我们共同努力。
目前使用Word附注应用程序的用户已不少了，我相信也很大程度的提高了用户的工作效率，以下介绍一下该程序的原理和实现过程，有助于大家更便捷的使用。
一、原理
该程序主要利用Word中的Link域实现。该Link域一方面可通过右键选择性粘贴实现，也可通过VBA增加，本程序使用VBA批量增加。
二、实现过程
（一）基本代码
如上所述，本程序使用VBA批量增加，基本代码如下：
Private Sub LinkTable(rng As Range, path As String, xlRange As String, Exetstr As String)
Dim fieldText As String
Dim fld As Microsoft.O***terop.Word.Field
fieldText = IIf(Exetstr = "xlsm", "Excel.SheetMacroEnabled.12 ", "Excel.Sheet.12 ") & Chr(34) & path & Chr(34) & " " & Chr(34) & xlRange & Chr(34) & " \h"
rn***llapse(direction:=WdCollapseDirection.wdCollapseEnd)
fld = rng.Fields.Add(range:=rng, type:=WdFieldType.wdFieldLink, text:=fieldText, preserveFormatting:=True)
End Sub
（二）实现结果
1、“E: \\Word附注应用程序\\Word附注应用程序\\bin\\Debug\\样例\\W附注模板.xlsx”代表Excel文件的路径，故其用“\\”表示。附注工具中“更换路径”，从而实现刷新不同项目的附注，即是通过替换此处路径实现的。
2、“W附注模板”为Excel工作表名。
3、“_jds6”为该表格对应于Excel中名称为“_jds6”的区域，之所以采用命名的方式，有助于后续增减行操作。设计该命名方式时，初想用自己名字首拼wjb+数字，为了不那么自恋，还是用jd吧（有点jd的意思是不）。默认情况下，程序将产生的该类名称予以隐藏，利用VBA代码可全显隐藏的名称。
4、“\h \* MERGEFORMAT”为开关，其中“\h”表示“插入链接对象作为 HTML格式文本”；“\* MERGEFORMAT”表示“域代码的结果在更新时保留原格式”，该开关可使表格更新时格式不发生变化。
（三）更新域时，Word根据Excel自动增减行
如上所示，之所以采用命名区域的方式，也是考虑到Word增减行问题。增减行其实很简单，但却是本程序的一个核心。
基本原理即是，在更新链接时，先提取出该名称，再该名称在Excel中所涉表格的行数，然后计算目前该Word表格的行数，两者做差，多的增加，少的删除。知道了该原理，就知道了在Excel有增减行情况下，为什么不能用Word右键原生的“更新链接”了。而在执行通过附注工具的“更新链接”时，先将光标定 位在表格标题行的下一行，也是为了便于减行时，自己不想写更复杂的代码，以防止不小心删除标题等（虽然一般不会发生），虽该代码后来还是在“标题行重复”中增加了呢。
各位小伙伴们，如果你有任何相关专业的问题，不清楚的，不明白的，随时都可以找我们咨询，宿迁市上元教育永远欢迎大家。上元教育拥有一套完整的课程体系，和丰富的师资储备，一定全心全力为学员服务。
宿迁上元教育培训学校，专注学习效果，坚持工匠精神，贴心服务，放心报名。
咨询地址：宿迁市宿城区宝龙24街8号楼303室上元教育（宝龙永和豆浆对面三楼）
