返回列表 上一主題 發帖

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

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

本帖最後由 oligo 於 2017-10-3 15:43 編輯

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

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


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

敬請諸位前輩指教!謝謝!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

回復 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

回復 2# 偉婕

謝謝您的指點!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

利用VBA是可以的。
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

※程式也排除這些字元:"  " & 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
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 5# linyancheng


    真是非常感謝!VBA 功能真強大,謝謝您熱心指教!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

標點符號字串 = "!""#$%&()*+,-./:;<=>?@[\]^_`{|}~!" & StrConv("""", vbWide) & "#$%&()*+,-./:;<=>?@〔\〕︿_‘{|}∼"

這字串可以自己增加,標點符號很多!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 7# linyancheng
非常謝謝您的指點!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 虛空有盡.我願無窮,發願容易行願難。
返回列表 上一主題