请教MacroButton域修改自身所在字体格式问题

我是新注册的会员，知道这里高手云集，不敢轻易发帖，一直潜着！最近遇到一问题不知高手们能解决吗？
问题如图：

[ 本帖最后由 守柔 于 2010-7-27 06:18 编辑 ]

附件

Snap2.jpg(34.75 KB)

2010-7-25 12:52

作者: willson_62   发布时间: 2010-07-25

参考：

附件

Book5.rar(7.87 KB)

2010-7-25 13:28, 下载次数: 15

作者: LangQueS   发布时间: 2010-07-25

作者: willson_62   发布时间: 2010-07-25

作者: renqiang851224   发布时间: 2010-07-25

作者: willson_62   发布时间: 2010-07-25

作者: willson_62   发布时间: 2010-07-26

作者: hshwxm   发布时间: 2010-07-27

引用:

原帖由 willson_62 于 2010-7-25 12:52 发表
我是新注册的会员，知道这里高手云集，不敢轻易发帖，一直潜着！最近遇到一问题不知高手们能解决吗？
问题如图：

这个问题要结合WORD实际情况来分析。
Word中采用域的方式，可以使用户单击选定域内容（相当于文字块），结合Macrobutton域，可以达到当用户单击或者双击时运行指定的过程。
Word中类似楼主的需求中，很难有一个合适的条件格式（从EXCEL层面理解），如当某个（单元格）值改变时，相应设置其本身的格式；Word中即便可以IF域来设置格式，但需要手动更新以及于本案例并不适合。
退而求其次，如果用户要输入内容，必先单击（或者双击）Macrobutton域，此时删除本身并设置该段落的格式（甚至样式）即可。
代码如下：
Option Explicit

Public Sub myFormat()
    Selection.Paragraphs(1).Range.Font.Color = wdColorBlack
    Selection.Fields(1).Delete
End Sub


Private Sub Document_Open()
    Word.Options.ButtonFieldClicks = 1
End Sub

附件

Example.rar(6.55 KB)

2010-7-27 06:16, 下载次数: 13

作者: 守柔   发布时间: 2010-07-27

作者: willson_62   发布时间: 2010-07-27

可看看附件效果，包括颜色和加粗。
颜色切换.rar (7.98 KB)

颜色切换.rar (7.98 KB)
下载次数: 8

2010-7-27 09:05

作者: sylun   发布时间: 2010-07-27

作者: willson_62   发布时间: 2010-07-27

作者: sylun   发布时间: 2010-07-27

作者: willson_62   发布时间: 2010-07-27

作者: 守柔   发布时间: 2010-07-28

作者: jysfzs   发布时间: 2011-07-31