[已解决]请老师们帮忙写二个word VBA代码，谢谢老师们了！

yjwdjfqb

请老师们帮忙写二个word　VBA代码，谢谢老师们了！

第一个：写一个，将选定区域中的空格（空格有半角、全角的），半角空格替换为“＃”号
颜色并用红色标出。全角的空格替换为“%”号，颜色并用红色标出。

第二个，代码。
1、删除红色的“＃”号；
2、删除红色的“%”号。

如这个文件中的第一段。
请老师们帮忙写二个word　VBA代码.rar (2.57 KB, 下载次数: 7)

2013-11-18 11:57 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-11-18 19:34

用点WITH，长是长了点。

1. Sub 宏1()
   
2.     With Selection
   
3.         With .Find
   
4.             .ClearFormatting
   
5.             .Replacement.ClearFormatting
   
6.             .Replacement.Font.Color = wdColorRed
   
7.         End With
   
8. 
   
9.         With .Find
   
10.             .Text = " "
    
11.             .Replacement.Text = "#"
    
12.             .Forward = True
    
13.             .Wrap = wdFindContinue
    
14.             .Format = True
    
15.             .MatchByte = True
    
16. 
    
17.             .Execute Replace:=wdReplaceAll
    
18.         End With
    
19. 
    
20.         With .Find
    
21.             .ClearFormatting
    
22.             .Replacement.ClearFormatting
    
23.             .Replacement.Font.Color = wdColorRed
    
24.         End With
    
25. 
    
26.         With .Find
    
27.             .Text = "　"
    
28.             .Replacement.Text = "%"
    
29.             .Forward = True
    
30.             .Wrap = wdFindContinue
    
31.             .Format = True
    
32.             .MatchByte = True
    
33.             .Execute Replace:=wdReplaceAll
    
34.         End With
    
35.     End With
    
36. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

WORD里支持录制宏。

1. Sub 宏1()
   
2.     Selection.Find.ClearFormatting
   
3.     Selection.Find.Replacement.ClearFormatting
   
4.     Selection.Find.Replacement.Font.Color = wdColorRed
   
5.     With Selection.Find
   
6.         .Text = " "
   
7.         .Replacement.Text = "#"
   
8.         .Forward = True
   
9.         .Wrap = wdFindContinue
   
10.         .Format = True
    
11.         .MatchByte = True
    
12. 
    
13.     End With
    
14.     Selection.Find.Execute Replace:=wdReplaceAll
    
15.     Application.WindowState = wdWindowStateMinimize
    
16.     Application.WindowState = wdWindowStateNormal
    
17.     Selection.Find.ClearFormatting
    
18.     Selection.Find.Replacement.ClearFormatting
    
19.     Selection.Find.Replacement.Font.Color = wdColorRed
    
20.     With Selection.Find
    
21.         .Text = "　"
    
22.         .Replacement.Text = "%"
    
23.         .Forward = True
    
24.         .Wrap = wdFindContinue
    
25.         .Format = True
    
26.         .MatchByte = True
    
27.     End With
    
28.     Selection.Find.Execute Replace:=wdReplaceAll
    
29. End Sub
    

复制代码

hwc2ycy

用点WITH，长是长了点。

1. Sub 宏1()
   
2.     With Selection
   
3.         With .Find
   
4.             .ClearFormatting
   
5.             .Replacement.ClearFormatting
   
6.             .Replacement.Font.Color = wdColorRed
   
7.         End With
   
8. 
   
9.         With .Find
   
10.             .Text = " "
    
11.             .Replacement.Text = "#"
    
12.             .Forward = True
    
13.             .Wrap = wdFindContinue
    
14.             .Format = True
    
15.             .MatchByte = True
    
16. 
    
17.             .Execute Replace:=wdReplaceAll
    
18.         End With
    
19. 
    
20.         With .Find
    
21.             .ClearFormatting
    
22.             .Replacement.ClearFormatting
    
23.             .Replacement.Font.Color = wdColorRed
    
24.         End With
    
25. 
    
26.         With .Find
    
27.             .Text = "　"
    
28.             .Replacement.Text = "%"
    
29.             .Forward = True
    
30.             .Wrap = wdFindContinue
    
31.             .Format = True
    
32.             .MatchByte = True
    
33.             .Execute Replace:=wdReplaceAll
    
34.         End With
    
35.     End With
    
36. End Sub

复制代码

yjwdjfqb

hwc2ycy 发表于 2013-11-18 19:34
用点WITH，长是长了点。

老师你好，感谢你的帮助，能帮我做个这个文件吗，谢谢你了老师！
http://www.excelpx.com/thread-313651-1-1.html