我想为未知数量的复选框激发泛型代码,以更改行的格式样式。我有多行前导的复选框,我希望勾选将行设置为normal,并取消选中以将格式设置为标题2。
Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
If ContentControl.Checked = True Then
Selection.Style = ActiveDocument.Styles("Normal")
ElseIf contextcontrol.Checked = False Then
Selection.Style = ActiveDocument.Styles("Heading 2")
End If
End Sub
选中一个框会将光标设置在该行上,所以我希望这个策略能起作用。我从来没有在Word中使用过vba,所以我认为我只是在让代码触发方面做了一些错误的事情?
https://stackoverflow.com/questions/50705620
复制相似问题