Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Syntaxfehler in Winword 8.0 Makro
Frage
hallo Worduser,
in nachfolgendem Makro erhalte ich einen
Syntaxfehler im Bereich "Begin Dialog BenutzerDialog ... und End Dialog"
wer kann helfen?
was ist die Ursache?
Danke für Info
fraspa
Sub DateiAblage()
DateiAblage Makro
Makro erstellt am 08.05.01 von Franz SPATZL
Dim Pfad$(4)
Pfad$(0) = "C:\texte"
Pfad$(1) = "C:\briefe"
Pfad$(2) = "C:\privat"
Pfad$(3) = "C:\schule"
Pfad$(4) = "C:\rechnungen"
anfang:
Begin Dialog BenutzerDialog 512, 226, "Speichern als"
Text 19, 29, 76, 13, "Datei:", .Text1
Text 19, 57, 33, 13, "Pfad", .Text2
TextBox 139, 27, 180, 18, .Textfeld1
OptionGroup .Gruppenfeld1
OptionButton 140, 58, 208, 16, Pfad$(0), .Optionsfeld1
OptionButton 140, 78, 208, 16, Pfad$(1), .Optionsfeld2
OptionButton 140, 98, 208, 16, Pfad$(2), .Optionsfeld3
OptionButton 140, 118, 208, 16, Pfad$(3), .Optionsfeld4
OptionButton 140, 138, 208, 16, Pfad$(4), .Optionsfeld5
OKButton 140, 178, 88, 21
CancelButton 250, 178, 108, 21
End Dialog
Dim Dlg As BenutzerDialog
If Dialog(Dlg) Then
Flag# = Dlg.Gruppenfeld1: Datei$ = Dlg.Textfeld1
End If
If Datei$ <> "" Then
Datei$ = Pfad$(Flag#) + "\" + Datei$
a$ = Files$(Datei$ + ".doc")
If a$ = "" Then
DateiSpeichernUnter .Name = Datei$
Else
SF = MsgBox("Überschreiben?", 36)
If SF = -1 Then
DateiSpeichernUnter .Name = Datei$
Else
GoTo anfang:
End If
End If
End If
End Sub