Hallo,
gibt es eine Möglichkeit, die Zeilenanzahl in mehreren Word2000-Dateien zu zählen (ohne jede einzelne zu öffnen und dann mit dem Taschenrechner alles zu addieren).
Danke!
hallo
kommt drauf an, was du meinst: ein makro kann automatisiert mehrere dokumente öffnen, die statistiken auslesen und diese aufaddieren. und danach natürlich die dokumente wieder schließen.
ohne das dokument im word zu öffnen, wird es nicht gehen - ist ja auch klar - nur word kann berechnen, wie der text anhand der seiteneinstellungen umgebrochen werden muss und wieviele zeilen daher das dokument hat.
ich nehme aber an, dass du lediglich wiessen wolltest, ob man das zählen der zeilen automatisieren kann oder nicht - das geht auf jeden fall.
das makro muss halt nur jemand schreiben 
fix fertig wirds da nichts geben, da du relativ spezielle anforderungen hast.
lg
erwin
Danke! Genauso war es gemeint.
Wer schreibt mir denn mal so ein Makro?
Der Nick
Danke! Genauso war es gemeint.
Wer schreibt mir denn mal so ein Makro?
Der Nick
Hallo Nick,
probiere dies mal:
Option Explicit
'
Sub tt()
Dim dateisuche, i, Zei As Long
'MsgBox ActiveDocument.BuiltInDocumentProperties("Number of Lines")
Set dateisuche = Application.FileSearch
With dateisuche
.LookIn = "C:\test"
.SearchSubFolders = True
.FileType = msoFileTypeWordDocuments
If .Execute() \> 0 Then
For i = 1 To .FoundFiles.Count
Documents.Open .FoundFiles(i)
Zei = Zei + ActiveDocument.BuiltInDocumentProperties("Number of Lines")
ActiveDocument.Close savechanges:=False
Next i
MsgBox "Zeielenanzahl ist " & Zei
Else
MsgBox "Es wurden keine Dateien gefunden."
End If
End With
End Sub
Gruuß
Reinhard