[µo°Ý] ¦p¦ó­pºâ¤£¥]¬A¼ÐÂI²Å¸¹ªº¦r¼Æ¡H word

oligo

½Ð°Ý¦p¦ó¤~¯à­pºâ¤£¥]¬A¼ÐÂI²Å¸¹ªº¦r¼Æ¡H
¨Ò¦p¥H¤U³o¤@¬q¡G

¤­¦â¥O¤H¥Øª¼¡F
¤­­µ¥O¤H¦ÕŤ¡F
¤­¨ý¥O¤H¤f²n¡F
¹£Áþ¬ËÂy¡A¥O¤H¤ßµo¨g¡F
Ãø±o¤§³f¡A¥O¤H¦æ§«¡C
¬O¥H¸t¤H¬°¸¡¤£¬°¥Ø¡A
¬G¥h©¼¨ú¦¹¡C

­Y¥]§t¼ÐÂI²Å¸¹¡AWord ·|Åã¥Ü¦³58­Ó¦r¡C
¦pªG¤£¥]¬A ¡A¡F¡C µ¥¼ÐÂI¡AÀ³¦p¦óºâ¥X¦r¼Æ¡H

·q½Ð½Ñ¦ì«e½ú«ü±Ð¡IÁÂÁ¡I

oligo

¦^´_ 7# linyancheng
«D±`ÁÂÁ±zªº«üÂI¡I

linyancheng

¼ÐÂI²Å¸¹¦r¦ê = "!""#$%&()*+,-./:;<=>?@[\]^_`{|}~¡I" & StrConv("""", vbWide) & "¡­¢C¢H¡®¡]¡^¡¯¡Ï¡A¡Ð¡D¡þ¡G¡F¡Õ¡×¡Ö¡H¢I¡e¢@¡f¡s¡Ä¡¥¡a¡U¡b¡ã"

³o¦r¦ê¥i¥H¦Û¤v¼W¥[¡A¼ÐÂI²Å¸¹«Ü¦h¡I

oligo

¦^´_ 5# linyancheng


    ¯u¬O«D±`·PÁ¡IVBA ¥\¯à¯u±j¤j¡AÁÂÁ±z¼ö¤ß«ü±Ð¡I

linyancheng

¡°µ{¦¡¤]±Æ°£³o¨Ç¦r¤¸¡G" ¡@" & vbCr & vbLf & vbCrLf & vbTab & vbBack

Option Explicit
Option Base 1

Sub ­pºâ¤£¥]¬A¼ÐÂI²Å¸¹¦r¼Æ()

    Dim X As Long
    Dim N As Long
   
    N = 0
    For X = 1 To Selection.Characters.Count
        If F_¼ÐÂI²Å¸¹§P©w_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 "¤£¥]¬A¼ÐÂI²Å¸¹¦r¼Æ¡G" & N

End Sub

Public Function F_¼ÐÂI²Å¸¹§P©w_01(ByVal ¨Ó·½¦r¤¸ As String) As Boolean
   
    On Error Resume Next
   
    Dim ¼ÐÂI²Å¸¹¦r¦ê As String
   
    ¼ÐÂI²Å¸¹¦r¦ê = "!""#$%&()*+,-./:;<=>?@[\]^_`{|}~¡I" & StrConv("""", vbWide) & "¡­¢C¢H¡®¡]¡^¡¯¡Ï¡A¡Ð¡D¡þ¡G¡F¡Õ¡×¡Ö¡H¢I¡e¢@¡f¡s¡Ä¡¥¡a¡U¡b¡ã"
   
    If InStr(1, ¼ÐÂI²Å¸¹¦r¦ê, ¨Ó·½¦r¤¸, vbBinaryCompare) = 0 Then
        F_¼ÐÂI²Å¸¹§P©w_01 = False
    Else
        F_¼ÐÂI²Å¸¹§P©w_01 = True
    End If

End Function

linyancheng

§Q¥ÎVBA¬O¥i¥Hªº¡C

oligo

¦^´_ 2# °¶ÔÐ

ÁÂÁ±zªº«üÂI¡I

°¶ÔÐ

¦^´_ 1# oligo

Word¥Ø«eµLªk­pºâ¤£¥]¬A¼ÐÂI²Å¸¹ªº¦r¼Æ
©Î³\±z¥i¥H°Ñ¦Ò¤U­±ºô­¶  https://www.ifreesite.com/wordcount/