[發問] 如何計算不包括標點符號的字數？ word

oligo

請問如何才能計算不包括標點符號的字數？
例如以下這一段：

五色令人目盲；
五音令人耳聾；
五味令人口爽；
馳騁畋獵，令人心發狂；
難得之貨，令人行妨。
是以聖人為腹不為目，
故去彼取此。

若包含標點符號，Word 會顯示有58個字。
如果不包括 ，；。 等標點，應如何算出字數？

敬請諸位前輩指教！謝謝！

偉婕

回復 1# oligo

Word目前無法計算不包括標點符號的字數
或許您可以參考下面網頁  https://www.ifreesite.com/wordcount/

oligo

回復 2# 偉婕

謝謝您的指點！

linyancheng

利用VBA是可以的。

linyancheng

※程式也排除這些字元：" 　" & vbCr & vbLf & vbCrLf & vbTab & vbBack

Option Explicit
Option Base 1

Sub 計算不包括標點符號字數()

    Dim X As Long
    Dim N As Long
   
    N = 0
    For X = 1 To Selection.Characters.Count
        If F_標點符號判定_01(Selection.Characters(X)) = False And InStr(" 　" & vbCr & vbLf & vbCrLf & vbTab & vbBack, Selection.Characters(X)) = 0 Then
            N = N + 1
        End If
    Next X
   
    MsgBox "不包括標點符號字數：" & N

End Sub

Public Function F_標點符號判定_01(ByVal 來源字元 As String) As Boolean
   
    On Error Resume Next
   
    Dim 標點符號字串 As String
   
    標點符號字串 = "!""#$%&()*+,-./:;<=>?@[\]^_`{|}~！" & StrConv("""", vbWide) & "＃＄％＆（）＊＋，－．／：；＜＝＞？＠〔＼〕︿＿‘｛｜｝～"
   
    If InStr(1, 標點符號字串, 來源字元, vbBinaryCompare) = 0 Then
        F_標點符號判定_01 = False
    Else
        F_標點符號判定_01 = True
    End If

End Function

oligo

回復 5# linyancheng


    真是非常感謝！VBA 功能真強大，謝謝您熱心指教！

linyancheng

標點符號字串 = "!""#$%&()*+,-./:;<=>?@[\]^_`{|}~！" & StrConv("""", vbWide) & "＃＄％＆（）＊＋，－．／：；＜＝＞？＠〔＼〕︿＿‘｛｜｝～"

這字串可以自己增加，標點符號很多！

oligo

回復 7# linyancheng
非常謝謝您的指點！