Hallo zusammen,
ich habe bis jetzt in Office ein Makro genutzt, das mir einen einfachen
Zugriff auf Steuerdaten für Serienbriefdrucke ermöglicht hat.
Da jetzt ein Umsteig auf OO 3 geplant ist, habe ich versucht, das Makro nach
OO zu portieren leider erfolglos
Hier das Makro von Office
Sub UKdruck()
'
'
Dim Mldg, Titel, Voreinstellung, Wert$
Mldg = "Bitte geben Sie den Pfadnamen an, in dem die Urkundendaten
gespeichert werden. Es ist ein Defaultpfad eingestellt, der überschrieben
werden kann. Ein Backslash am Ende kann eingegeben werden. Die
Voreinstellung für den Dateityp wurde auf .txt gesetzt." ' Aufforderung
festlegen.
Titel = "Pfadangabe" ' Titel festlegen.
Voreinstellung = "D:\COSA\UKDaten" ' Voreinstellung festlegen.
' Meldung, Titel und Standardwert anzeigen.
Wert$ = InputBox(Mldg, Titel, Voreinstellung, 4000, 4000)
ChangeFileOpenDirectory Wert$
With Dialogs(wdDialogFileOpen)
Name = "*.txt"
.Display
Wert1$ = .Name
End With
ActiveDocument.MailMerge.OpenDataSource Name:= _
Wert$ + "\" + Wert1$, ConfirmConversions:=False, ReadOnly:= _
False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _
"", Revert:=False, Format:=wdOpenFormatAuto, Connection:="", SQLStatement _
:="", SQLStatement1:=""
End Sub
Ich setze OO 3 unter Win XP ein
Vielen Dank für die Hilfe
THOMAS
