背景
曾经的同事微信求助,在一个类似问卷的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