500 Wordfiles die jeweilige Anzahl an Wörtern ermitteln

Const ForReading = 1


Set objFSO = CreateObject(“Scripting.FileSystemObject”)

Set objFile = objFSO.OpenTextFile(“c:\scripts\test.txt”, ForReading)

strText = objFile.ReadAll

objFile.Close

arrWords = Split(strText, ” “)

Wscript.Echo Ubound(arrWords) + 1

on run {input, parameters}	
    tell application "Microsoft Word"  
	    repeat with i in input
		    open i with readonly
		    set wordCount to (compute statistics active document statistic (statistic words))
		    tell active document to close saving no
		    tell application "Finder"  
			    set fullname to (name of file i)
			    set basename to text 1 thru ((offset of "." in fullname) - 1) of fullname  
			    set extension to name extension of file i
			    set name of file i to ((basename & "_" & wordCount as string) & "." & extension)  
		    end tell
	    end repeat
	    display dialog "Verarbeitung abgeschlossen." with icon note with title "Batch-Word fertig."  
    end tell
    return input
end run

on run {input, parameters}
  set totalCount to 0
  tell application "Microsoft Word"  
    repeat with i in input
      open i with readonly
      set wordCount to (compute statistics active document statistic (statistic words))
      set totalCount to (totalCount + wordCount)
      tell active document to close saving no
      tell application "Finder"  
        set fullname to (name of file i)
        set basename to text 1 thru ((offset of "." in fullname) - 1) of fullname  
        set extension to name extension of file i
        set name of file i to ((basename & "_" & wordCount as string) & "." & extension)  
      end tell
    end repeat
    display dialog ("Verarbeitung abgeschlossen. Gesamtanzahl an Wörtern in allen verarbeiteten Dateien: " & totalCount as string) with icon note with title "Batch-Word fertig."  
  end tell
  return totalCount
end run