请教如何快速选中word中大量有底纹的文字？

相见是缘8

cuanju 发表于 2020-3-12 08:12
经测试，没有发现问题。
Sub Example33()
    Dim i As Paragraph, NewDoc As Document

老师好！
你给的代码能运行（仔细比对我抄的代码少了2个空格），这个代码运行后，也只是新建了一个空白的文档，并没有选中有底纹的文字，进行修改和复制粘贴。

cuanju

相见是缘8 发表于 2020-3-12 10:13
老师好！
你给的代码能运行（仔细对比才发现我抄的代码少了2个空格），这个代码运行后，也只是新建了一 ...

经再次测试，没有问题。此代码要放到本文档中，即放入《请教如何选中有底纹的文字.doc》。运行代码后，会将含底纹的文字复制到新建的word文档中。

cuanju

代码应放到这个位置。

相见是缘8

cuanju 发表于 2020-3-12 13:53
代码应放到这个位置。

感谢老师指教！
啊，这样是可以！老师有不有办法把代码改一下，让它放在常用的代码窗口，对其它的类似的文档也能用，让它的适用性更多。谢谢！