word文档特定格式查找及替换

najagay

我又一段word文档特别大，今天手工做了一天，还没有做完，麻烦哪位知道帮个忙！谢谢！！！

我的文档格式是一行文字后面跟进三行数字，大概格式为以下两轮

ядролық/сн.

51

999,865

30503

яки/шл.

82

999,904

30504

现在想通过正则进行修改和查找
1、如果两行均为文字将文字合并，

ядрол

ық/сн. （把这两行合并）

51

999,865

30503

як

и/шл.（把这两行合并）

82

999,904

30504

合并后的效果应该是

ядролық/сн.

51

999,865

30503

яки/шл.

82

999,904

30504

2、通过一行文字后面数字行数大于三行，则提示出来人工进行修改

ядролық/сн.

51

999,8

65

30503

яки/шл.

82

999,904

30

504

剑指E

无附件无真相

najagay

具体在上面的帖子里写了，就那个也行

najagay

大家帮个忙！！

413191246se

* demo text:
Ядрол
ық/сн.
999,8
65
30,503
Яки
/шл.
82
999,904
504
777
767
Ядро
лы&79;/сн.
99,8
6
30
503

1. Sub a825_Russian_Numbers()
   
2.     Dim i As Paragraph
   
3.     With ActiveDocument
   
4.         .Content.Font.ColorIndex = wdAuto
   
5.         .Content.Find.Execute "^l", , , 0, , , , , , "^p", 2
   
6.         .Select
   
7.         CommandBars.FindControl(ID:=122).Execute
   
8.         CommandBars.FindControl(ID:=123).Execute
   
9.         
   
10.         For Each i In .Paragraphs
    
11.             If Asc(i.Range) = 13 Then i.Range.Delete
    
12.         Next
    
13. 
    
14.         For Each i In .Paragraphs
    
15.             If Not i.Range Like "#*" Then i.Range.Font.ColorIndex = wdPink
    
16.         Next
    
17. 
    
18.         With .Content.Find
    
19.             .ClearFormatting
    
20.             .Font.ColorIndex = wdPink
    
21.             .Text = ""
    
22.             .Forward = True
    
23.             .MatchWildcards = True
    
24.             Do While .Execute
    
25.                 With .Parent
    
26.                     If .Text Like "*[!.]?" And .Next(4, 1) Like "*.?" Then
    
27.                         .Characters.Last.Delete
    
28.                     End If
    
29.                     .MoveEnd 4
    
30.                     .Start = .End
    
31.                 End With
    
32.             Loop
    
33.         End With
    
34. 
    
35.         .Content.Font.ColorIndex = wdAuto
    
36. 
    
37.         With .Content.Find
    
38.             .ClearFormatting
    
39.             .Text = "^13[0-9,^13]{1,}"
    
40.             .Forward = True
    
41.             .MatchWildcards = True
    
42.             Do While .Execute
    
43.                 With .Parent
    
44.                     .MoveStart
    
45.                     If .Paragraphs.Count > 3 Then .Font.Color = wdColorRed
    
46.                     .Start = .End
    
47.                 End With
    
48.             Loop
    
49.         End With
    
50.     End With
    
51.     Selection.HomeKey 6
    
52. End Sub

复制代码

najagay

谢谢！！！！