Microsoft Word 2016 VBA开发 通过脚本实现表格内显示、隐藏一行注释

背景

曾经的同事微信求助，在一个类似问卷的docx文件中的某个Table内，分别放入两个按钮：显示、隐藏，用于指导用户进行表格填写

方法

1. 创建一个docm文件，并启用宏

2. 在Visual Basic编辑器中插入如下代码

Public Sub ShowNotif()
　　If ActiveDocument.Bookmarks.Exists("BM1") = True Then 
　　　　ActiveDocument.Bookmarks("BM1").Select
　　　　Selection.InsertAfter Text:="Your notifications here." 'Input your notification here
　　End If
End Sub

Public Sub HideNotif()
　　If ActiveDocument.Bookmarks.Exists("BM1") = True Then
　　　　Set myrange = ActiveDocument.Bookmarks("BM1").Range
　　　　myrange.Select
　　　　Selection.MoveEnd wdParagraph
　　　　Selection.MoveEnd Unit:=wdCharacter, Count:=-1
　　　　Selection.Delete
　　End If
End Sub

 

3. 在该文档对应的需要显示提示信息的位置插入书签，并命名为BM1，和上述代码中的BM1对应。

4. 分别创建两个MacroButton域，分别指向函数ShowNotif和HideNotif，并将显示名调整为需要的名称，如显示、隐藏。

　PS：创建域的快捷键为Ctrl+F9

5. 完毕后双击显示，在BM1位置处会显示代码中的提示文字，双击隐藏该段文字便会消失

注意：
（1）文件需保存为DOCM
（2）若域显示不正常，需要在文件、选项、高级中，切换显示域代码而非域值 

 

Demo下载

链接: https://pan.baidu.com/s/1nvyxxc1 密码: zzh2