19.09.2017, 13:20
@snb Super vielen Dank, mein Problem ist nun Endgültig gelöst 
Ich danke allen für ihre Hilfe
Ich danke allen für ihre Hilfe19.09.2017, 13:22
Hallo snb
Müsste dann der index 0 nicht wieder auf 1 gestellt werden am Ende der Prozedur (um an der Maschine nichts dauerhaft zu verändern)?
Gruss
Müsste dann der index 0 nicht wieder auf 1 gestellt werden am Ende der Prozedur (um an der Maschine nichts dauerhaft zu verändern)?
Gruss
19.09.2017, 21:03
Ich kenne niemand die begeistert ist von der SQL-Meldung.
Und es macht Word nicht besser geschützt.
Diese Registerschlüssel macht Word >2003 nur mehr ähnlich wie Word 2000.
Und es macht Word nicht besser geschützt.
Diese Registerschlüssel macht Word >2003 nur mehr ähnlich wie Word 2000.
20.09.2017, 08:14
Hallo
Ich arbeite mit Office 2013.
Etwas ist schon eigenartig. Die Meldung kriege ich nicht in einer Arbeit, die ich vor 2 Jahren gemacht habe. Hier der Code, vielleicht kann mir einer sagen, was ich speziell anders und unbewusst richtig gemacht habe.
Code in einem VBA-Modul
Und die mit .Run "Filter_einstellen", strFilter, sngJahr aufgerufene Prozedur in der Word-Vorlage:
Hängt das etwa zusammen mit early bindig / late binding oder gibt es doch irgendwo einen versteckten Schalte (den ich trotz intensiver Suche nicht gefunden habe)?
Gruss
Ich arbeite mit Office 2013.
Etwas ist schon eigenartig. Die Meldung kriege ich nicht in einer Arbeit, die ich vor 2 Jahren gemacht habe. Hier der Code, vielleicht kann mir einer sagen, was ich speziell anders und unbewusst richtig gemacht habe.
Code in einem VBA-Modul
Code:
Sub Druck_Vorlage_öffnen() 'Annahme: es ist immer eine Word - Vorlage
'early binding: erfordert einen Verweis auf Microsoft Word 15.0 (14) Object Library
'Dim WordApp As New Word.Application
'On Error GoTo 0
'Application.DisplayAlerts = True
'strPfad = VBA.Left(ThisWorkbook.Path, VBA.InStrRev(ThisWorkbook.Path, "\", -1) - 1)
'strPfad = strPfad & "\" & "ADRESSIERVORLAGEN"
'With WordApp
' .Documents.Open(strPfad & "\" & strFokus).Application.Visible = True
' .Documents(strPfad & "\" & strFokus).Application.Activate
' .Run "Filter_einstellen", strFilter, sngJahr
'End With
'Set WordApp = Nothing
'late binding
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
On Error GoTo 0
Application.DisplayAlerts = True
strPfad = VBA.Left(ThisWorkbook.Path, VBA.InStrRev(ThisWorkbook.Path, "\", -1) - 1)
strPfad = strPfad & "\" & "ADRESSIERVORLAGEN"
With objWord
.Documents.Open(strPfad & "\" & strFokus).Application.Visible = True
.Documents(strPfad & "\" & strFokus).Application.Activate
.Run "Filter_einstellen", strFilter, sngJahr
End With
Set objWord = Nothing
End SubCode:
Sub Filter_einstellen(strFilter, sngJahr)
Dim strPfad As String
'Stop
strPfad = VBA.Left(ThisDocument.Path, VBA.InStrRev(ThisDocument.Path, "\", -1) - 1)
strPfad = strPfad & Application.PathSeparator & "MITGLIEDERLISTE\Mitgliederliste " & sngJahr & ".xls"
With ActiveDocument.MailMerge
.OpenDataSource Name:=strPfad _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & strPfad & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:" _
, SQLStatement:="SELECT * FROM `Adressenliste$`", SQLStatement1:=strFilter, _
OpenExclusive:=True, SubType:=wdMergeSubTypeAccess
.ViewMailMergeFieldCodes = wdToggle 'True
End With
End SubGruss
20.09.2017, 08:35
Zitat:Die Meldung kriege ich nicht in einer Arbeit, die ich vor 2 Jahren gemacht habe.Weil du jedesmal eine neue SQL-Abfrage erstellst.
Wenn die SQL-Abfrage jedoch in der Datei gespeichert ist, wird beim öffnen der Datei die Meldung immer gezeigt.
20.09.2017, 08:42
Danke! Ganz einfach Glück gehabt und am richtigen Ort abgeschrieben.
Gruss
Gruss
21.09.2017, 09:15
Halli Hallo, leider kam es beim Testen meiner Datei erneut zu Fehlern.
Zum Testen hab ich euch meine Datei in den Anhang gepackt. Ihr müsst nur unter Userform "UF_Praktika" den Dateipfad ändern, wo ihr den Serienbrief ablegt und später speichert.
Nun zum Problem. Es kommt zu einem Fehler bei folgendem Szenario.
1. Ich rufe mir einen bereit erstellten Praktikanten auf und erstelle für diesen einen Zwischenbescheid.
2.Wenn ich einen neuen Praktikanten anlege und mir diesen dann Aufrufe, so kann ich für diesen keinen Serienbrief erstellen. Hier kommt es zu einer Fehlermeldung. Hintergrund ist anscheinend, dass Word nicht richtig geschlossen wird, denn wenn ich im task-Manager unter Prozesse schaue, wird Word immer noch ausgeführt. Ich habe hier nun versucht Word nach Ausführung komplett zu schließen über:
Das funktioniert zwar beim ersten mal ausführen, aber leider nicht mehr beim 2. mal.
Habt ihr eine Lösung für mich, wie ich nach aufrufen des Serienbriefes Word komplett schließen kann?
Zum Testen hab ich euch meine Datei in den Anhang gepackt. Ihr müsst nur unter Userform "UF_Praktika" den Dateipfad ändern, wo ihr den Serienbrief ablegt und später speichert.
Nun zum Problem. Es kommt zu einem Fehler bei folgendem Szenario.
1. Ich rufe mir einen bereit erstellten Praktikanten auf und erstelle für diesen einen Zwischenbescheid.
2.Wenn ich einen neuen Praktikanten anlege und mir diesen dann Aufrufe, so kann ich für diesen keinen Serienbrief erstellen. Hier kommt es zu einer Fehlermeldung. Hintergrund ist anscheinend, dass Word nicht richtig geschlossen wird, denn wenn ich im task-Manager unter Prozesse schaue, wird Word immer noch ausgeführt. Ich habe hier nun versucht Word nach Ausführung komplett zu schließen über:
Code:
Word.Application.QuitHabt ihr eine Lösung für mich, wie ich nach aufrufen des Serienbriefes Word komplett schließen kann?
21.09.2017, 10:10
Hallo Eichi
Ich habe da bei einem, der offenbar dasselbe Problem wie Du hast gefunden. Ich habe es nicht getestet:
appWord.Documents.Close
appWord.Quit
Set doc = Nothing
Set wdApp = Nothing
Ich habe da bei einem, der offenbar dasselbe Problem wie Du hast gefunden. Ich habe es nicht getestet:
appWord.Documents.Close
appWord.Quit
Set doc = Nothing
Set wdApp = Nothing
21.09.2017, 10:36
Das ist mein Code für den Serienbrief
So beim ersten mal ausführen, klappt der Code wunderbar. Mein Serienbrief wird gespeichert und Word geschlossen.
Will ich nun aber einen anderen Serienbrief erstellen oder den selben nochmal erstellen kommt folgende Fehlermeldung:
Laufzeitfehler 462
Der Remote-Server-Computer existiert nicht oder ist nicht verfügbar.
Klicke ich auf debuggen markiert er mir "Word.Application.Quit"
Code:
Sub Serienbrief_erstellen(ByVal Zeile As Double, ByVal Vorname As String, ByVal Nachname As String, ByVal Pfad_Serienbrief As String, ByVal SpeicherPfad As String, ByVal Dateiname As String)
Application.DisplayAlerts = False
CreateObject("Wscript.shell").regwrite "HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Word\Options\SQLSecurityCheck", 0, "REG_DWORD"
With GetObject(Pfad_Serienbrief)
With .MailMerge
.Destination = 0
.SuppressBlankLines = True
With .DataSource
.FirstRecord = Zeile
.LastRecord = Zeile
End With
' .OpenDataSource ThisWorkbook.FullName
.Execute
End With
' ChangeFileOpenDirectory SpeicherPfad
' ActiveDocument.SaveAs2 Filename:= _
' SpeicherPfad & Dateiname & ".docx", _
' FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
' AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
' EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
' :=False, SaveAsAOCELetter:=False, CompatibilityMode:=14
.Application.ActiveDocument.SaveAs2 SpeicherPfad & Dateiname & ".docx"
'.Application.ActiveDocument.Close 0
.Application.Documents.Close 0
Word.Application.Quit
End With
'Word.Application.Quit
Application.DisplayAlerts = True
End SubWill ich nun aber einen anderen Serienbrief erstellen oder den selben nochmal erstellen kommt folgende Fehlermeldung:
Laufzeitfehler 462
Der Remote-Server-Computer existiert nicht oder ist nicht verfügbar.
Klicke ich auf debuggen markiert er mir "Word.Application.Quit"
21.09.2017, 11:11
Hallo Eichi
Tut mir leid: kann keinen Fehler sehen. Tests möchte ich nicht machen, weil ich a) die Umgebung nicht habe und b) nicht in die Registriy eingreifen möchte. Wie Du weiter oben siehst, gehe ich einen andern Weg. Ich erinnere mich nicht mehr genau: aber ich glaube es war auch diese blöde Verknüpfungsmeldung die mich weiter suchen liess und schlussendlich zu dem gelungenen Resultat führte.
Tut mir leid: kann keinen Fehler sehen. Tests möchte ich nicht machen, weil ich a) die Umgebung nicht habe und b) nicht in die Registriy eingreifen möchte. Wie Du weiter oben siehst, gehe ich einen andern Weg. Ich erinnere mich nicht mehr genau: aber ich glaube es war auch diese blöde Verknüpfungsmeldung die mich weiter suchen liess und schlussendlich zu dem gelungenen Resultat führte.