計算頁數 統計乙個資料夾下所有word文件頁數

宣告：操作前請務必備份文件，防止意外

關鍵的**是selection.information(wdnumberofpagesindocument)，通過該屬性獲得文件的頁數。使用該屬性前，最好將游標移動到文件的末尾，防止頁數統計出錯。

sub 統計乙個資料夾下所有文件頁數()

'統計乙個資料夾下多個文件的頁數，把統計結果都列入到乙個txt檔案中
'將游標移至文件末尾，為了防止頁數統計出錯
dim mydoc as document
dim folderpath as string, filename as string
dim i as long, j as long
folderpath = "f:userdatadesktopword版"
i = 0: j = 0
filename = dir(folderpath)
do while filename <> ""
if right(filename, 4) = ".doc" then
set mydoc = documents.open(folderpath & filename) '文件賦值給mydoc
selection.endkey unit:=wdstory    '將游標移至文件末尾，為了防止頁數出錯
i = i + selection.information(wdnumberofpagesindocument)
j = j + 1
print #1, filename & "的頁數為" & selection.information(wdnumberofpagesindocument) & chr(13) & chr(10) '把檔名及其頁數寫入txt檔案中
mydoc.close false '無更改關閉
end if
filename = dir
loop
print #1, "共有" & j; "個文件" & chr(13) & chr(10) '
print #1, "所有文件總頁數為" & i & chr(13) & chr(10)
print #1, "平均頁數" & fix(i / j) & chr(13) & chr(10)
close #1
msgbox "處理完成"
end sub

找出乙個資料夾下的所有檔案

找出乙個資料夾下的所有檔案，用遞迴方法實現 給出乙個資料夾，找出資料夾下面的所有檔案 class findfile public function checkdir return true public function find file reset allfile 把陣列指標重新指向第乙個元素 ...

Matlab獲取乙個資料夾下所有檔名

matlab獲取乙個資料夾下所有檔名 filefolder fullfile d matlab bin trc diroutput dir fullfile filefolder,trc filenames 解釋 1 第一行 filefolder fullfile d matlab bin trc ...

PHP遍歷乙個資料夾下所有檔案和子資料夾的函式

主要運用了遞迴的思想和scandir 獲取子目錄函式，其它的不說了，直接上 獲取目錄中所有檔案的路徑 param dir return array function my scandir dir else return files else opendir 開啟指定目錄，接受乙個目錄的路徑及目錄名作...