如何通过代码将含有绿色字体文本所在的段落提取出来？

小花鹿

duquancai 发表于 2019-5-26 16:24
周末，我也来凑个热闹！！！

老师应该最后定音，你先出手了，别人还怎么玩

相见是缘8

tangqingfu 发表于 2019-5-26 15:24
代码测试通过，可以提取。

呀、老师的代码我反复测试，就是提取不了，光新建了一个文档，里面空白，这个会不会和我用的 office是2003版本的有关？

相见是缘8

duquancai 发表于 2019-5-26 16:24
周末，我也来凑个热闹！！！屏蔽掉内容重复的段落。

杜老师的代码高级！提取到新建文档的字不会改变原来的颜色，真是处处见功夫！

相见是缘8

小花鹿 发表于 2019-5-26 17:58
大家玩玩，讨论一下

呀、老师的代码我反复测试，就是提取不了，光新建了一个文档，里面空白，这个会不会和我用的 office是2003版本的有关？

小花鹿

相见是缘8 发表于 2019-5-27 07:04
呀、老师的代码我反复测试，就是提取不了，光新建了一个文档，里面空白，这个会不会和我用的 office是200 ...

改一下：
Sub test()
    Dim mydoc As Document, ed&
    Set mydoc = Documents.Add
    With ThisDocument.Content.Find
        .ClearFormatting
        .Text = ""
        .Font.Color = wdColorGreen
        .Forward = True
        .MatchWildcards = True
        Do While .Execute
            .Parent.Paragraphs(1).Range.Copy
            ed = mydoc.Range.End
            mydoc.Range(ed - 1, ed - 1).Paste
            .Parent.Move 4
        Loop
    End With
End Sub

相见是缘8

小花鹿 发表于 2019-5-27 09:01
改一下：
Sub test()
    Dim mydoc As Document, ed&

还是提取不了，光新建了一个文档，里面空白。奇了怪了！

小花鹿

相见是缘8 发表于 2019-5-27 10:00
还是提取不了，光新建了一个文档，里面空白。奇了怪了！

我专门找了一台有03的电脑试了一下，代码没问题，应该是你的电脑系统问题或OFFICE的问题

相见是缘8

小花鹿 发表于 2019-5-27 10:43
我专门找了一台有03的电脑试了一下，代码没问题，应该是你的电脑系统问题或OFFICE的问题

可：杜老师 和 413191246se 老师的代码，又都能正常提取，真是郁闷！

413191246se

相见，我这儿试了半天也无效果，也是新建空白文档，没有内容（无论把代码放到文档中，还是模板中；即使改为 ActiveDocument 也无效），可能与 Word2003 版本有关吧！我这儿也是 Word2003。
——代码还是 杜先生 的高明，保持格式（我的虽然结果正确，但格式未保持，做为备用程序吧）。

相见是缘8

413191246se 发表于 2019-5-27 13:51
相见，我这儿试了半天也无效果，也是新建空白文档，没有内容（无论把代码放到文档中，还是模板中；即使改为 ...

老师你的电脑也提取不了，是吧？可小花鹿老师说在03的电脑试了代码没问题，可提取，难道和电脑系统的不同还有关系？我公司的电脑系统，因要与仓储软件绑定，都是XP的。
——我觉得你和杜老师都是高手，代码各有千秋！