返回列表 上一主題 發帖

[分享] 一次刪除文章內多餘的空白

可試試看以下這個 Word VBA,
只刪除中文等全形字之間的空白,
不會刪除英文字之間的空白。
  1. Sub DeleteMiddleBlank()
  2.     ' Delete Middle Blanks:去除全形字間的單一空白
  3.    
  4.     ActiveDocument.Content.Select
  5.    
  6.     With Selection
  7.         .InsertParagraphBefore
  8.         Do While .Find.Execute(FindText:=" ")
  9.             If Asc(.Previous) < 0 Then     ' 若空白前為全形字
  10.                 If Asc(.Next) < 0 Then     ' 且空白後為全形字
  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
複製代碼

TOP

        靜思自在 : 有智慧才能分辨善惡邪正;有謙虛才能建立美滿人生。
返回列表 上一主題