如何用VBA查找特定格式的字符串，并复制到文章的尾部

zjgwzj

楼主的问题与附件格式并不一致嘛

pbdq

zjgwzj 发表于 2015-4-27 08:15
楼主的问题与附件格式并不一致嘛

你没有切换域代码啊。

ww0000

xwdys 发表于 2015-4-23 16:44
再试一下：
Sub test()
    Dim i&, j&, rng As Range

请问,如果我只想查找复制红色红字体的内容呢?

ww0000

xwdys 发表于 2015-4-23 16:44
再试一下：
Sub test()
    Dim i&, j&, rng As Range

你好，如果没有拼音，只对单排的文字呢？

xwdys

ww0000 发表于 2015-5-31 21:33
你好，如果没有拼音，只对单排的文字呢？

1. Sub test()
   
2.     Dim i&, j&, rng As Range
   
3.     Dim arr(1000)               '*****
   
4.    
   
5.     i = 0
   
6.     Selection.HomeKey wdStory
   
7.    
   
8.     With Selection.Find
   
9.         .ClearFormatting
   
10.         .Text = "*"
    
11.         .MatchWildcards = True
    
12.         .Font.ColorIndex = wdRed
    
13.         .Forward = True
    
14.         Do While .Execute
    
15.             Set rng = Range(Start:=Selection.Start, End:=Selection.End)
    
16.             arr(i) = rng
    
17.             i = i + 1
    
18.             If Range(Start:=Selection.Start + 1, End:=Selection.End + 1).Font.ColorIndex <> wdRed Then arr(i) = vbCrLf: i = i + 1
    
19.         Loop
    
20.         
    
21.         j = UBound(arr)
    
22.         For i = 0 To j
    
23.             If arr(i) = "" Then Exit For
    
24.             Selection.EndKey wdStory
    
25.             Selection.Text = arr(i)
    
26.         Next
    
27.    End With
    
28. End Sub
    

复制代码

ww0000

xwdys 发表于 2015-6-1 21:28

运行后卡机

xwdys

ww0000 发表于 2015-6-1 22:09
运行后卡机

把Range改成ActiveDocument.Range试试