Hallo,
ich habe das folgende Makro aus MS Word und würde das gerne auch unter OO
nutzen.
Leider habe ich die geänderten Befehle nirgends gefunden
Hier das Makro
Sub UKdruck()
'
' UKDruck Makro
'
' Das Makro sollte jetzt in den jeweiligen Serienbrief eingebunden werden
' und am besten über eine Schaltfläche aufrufbar sein, damit die Steuer-
' daten beliebig gewechselt werden können
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
Danke für die Hilfe
THOMAS
<http://www.team-thomas.org> www.team-thomas.org
Vertraulichkeitshinweis:
Diese Nachricht ist nur für den vorgesehenen Empfänger bestimmt. Sollten Sie
nicht der vorgesehene Empfänger dieser E-Mail und ihres Inhalts sein oder
diese E-Mail irrtümlich erhalten haben, bitten wir Sie, den Absender
unverzüglich darüber zu informieren und diese Nachricht und all ihre Anhänge
vollständig von Ihrem Computer zu löschen. Jede Form der unbefugten Nutzung,
Veröffentlichung, des Kopierens oder der Offenlegung des Inhalts dieser
E-Mail ist nicht gestattet.
Bitte denken Sie über Ihre Verantwortung gegenüber der Umwelt nach, bevor
Sie diese E-Mail ausdrucken.
Confidentiality Notice:
This message is intended for the addressee only. If you are not the intended
recipient of this e-mail message and its content or have received this
e-mail in error, please notify the sender immediately and delete this
message and all its attachments. Any form of unauthorized use, publication,
copying or disclosure of the content of this e-mail is prohibited.
Please consider your environmental responsibility before printing this mail.
