如何計算不包括標點符號的字數？ - Word - 麻辣家族討論版版

本帖最後由oligo 於2017-10-3 15:43 編輯請問如何才能計算不包括標點符號的字數？ 例如以下這一段： 五色令人. 註冊 登錄 首頁論壇版規禁止列表說明地圖數位書香 私人消息(0)公共消息(0)論壇任務(0)系統消息(0)好友消息(0)帖子消息(0) 麻辣家族討論版版»Word»如何計算不包括標點符號的字數？ 返回列表 下一主題 上一主題 發帖 [發問]如何計算不包括標點符號的字數？ oligo 發短消息 加為好友 oligo 當前離線 UID29686 帖子9 主題2 精華0 積分51 金錢51 點名0 作業系統Win7 軟體版本Office2010 閱讀權限20 性別男 在線時間22小時 註冊時間2017-9-30 最後登錄2019-3-31  中學生 帖子9 主題2 精華0 積分51 點名0 作業系統Win7 軟體版本Office2010 閱讀權限20 性別男 註冊時間2017-9-30 最後登錄2019-3-31  1# 跳轉到» 倒序看帖 打印 字體大小:tT 發表於2017-10-315:41 |只看該作者 [發問]如何計算不包括標點符號的字數？ word 本帖最後由oligo於2017-10-315:43編輯 請問如何才能計算不包括標點符號的字數？ 例如以下這一段： 五色令人目盲； 五音令人耳聾； 五味令人口爽； 馳騁畋獵，令人心發狂； 難得之貨，令人行妨。

是以聖人為腹不為目， 故去彼取此。

若包含標點符號，Word會顯示有58個字。

如果不包括，；。

等標點，應如何算出字數？ 敬請諸位前輩指教！謝謝！ 收藏 分享 最新JavaScript精緻範例字典：對應ECMAScript新語法規則 　　最新HTML5．CSS3精緻範例字典(+RWD快速上手) 偉婕 發短消息 加為好友 偉婕 (偉婕)當前離線 UID4 帖子376 主題84 精華0 積分419 金錢419 點名0 作業系統Win8 軟體版本Office2007 閱讀權限100 性別女 在線時間99小時 註冊時間2010-4-30 最後登錄2019-5-11  　暱稱:偉婕 版主 帖子376 主題84 精華0 積分419 點名0 作業系統Win8 軟體版本Office2007 閱讀權限100 性別女 註冊時間2010-4-30 最後登錄2019-5-11  2# 發表於2017-10-321:37 |只看該作者 回復1#oligo Word目前無法計算不包括標點符號的字數 或許您可以參考下面網頁  https://www.ifreesite.com/wordcount/ 偉婕電子書,歡迎免費下載參考 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 oligo 發短消息 加為好友 oligo 當前離線 UID29686 帖子9 主題2 精華0 積分51 金錢51 點名0 作業系統Win7 軟體版本Office2010 閱讀權限20 性別男 在線時間22小時 註冊時間2017-9-30 最後登錄2019-3-31  中學生 帖子9 主題2 精華0 積分51 點名0 作業系統Win7 軟體版本Office2010 閱讀權限20 性別男 註冊時間2017-9-30 最後登錄2019-3-31  3# 發表於2017-10-322:50 |只看該作者 回復2#偉婕 謝謝您的指點！ TOP linyancheng 發短消息 加為好友 linyancheng 當前離線 UID14470 帖子206 主題63 精華2 積分303 金錢303 點名0 作業系統Windows7 軟體版本Office2000,2010 閱讀權限100 性別男 來自彰化縣 在線時間84小時 註冊時間2013-7-18 最後登錄2022-4-20  版主 帖子206 主題63 精華2 積分303 點名0 作業系統Windows7 軟體版本Office2000,2010 閱讀權限100 性別男 來自彰化縣 註冊時間2013-7-18 最後登錄2022-4-20  4# 發表於2017-10-1413:27 |只看該作者 利用VBA是可以的。

