- Mitglied seit
- 14 Jun 2009
- Beiträge
- 908
- Punkte für Reaktionen
- 0
- Punkte
- 16
Hallo,
um das Design meiner Webseite zu verbessern bzw erträglich zu machen,
habe ich in Word einige Makros aufgezeichnet und modifiziert.
Leider hat diese Art von Makro nur einmal funktioniert
Public Sub Makro10000()
Dim confdat(30) As String, i As Integer
confdat(1) = "conf10000.txt"
confdat(2) = "conf20000.txt"
confdat(3) = "conf22000.txt"
For i = 1 To 3
ChangeFileOpenDirectory _
"C:\Dokumente und Einstellungen\Straßer\Eigene Dateien\web03112010\conf\"
Documents.Open FileName:=confdat(i), ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=True, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
Next i
End Sub
Ziel ist es die Dateien automatisch zu öffnen , bearbeiten und zu speichern
Muster
http://resool.com/helpconf/conf22610.html
Brauche nur Hilfe beim Öffnene.
Vielen Dank für die Hilfe
Gruß Resool
um das Design meiner Webseite zu verbessern bzw erträglich zu machen,
habe ich in Word einige Makros aufgezeichnet und modifiziert.
Leider hat diese Art von Makro nur einmal funktioniert
Public Sub Makro10000()
Dim confdat(30) As String, i As Integer
confdat(1) = "conf10000.txt"
confdat(2) = "conf20000.txt"
confdat(3) = "conf22000.txt"
For i = 1 To 3
ChangeFileOpenDirectory _
"C:\Dokumente und Einstellungen\Straßer\Eigene Dateien\web03112010\conf\"
Documents.Open FileName:=confdat(i), ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=True, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
Next i
End Sub
Ziel ist es die Dateien automatisch zu öffnen , bearbeiten und zu speichern
Muster
http://resool.com/helpconf/conf22610.html
Brauche nur Hilfe beim Öffnene.
Vielen Dank für die Hilfe
Gruß Resool