Hallo zusammen !
Ich habe ein Makro für Word :
Öffnet alle doc´s,
zählt die Seiten und
verschiebt das doc in den jeweiligen Unterordner (1,2,3 ...)
Da unser Kunde wohl aus Lizenzgründen auf OpenOffice umsteigt,
und ich die Dokumente nicht mehr als Word bekomme,
bräuchte ich nun diese Funktion für den writer.
Hier der code :
cDir = Dir(sPath & "*.doc")
nAnzahl = 0
Do While cDir <> ""
nAnzahl = nAnzahl + 1
Documents.Open (sPath & cDir)
cDatei = ActiveDocument.Name
Dim i As Integer
objPage = ActiveDocument. _
ActiveWindow.Panes(1).Pages.Count
For i = 1 To objPage
Next i
i = i - 1
dPath = "x:\Bearbeiten\neu" & i & "\"
cDatei = Left(cDatei, Len(cDatei) - 4) & ".doc"
' Datei in das jeweilige Verzeichnis kopieren
ActiveDocument.SaveAs FileName:=dPath & cDatei
ActiveWindow.Close
' nächste Datei lesen
cDir = Dir
Loop
Wer weiß Rat ?
