对于需è¦å’Œå¤§é‡æ–‡å—打交é“的人,在使用Wordçš„å—æ•°ç»Ÿè®¡åŠŸèƒ½æ—¶ï¼Œå¦‚æžœä½ çš„æ–‡æ¡£ä¸æœ‰æ¯”è¾ƒç‰¹æ®Šçš„å†…å®¹ï¼Œä¾‹å¦‚æ–‡æœ¬æ¡†ï¼Œé‚£ä¹ˆæœ‰ä¸€ä¸ªé—®é¢˜ä¸€å®šéœ€è¦æ³¨æ„,那就是,在2007版之å‰çš„Wordä¸ï¼Œæ–‡å—统计功能并ä¸ç»Ÿè®¡æ–‡æœ¬æ¡†å†…æ–‡å—çš„å—æ•°ã€‚
这个问题我一直都没有æ„识到,主è¦å› 为我一直使用最新版本的Word,而没有å‘现这个问题。最近处ç†çš„ä¸€æœ¬ä¹¦ç¨¿ï¼Œæ— è®ºæ€Žæ ·è®¡ç®—ï¼Œæˆ‘è¿™é‡Œç»Ÿè®¡çš„å—æ•°å’Œå‡ºç‰ˆç¤¾æœ€ç»ˆç»Ÿè®¡çš„å—æ•°éƒ½æœ‰æ‰€å·®åˆ«ï¼Œè€Œä¸”ç«Ÿç„¶å·®äº†å¥½å‡ ä¸‡å—ã€‚è¿™å°±æ¯”è¾ƒå¥‡æ€ªäº†ï¼ŒåŽæ¥ç»è¿‡ä»”细检查æ‰å‘现,就是文本框的问题。出版社使用的是Word 2003ï¼Œç»Ÿè®¡å—æ•°å¹¶ä¸åŒ…嫿–‡æœ¬æ¡†å†…的文å—,而我这个书稿里有大é‡å†…å®¹ï¼Œä¸ºäº†ä¿æŒç‰ˆé¢çš„美观,都放在了文本框ä¸ï¼Œè¿™ä¹Ÿå°±å¯¼è‡´ç»Ÿè®¡å—数有很大å差。
å› æ¤å¦‚æžœå› ä¸ºæŸäº›åŽŸå› å¿…é¡»ä½¿ç”¨è€ç‰ˆæœ¬Word,å¯ä»¥è€ƒè™‘使用å®çš„æ–¹å¼å®žçŽ°ï¼Œåšæ³•å¯å‚考这里。
ä½œä¸ºå˜æ¡£ï¼Œè¿™é‡Œå°†å®çš„å†…å®¹ä¸€èµ·ç…§åŽŸæ ·è´´å‡ºæ¥ï¼Œæ„Ÿè°¢åŽŸä½œè€…çš„å·¥ä½œæˆæžœï¼š
‘ç»Ÿè®¡å…¨éƒ¨å—æ•°çš„代ç 使用了网å‹Lieven Lannoo <lieven.lannoo@nci.be>æä¾›çš„解决方案
Dim oStory As Object, WordCount, WordChar As Long
Dim dhk As Dialog ‘å®šä¹‰å¯¹è¯æ¡†å˜é‡
Dim MainNumWords As Long ‘ æ–‡æ¡£ä¸»ä½“çš„å—æ•°
Dim MainNumChars As Long ‘ 文档主体的å—符数
Application.ScreenUpdating = False ‘å…³é—å±å¹•刷新æé«˜ç»Ÿè®¡é€Ÿåº¦
For Each oStory In ActiveDocument.StoryRanges ‘é历文档å—符
WordCount = WordCount + oStory.ComputeStatistics(wdStatisticWords) ‘æ–‡æ¡£å…¨éƒ¨å—æ•°ï¼ˆå«æ–‡æœ¬æ¡†ä¸çš„)
WordChar = WordChar + oStory.ComputeStatistics(wdStatisticCharacters) ‘文档全部å—ç¬¦æ•°ï¼ˆå«æ–‡æœ¬æ¡†ä¸çš„)
Do While Not (oStory.NextStoryRange Is Nothing) ‘åŒä¸€ç»„åˆå†…的下一个对象ä¸ç©ºåˆ™ç»§ç»ç»Ÿè®¡
Set oStory = oStory.NextStoryRange
WordCount = WordCount + oStory.ComputeStatistics(wdStatisticWords) ‘ç´¯åŠ ä¸ŠåŒä¸€ç»„åˆå†…å—æ•°
WordChar = WordChar + oStory.ComputeStatistics(wdStatisticCharacters) ‘ç´¯åŠ ä¸ŠåŒä¸€ç»„åˆå†…å—符数
Loop
Next oStory
Selection.HomeKey Unit:=wdStory ‘将所选内容移至文档开头
Set dhk = Dialogs(wdDialogToolsWordCount) ‘å°†dhk设置为"å—æ•°ç»Ÿè®¡"å¯¹è¯æ¡†
dhk.Update
dhk.Execute
MainNumWords = dhk.Words ‘èŽ·å¾—æ–‡æ¡£ä¸»ä½“çš„å—æ•°
MainNumChars = dhk.Characters ‘获得文档主体的å—符数
Application.ScreenUpdating = True ‘统计完毕æ¢å¤å±å¹•刷新
‘显示统计结果
MsgBox "使用当ä¸é‡åˆ°ä»»ä½•é—®é¢˜ï¼Œè¯·éšæ—¶ä¸Žæˆ‘è”系。" & vbCr & vbCr _
& "电气工程师兼日è¯ç¿»è¯‘――真庸" & vbCr & vbCr _
& "电å信箱:ruiteng2005@126.com" & vbCr & vbCr _
& "QQ:383290039" & vbCr & vbCr _
& "MSN:ruiteng2005@hotmail.com" & vbCr & vbCr _
& "电è¯ï¼š13312029710 或者 13389935832" & vbCr & vbCr _
& "" & vbCr & vbCr _
& "****包括文档主体/å„ç§æ¡†æž¶å†…çš„å—æ•°/å—符数统计信æ¯****" & vbCr & vbCr _
& "æ•´ä¸ªæ–‡æ¡£å—æ•°æ€»è®¡ :" & WordCount & vbCr _
& "整个文档å—符数总计:" & WordChar & vbCr & vbCr _
& " å…¶ä¸1ã€æœ‰å…³æ–‡æœ¬æ¡†çš„统计信æ¯" & vbCr _
& " æ–‡æœ¬æ¡†æ•°é‡ ï¼š" & Str(ActiveDocument.Shapes.Count) & vbCr _
& " æ–‡æœ¬æ¡†å—æ•°åˆè®¡ :" & WordCount – MainNumWords & vbCr _
& " 文本框å—符数åˆè®¡ :" & WordChar – MainNumChars & vbCr & vbCr _
& " 2ã€æœ‰å…³æ–‡æ¡£ä¸»ä½“的统计信æ¯" & vbCr _
& "(å³WORDè‡ªå¸¦çš„â€œå—æ•°ç»Ÿè®¡â€åŠŸèƒ½ç»Ÿè®¡çš„ç»“æžœï¼‰" & vbCr _
& " æ–‡æ¡£ä¸»ä½“å—æ•°åˆè®¡ :" & MainNumWords & vbCr _
& " 文档主体å—符数åˆè®¡ï¼ˆä¸è®¡ç©ºæ ¼ï¼‰ï¼š" & MainNumChars
ä¸å¾—ä¸å†æ¬¡æ„Ÿå¹ï¼ŒMS Office的功能实在是太强大了,虽然其ä¸ç»å¤§éƒ¨åˆ†åŠŸèƒ½ï¼Œå¤§éƒ¨åˆ†äººå¯èƒ½æ ¹æœ¬ç”¨ä¸åˆ°ï¼Œè€Œä¸”å¯èƒ½åŽ‹æ ¹ä¸çŸ¥é“这些功能的å˜åœ¨ï¼Œä¸è¿‡ï¼Œå¦‚果确实需è¦çš„æ—¶å€™ï¼Œè¿˜çœŸæ˜¯æŒºæ–¹ä¾¿çš„。
Tags: Word
MS Office功能太强大了,office软件第一选择啊
最新版是指Office 2007还是Office 2010 Beta? 🙂
2010暂时ä¸ç®—ï¼Œæ˜¨å¤©è£…ä¸Šè¯•äº†ä¸€ä¸‹ï¼Œç¡®å®žæŒºèµžï¼Œä½†æ˜¯ç¨³å®šæ€§å¤ªå·®ï¼Œæ€»æ˜¯æ— è§„å¾‹éšæœºå´©æºƒï¼Œæ ¹æœ¬æ²¡æ³•用,åˆé€€å›ž2007了
Office 2007å’Œvistaçš„è¿™ç§æ‰€è§å³æ‰€å¾—çš„èœå•æ–¹å¼ä¹ 惯了åŽï¼Œæ•ˆçŽ‡çœŸæ˜¯æé«˜ä¸å°‘。ä¸è¿‡vistaçš„åœ°å€æ å’ŒçŠ¶æ€æ 我是实在ä¸å–œæ¬¢ã€‚
嘿嘿,Vistaçš„åœ°å€æ æˆ‘è¿˜æ˜¯æŒºå–œæ¬¢çš„ï¼Œå°¤å…¶æ˜¯åœ°å€æ 按钮。但Vistaçš„åœ°å€æ 按钮å˜åœ¨ä¸€ä¸ªå¾ˆå¤§çš„问题,如果进入的文件夹åç§°æ¯”è¾ƒé•¿ï¼Œå¯¹åº”çš„åœ°å€æ 按钮为了显示完整åç§°ï¼Œä¹Ÿä¼šå¾ˆé•¿ï¼Œå¯¼è‡´å…¶ä»–å±‚çº§çš„æŒ‰é’®æ— æ³•æ˜¾ç¤ºã€‚è¿™ä¸ªé—®é¢˜åœ¨Windows 7ä¸å·²ç»è§£å†³äº†