- ©«¤l
- 9
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 51
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 7
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-9-30
- ³Ì«áµn¿ý
- 2019-3-31
|
¥i¸Õ¸Õ¬Ý¥H¤U³oÓ Word VBA¡A
¥u§R°£¤¤¤åµ¥¥þ§Î¦r¤§¶¡ªºªÅ¥Õ¡A
¤£·|§R°£^¤å¦r¤§¶¡ªºªÅ¥Õ¡C- Sub DeleteMiddleBlank()
- ' Delete Middle Blanks¡G¥h°£¥þ§Î¦r¶¡ªº³æ¤@ªÅ¥Õ
-
- ActiveDocument.Content.Select
-
- With Selection
- .InsertParagraphBefore
- Do While .Find.Execute(FindText:=" ")
- If Asc(.Previous) < 0 Then ' YªÅ¥Õ«e¬°¥þ§Î¦r
- If Asc(.Next) < 0 Then ' ¥BªÅ¥Õ«á¬°¥þ§Î¦r
- .Delete
- End If
- End If
- Loop
- End With
-
- With ActiveDocument.Range(0, 0)
- .Delete
- .Select
- End With
-
- End Sub
½Æ»s¥N½X |
|