AU3中调用VBA替换WORD中的文本

ybb03

[A级　基础达标]
1. [2014•北京高考]设a，b是实数，则“a>b”是“a2>b2”的(　　)
A. 充分而不必要条件
B. 必要而不充分条件
C. 充分必要条件
D. 既不充分也不必要条件
解析：可采用特殊值法进行判断
以上是WORD中的内容，现在想实现在解析前加上6个换行，留出空白讲解用现在用

研究了好几天，一直想用VBA实现，但是能力有限。最后用_WordDocFindReplace实现在WORD中用VBA录制能实现，往AU3移植就不行了。

ybb03

用_WordDocFindReplace实现了，但是一直不甘心啊，想直接用AU3调用VBA实现

ybb03

看了下WORD代码，解决如下
Local        $context =         "解析："                        ;"请输入要替换的内容")
                Local        $newcontext = "^13^13^13^13^13解析："                                ;("请输入要替换成的内容")
                        With $doc.Application.Selection.Range.Find
                                .ClearFormatting ()
                                .Replacement.ClearFormatting ()
                            .Execute($context,0,0,0,0,0,1,1,0,$newcontext,2)
                               
                        EndWith

ybb03

以后研究一下怎么直接修改录制的宏

ddrs

不错，思路清晰