ybb03 发表于 2015-12-26 18:22:30

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


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

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

ybb03 发表于 2015-12-26 18:24:06

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

ybb03 发表于 2016-1-7 09:02:35

看了下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 发表于 2016-1-7 09:03:07

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

ddrs 发表于 2016-1-8 01:50:16

不错，思路清晰
页: [1]
查看完整版本: AU3中调用VBA替换WORD中的文本