oligo

¥i¸Õ¸Õ¬Ý¥H¤U³o­Ó Word VBA¡A
¥u§R°£¤¤¤åµ¥¥þ§Î¦r¤§¶¡ªºªÅ¥Õ¡A
¤£·|§R°£­^¤å¦r¤§¶¡ªºªÅ¥Õ¡C

1. Sub DeleteMiddleBlank()
   
2.     ' Delete Middle Blanks¡G¥h°£¥þ§Î¦r¶¡ªº³æ¤@ªÅ¥Õ
   
3.    
   
4.     ActiveDocument.Content.Select
   
5.    
   
6.     With Selection
   
7.         .InsertParagraphBefore
   
8.         Do While .Find.Execute(FindText:=" ")
   
9.             If Asc(.Previous) < 0 Then     ' ­YªÅ¥Õ«e¬°¥þ§Î¦r
   
10.                 If Asc(.Next) < 0 Then     ' ¥BªÅ¥Õ«á¬°¥þ§Î¦r
    
11.                     .Delete
    
12.                 End If
    
13.             End If
    
14.         Loop
    
15.     End With
    
16.    
    
17.     With ActiveDocument.Range(0, 0)
    
18.         .Delete
    
19.         .Select
    
20.     End With
    
21.    
    
22. End Sub

½Æ»s¥N½X