返回列表 上一主題 發帖

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

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-5-8 00:41 | 只看該作者

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

取代
本帖最後由 偉婕 於 2010-5-8 01:09 編輯

這個問題是網友來信問到的問題,在此貼出來供大家參考
1.[編輯]>[取代]
2.[尋找目標]後方輸入一個空白(就是按一個空白鍵)
3.[取代為]後面都不用輸入任何東西
4.按[全部取代]

文章中若有英文字,以上作法會使英文句子連在一起
想到的方法只有以下,不怎麼有效率,但可參考看看
1.先將[enter](即^p)用0取代
2.[尋找目標]輸入[!a-zA-Z0-9],即尋找中文字,[取代為]內不輸入
3.[尋找目標]輸入0,[取代為]輸入[^p]
若網友有更好的方法,歡迎分享!

註：於舊版2005-01-24發表
收藏 分享
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

倉田透

帖子
3 
主題
0 
精華
0 
積分
9 
點名
0  
作業系統
WIN 7 
軟體版本
MS OFFICE 2003 
閱讀權限
10 
性別
女 
註冊時間
2010-10-17 
最後登錄
2015-1-9 

論壇贊助勳章論壇榮譽勳章
2#
發表於 2011-7-1 23:23 | 只看該作者
請問  將[enter](即^p)用0取代  中，^p是什麼意思呢

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
3#
發表於 2011-7-2 00:48 | 只看該作者
回復 3# 倉田透

^p 就是[段落標記],也就是按下Enter的意思
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

Eugene

帖子
14 
主題
0 
精華
0 
積分
53 
點名
0  
作業系統
XP, Vista & Window7 
軟體版本
Office 2003 & 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-6-16 
最後登錄
2023-5-30 
4#
發表於 2011-7-2 09:54 | 只看該作者
回復 3# 倉田透


    若想知道更多方式：在"尋找及取代"對話框中央下方有個"更多▼(M)"的指令按鈕，按下後，對話框下方又多出"指定方式(E)▼"的指令按鈕。按下後可以得到更多的代碼方式。




版主的這秘訣對中英文交雜的處裡，真是好用的處裡方式及思考方向。謝謝！

TOP

infoverdad

帖子
175 
主題
8 
精華
0 
積分
207 
點名
278  
作業系統
WIN 10 
軟體版本
Office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章
5#
發表於 2011-7-13 21:35 | 只看該作者
請問[!a-zA-Z0-9]中 !代表的意義為何?
有查到[A-Za-z0-9]  代表大小寫字母和數字任選

TOP

偉婕
　暱稱: 偉婕

版主Rank: 7Rank: 7Rank: 7

帖子
376 
主題
84 
精華
0 
積分
419 
點名
0  
作業系統
Win 8 
軟體版本
Office 2007 
閱讀權限
100 
性別
女 
註冊時間
2010-4-30 
最後登錄
2022-6-2 

論壇貢獻勳章美女勳章熱烈參與勳章
6#
發表於 2011-7-14 20:01 | 只看該作者
回復 6# infoverdad

[!a-zA-Z0-9] 表示"排除"a-zA-Z0-9
偉婕電子書,歡迎免費下載參考
http://www.twbts.com/ebook/?subject=office
http://www.twbts.com/ebook/?subject=soft
偉婕藏書庫---https://www.facebook.com/groups/669579416484096/
有一家柑仔店---https://www.facebook.com/sadodona

TOP

infoverdad

帖子
175 
主題
8 
精華
0 
積分
207 
點名
278  
作業系統
WIN 10 
軟體版本
Office 2010 
閱讀權限
20 
性別
女 
註冊時間
2011-6-30 
最後登錄
2024-11-25 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章
7#
發表於 2011-7-14 20:05 | 只看該作者
回復 7# 偉婕


    原來如此,學習了!謝謝您!!

TOP

oligo

帖子
9 
主題
2 
精華
0 
積分
51 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2017-9-30 
最後登錄
2019-3-31 
8#
發表於 2017-10-5 14:44 | 只看該作者
可試試看以下這個 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

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題