VBA: 请问在 Word 中如何替换搜索到的内容中一部分内容的样式？

Question

比如我想更改所有 INDEX 后花括号中内容的样式，如何实现？INDEX {test}
CONTENT {...}
INDEX {help}
CONTENT {...}
INDEX {manual}
CONTENT {...}

Answer 1

INDEX \{([\S\s]*?)\}
给你一个正则表达式，已调试

Answer 2

先用正则找到要改变的文字
然后用Selection.Font方法实现
例：
Selection.Font.Size = 18
Selection.Font.Bold = wdToggle
Selection.Font.Name = "黑体"

Answer 3

INDEX \{([\S\s]*?)\}
呵呵，忘了说了，表达式取$1的值

Answer 4

就知道你会这样说。
首先，我在查找时使用的是通配符 INDEX \{(*)\}^0013，花括号中的文字为 \1。我没有在 Word 宏中使用过正则表达式。
第二，你说取 $1，我也想取。可我就是不知道怎么取啊！

Answer 5

你再采我还能说啥，哈哈，你挺逗！通过引用 Microsoft VBScript Regular Expressions 5.5 或者 Microdoft VBScript Regular Expressions 1.0, 则可以使用 VBScript 的正则表达式. 例如: 
代码：
--------------------------------------------------------------------------------
  Public Function regular(str)
  　　Dim re As New RegExp
  　　re.IgnoreCase = True
  　　re.Global = True
  　　re.Pattern = "\[aem(.[^\[]*)\]"
  　　regular = re.Replace(str, "<img src=pic\aem$1.gif border=0 align=middle>")  End Function
====================================================
Debug.Print regular("[aem26]")
返回:  <img src=pic\aem26.gif border=0 align=middle>

Answer 6

这算什么啊？不还是文字替换
我要更改 INDEX {help} 中花括号里文字的样式
我的神啊，我表达能力有问题吗