TOP linyancheng 發短消息 加為好友 linyancheng 當前離線 UID14470 帖子206 主題63 精華2 積分303 金錢303 點名0 作業系統Windows7 軟體版本Office2000,2010 閱讀權限100 性別男 來自彰化縣 在線時間84小時 註冊時間2013-7-18 最後登錄2022-4-20  版主 帖子206 主題63 精華2 積分303 點名0 作業系統Windows7 軟體版本Office2000,2010 閱讀權限100 性別男 來自彰化縣 註冊時間2013-7-18 最後登錄2022-4-20  5# 發表於2017-10-1413:45 |只看該作者 ※程式也排除這些字元："　"&vbCr&vbLf&vbCrLf&vbTab&vbBack OptionExplicit OptionBase1 Sub計算不包括標點符號字數()   DimXAsLong   DimNAsLong      N=0   ForX=1ToSelection.Characters.Count       IfF_標點符號判定_01(Selection.Characters(X))=FalseAndInStr("　"&vbCr&vbLf&vbCrLf&vbTab&vbBack,Selection.Characters(X))=0Then         N=N+1       EndIf   NextX      MsgBox"不包括標點符號字數："&N EndSub PublicFunctionF_標點符號判定_01(ByVal來源字元AsString)AsBoolean      OnErrorResumeNext      Dim標點符號字串AsString      標點符號字串="!""#$%&()*+,-./:;<=>?@[\]^_`{|}~！"&StrConv("""",vbWide)&"＃＄％＆（）＊＋，－．／：；＜＝＞？＠〔＼〕︿＿‘｛｜｝～"      IfInStr(1,標點符號字串,來源字元,vbBinaryCompare)=0Then       F_標點符號判定_01=False   Else       F_標點符號判定_01=True   EndIf EndFunction TOP oligo 發短消息 加為好友 oligo 當前離線 UID29686 帖子9 主題2 精華0 積分51 金錢51 點名0 作業系統Win7 軟體版本Office2010 閱讀權限20 性別男 在線時間22小時 註冊時間2017-9-30 最後登錄2019-3-31  中學生 帖子9 主題2 精華0 積分51 點名0 作業系統Win7 軟體版本Office2010 閱讀權限20 性別男 註冊時間2017-9-30 最後登錄2019-3-31  6# 發表於2017-10-1915:27 |只看該作者 回復5#linyancheng   真是非常感謝！VBA功能真強大，謝謝您熱心指教！ TOP linyancheng 發短消息 加為好友 linyancheng 當前離線 UID14470 帖子206 主題63 精華2 積分303 金錢303 點名0 作業系統Windows7 軟體版本Office2000,2010 閱讀權限100 性別男 來自彰化縣 在線時間84小時 註冊時間2013-7-18 最後登錄2022-4-20  版主 帖子206 主題63 精華2 積分303 點名0 作業系統Windows7 軟體版本Office2000,2010 閱讀權限100 性別男 來自彰化縣 註冊時間2013-7-18 最後登錄2022-4-20  7# 發表於2017-10-2318:02 |只看該作者 標點符號字串="!""#$%&()*+,-./:;<=>?@[\]^_`{|}~！"&StrConv("""",vbWide)&"＃＄％＆（）＊＋，－．／：；＜＝＞？＠〔＼〕︿＿‘｛｜｝～" 這字串可以自己增加，標點符號很多！ TOP oligo 發短消息 加為好友 oligo 當前離線 UID29686 帖子9 主題2 精華0 積分51 金錢51 點名0 作業系統Win7 軟體版本Office2010 閱讀權限20 性別男 在線時間22小時 註冊時間2017-9-30 最後登錄2019-3-31  中學生 帖子9 主題2 精華0 積分51 點名0 作業系統Win7 軟體版本Office2010 閱讀權限20 性別男 註冊時間2017-9-30 最後登錄2019-3-31  8# 發表於2017-10-2911:35 |只看該作者 回復7#linyancheng 非常謝謝您的指點！ TOP         靜思自在:靜坐常恩己過、閒談莫論人非。

返回列表 下一主題 上一主題 EXCEL專屬討論區Excelㄧ般區Excel程式區進階應用專區OFFICE系列WordPowerPointAccessOffice不分區程式語言VB與VB.NetC與C#Java與J#程式設計不分區資料庫ORACLEMySQLMSSQL網頁設計ASP與ASP.NETPHPPHP+MySQL入門實作JavaScriptFLASH/ActionScriptHTM/HTML/CSS網頁設計不分區電腦與作業系統電腦各種硬體討論一般電腦軟體討論論壇事務管理公告投訴反映新手測試愛‧生活公益佈告欄生活與感動 [收藏此主題]  [關注此主題的新回復] [通過QQ、MSN分享給朋友] 申請友情鏈接 Facebook粉絲 麻辣家族討論版版 |聯繫我們 |Archiver|WAP| GMT+8,2022-4-2803:49,Processedin0.062400second(s),6queries,Gzipenabled.PoweredbyDiscuz!7.2 麻辣家族討論版版 昱得資訊工作室Since1993(c)