title image


Smiley Re: Anwendung mit GetObject öffnen ?
Hallo Lena,Kopiere den Code über Word (2x) nach Access in ein Formularmodul. Ich starte ein Seriendruckdokument.Den überflüssigen Code kannst Du ja entfernen.'Option Compare Database'Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias _"FindWindowA" (ByVal lpClassName As String, _ ByVal lpWindowName As Long) As Long'Unter Extras - Verweise muß ein Verweis auf die Microsoft x.0 Library angehakt sein!Private Sub Befehl0_Click()Dim Mldg As StringDim WordObj As Object 'Objektvariablen deklarierenOn Error GoTo Fehler ' Bei Fehler gehe zuIf FindWindow("OpusApp", 0) = 0 Then Set WordObj = GetObject(, "word.Application") 'Objektvariablen zuweisen WordObj.Visible = True 'Word erscheint in der Taskleiste WordObj.WindowState = wdWindowStateMaximize 'Word maximieren WordObj.Documents.Open "C:\Eigene Dateien\Adressen.doc" WordObj.Activate ' Word AktivierenElse Set WordObj = GetObject(, "word.Application") 'Objektvariablen zuweisen WordObj.Activate 'Seriendruck erneuern, Die Abfrage in Access heißt bei mir Druck --> Anpassen WordObj.ActiveDocument.MailMerge.OpenDataSource Name:="C:\Eigene Dateien\Datenbank.mdb", _ ConfirmConversions:=False, ReadOnly:= _ False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:= _ "", Revert:=False, Format:=wdOpenFormatAuto, Connection:="QUERY Druck", _ SQLStatement:="SELECT * FROM [Druck]", SQLStatement1:="" WordObj.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggleEnd IfWordObj.Options.UpdateFieldsAtPrint = TrueAus:Set WordObj = Nothing 'Objektvariablenverbindung aufhebenExit SubFehler:If Err.Number = 429 Then Set WordObj = CreateObject("word.Application") Resume NextElseIf Err.Number = 4248 Then WordObj.Documents.Open "C:\Eigene Dateien\Adressen.doc"Else Mldg = "Fehler Nr.: " & Str(Err.Number) & " wurde ausgelöst von " _ & Err.Source & Chr(13) & Err.Description MsgBox Mldg, , "Fehler", Err.HelpFile, Err.HelpContextExit SubEnd If Resume AusEnd SubByeWalter

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: