word checkbox 勾选后格式自动变化

dapeng1231 · 发表于 2016-12-5 23:02

求助，我有个word文档，附件
每一行都有一个checkbox ，想实现：
每当我勾选了一行的checkbox后，这一行的文字自动变红或者添加底色为红，请问如何实现？多谢

duquancai · 发表于 2016-12-5 23:24

先搞清楚：你这是纯文本内容控件，并非ActiveX控件的复选框checkbox控件！

duquancai · 发表于 2016-12-6 08:39

附件，打开，在文档中点击内容控件》》》》》》

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
With Selection
If ContentControl.Checked Then
.Expand 4: .Font.ColorIndex = 6: .Collapse
ContentControl.Range.Font.ColorIndex = 0
Else
.Expand 4: .Font.ColorIndex = 0: .Collapse
End If
End With
End Sub

复制代码

dapeng1231 · 发表于 2016-12-6 10:45

duquancai 发表于 2016-12-6 08:39
附件，打开，在文档中点击内容控件》》》》》》

多谢多谢，我去尝试下，

dapeng1231 · 发表于 2016-12-6 11:20

duquancai 发表于 2016-12-6 08:39
附件，打开，在文档中点击内容控件》》》》》》

感谢您的帮助，让我再次感慨需要学点编程呀：（有个小问题，如此操作后就不能保护了，请问有何良策？非常感谢

duquancai · 发表于 2016-12-6 11:26

dapeng1231 发表于 2016-12-6 11:20
感谢您的帮助，让我再次感慨需要学点编程呀：（有个小问题，如此操作后就不能保护了，请问有何良 ...

什么叫有个小问题?那根本就不是问题。抱歉，我没时间，也没动力再搞你这个。

dapeng1231 · 发表于 2016-12-6 12:29

看来还是要自己强大起来才是，否则被人奚落呀

		自动登录	找回密码
密码			免费注册

[求助] word checkbox 勾选后格式自动变化