Office: (Office 2010) Word-Instanzen sauber beenden

ble · 25. August 2019

Hallo,

so scheint es ohne Weise zu laufen (man aber aber die Klasse von Haklesoft, vergleich #9).
Code:

Option Compare Database
Option Explicit

Private Const strDatenQuelle As String = "O:PraktserieDatenprakt.xlsx"

Private Const strWOrdvorlage As String = "O:Praktseriewunz.docx"

Sub Serienb()

Dim myWord As New clsWord
Dim WinWord As Object
Dim WinDoc As Object

Dim Dateiname As String
Dim docSerienbrief As Object
Dim sFile As String, strCon As String
Dim StrFolder As String
Dim strName As String
Dim i As Long

With WinDoc
sFile = strWOrdvorlage

Set WinWord = myWord.GetWord
With WinDoc
Set WinDoc = WinWord.Documents.Open(sFile)

With WinDoc.MailMerge
'Datenquelle öffnen
.OpenDataSource Name:=strDatenQuelle, _
Connection:="Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & strDatenQuelle & ";" _
& "Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";" _
& "Jet OLEDB:Engine ", _
SQLStatement:="SELECT * FROM `Tabelle1$`"

.Destination = 0
.SuppressBlankLines = True

Const path As String = "O:Praktserie" '''Pfad anpassen

On Error GoTo 0

Dim LetzterRec As Long
WinDoc.MailMerge.DataSource.ActiveRecord = -5
LetzterRec = WinDoc.MailMerge.DataSource.ActiveRecord

WinDoc.MailMerge.DataSource.ActiveRecord = -6

With WinDoc.MailMerge
.DataSource.ActiveRecord = -6
Do
If .DataSource.ActiveRecord > 0 Then
.Destination = 0
.SuppressBlankLines = True

With .DataSource

.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord

Dateiname = path & _
.DataFields("Zuname").Value & ", " & _
.DataFields("Vorname").Value & ".docx" 'Dateiname = Name, Vorname
End With
.Execute Pause:=False

WinDoc.SaveAs FileName:=Dateiname 'Speichern unter Dateiname

End If

If .DataSource.ActiveRecord < LetzterRec Then
.DataSource.ActiveRecord = -2
Else
WinDoc.Close False

Exit Do
End If
Loop

End With
End With
End With
MsgBox ("Erledigt")

'WinWord.Quit 0 nicht verwenden
End With
Set docSerienbrief = Nothing
Set WinWord = Nothing
Set WinDoc = Nothing

End Sub

Private Sub Befehl0_Click()
Serienb
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ebs17 · 25. August 2019

Code:

With WinDoc
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit gehst Du etwas inflationär und unlogisch um.

ble · 26. August 2019

Da habe ich etwes weitergebastelt
Code:

Option Compare Database
Option Explicit

Private Const strDatenQuelle As String = "O:PraktserieDatenprakt.xlsx"

Private Const strWOrdvorlage As String = "O:Praktseriewunz.docx"

Sub Serienb()
On Error GoTo ERR

Dim myWord As New clsWord
Dim WinWord As Object
Dim WinDoc As Object
Dim empf As String
Dim Dateiname As String
Dim docSerienbrief As Object
Dim sFile As String, strCon As String
Dim StrFolder As String
Dim strName As String
Dim i As Long
Dim emailTo As String
Dim emailSubject As String
Dim emailText As String
Dim M As String
Dim N As String

Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim outlookStarted As Boolean
With WinDoc
sFile = strWOrdvorlage

Set WinWord = myWord.GetWord
With WinDoc
Set WinDoc = WinWord.Documents.Open(sFile)

With WinDoc.MailMerge
'Datenquelle öffnen
.OpenDataSource Name:=strDatenQuelle, _
Connection:="Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & strDatenQuelle & ";" _
& "Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";" _
& "Jet OLEDB:Engine ", _
SQLStatement:="SELECT * FROM `Tabelle1$`"

.Destination = 0
.SuppressBlankLines = True

Const path As String = "O:Praktserie" '''Pfad anpassen

On Error GoTo 0

Dim LetzterRec As Long
WinDoc.MailMerge.DataSource.ActiveRecord = -5
LetzterRec = WinDoc.MailMerge.DataSource.ActiveRecord

WinDoc.MailMerge.DataSource.ActiveRecord = -6

.DataSource.ActiveRecord = -6
Do
If .DataSource.ActiveRecord > 0 Then
.Destination = 0
.SuppressBlankLines = True

With .DataSource

.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord

Dateiname = path & _
.DataFields("Zuname").Value & ", " & _
.DataFields("Vorname").Value & ".docx"
'Dateiname = Name, Vorname
empf = .DataFields("EMail").Value
emailText = Trim("Hallo " & .DataFields("Vorname").Value) & "!" & vbCrLf
End With

WinDoc.SaveAs FileName:=Dateiname 'Speichern unter Dateiname

.Execute Pause:=False
End If

On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If OutApp Is Nothing Then
Set OutApp = CreateObject("Outlook.Application")
outlookStarted = True
End If
emailTo = empf

Set OutMail = OutApp.CreateItem(olMailItem)
OutMail.To = emailTo
emailSubject = N
OutMail.Subject = emailSubject

M = Nz(Me.Text1)
N = Nz(Me.Text3)
With OutMail.GetInspector

OutMail.Body = M & OutMail.Body

End With
Dim strfilename As String
strfilename = Dateiname

OutMail.Attachments.Add strfilename
OutMail.Display 'oder OutMail.Display

Set OutMail = Nothing
Set OutApp = Nothing

If .DataSource.ActiveRecord < LetzterRec Then
.DataSource.ActiveRecord = -2
Else
WinDoc.Close savechanges:=wdDoNotSaveChanges

Exit Do
End If
Loop

End With
End With
MsgBox ("Erledigt")

'WinWord.Quit
'WinWord.Quit 0 nicht verwenden
End With
Set docSerienbrief = Nothing
Set WinWord = Nothing
Set WinDoc = Nothing
ERR:
If ERR.Number = 94 Then
MsgBox "Bitte füllen Sie die Felder aus!"
Exit Sub
End If
End Sub

Private Sub Befehl0_Click()
Serienb
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es funktioniert soweit ganz gut.
Der einzige Schöheitsfehler:
es kann eine Abfrage, ob Serienbrief1, Serienbrief2 usw. gespreichert werden sollen.
Bei kleinen Datenquelle zu vernachlässigen, bei größeren wohl ein Problem.

ble · 27. August 2019

die Abfrage, ob Serienbrief1, Serienbrief2 usw. gespreichert werden sollen, stört.

Wie kriege ich die weg?

Habe schon ein paar mal gewürfelt, aber nie eine sechs bekommen.

ebs17 · 27. August 2019

Beim Close des Dokumentes kann man ein Nichtspeichern angeben. Das verwendest Du bereits.

Desweiteren werden recht schnell Vorlage und Serienbrief (Zuweisung Datenquelle) zwei verschiedene Objekte sein, und die Rückfrage betrifft dann das unberücksichtigte Dokument.
Prüfe also an Objektvariablen und ActiveDocument, was Du gerade vorliegen hast.

ble · 28. August 2019

"Gott gebe mir die Gelassenheit, Dinge hinzunehmen, die ich nicht ändern kann, den Mut, Dinge zu ändern, die ich ändern kann, und die Weisheit, das eine vom anderen zu unterscheiden."

Habe mir für meine bescheidenen Kenntnisse zu viel zugemutet.

Es sind etliche (= Anzahl der Datensätze in der Quelle) und die Vorlage geöffnet,
die nicht nicht schließen kann, geöffnet.

CatboyJones · 28. August 2019

Gehe halt mal per Einzelschritt durch den Code, dann findest du vmtl. die Stelle,
an der die Abfrage kommt.

ebs17 · 28. August 2019

Code:

With WinDoc
Set WinDoc = WinWord.Documents.Open(sFile)
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Verwendung vor Initialisierung? Ist das gezielt oder Experimentalprogrammierung?

Abfrage, ob Serienbrief1, Serienbrief2 usw. gespreichert werden sollen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da Deine Vorlage nicht SerienbriefX heißt, hat man hier doch einen deutlichen Hinweis darauf, dass Vorlagedokument und Serienbriefdokument hier bereits getrennte Wege gehen und somit auch jeweils für sich behandelt werden müssen, also auch beim Schließen.

Vermutlich wird es hilfreich sein, zwei Objektvariablen für Dokumente zu führen:

Code:

Set oDoc1 = WinWord.Documents.Add(sFile)

With oDoc1.MailMerge ' spätestens nach dem Execute
sTest = WinWord.ActiveDocument.FullName
If sTest sFile Then ' handele überlegt
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anmerkung: In der Schleife über die Datensätze jedes Mal Outlook neu zu öffnen und zu schließen ist recht ungeschickt. Ich würde mal fragen, wie Du eine ganze Gesellschaft durch eine einzelne Tür bekommst und wie sich dann das Feedback dazu anhört.

ble · 28. August 2019

Experimentalprogrammierung!

Ich gestehe.

haklesoft · 29. August 2019

Ein möglicher zur Erstellung von Serienbriefen mit Word geht bei mir so:
ich erstelle eine Klasseninstanz und hole mir damit ein Word-Objekt.
Damit lade (nicht öffne!) ich eine echte Wordvorlage (.dotx oder .dotm).
Die erstellt automatisch ein neues unbenanntes Dokument - das ist dann mein Seriendruckhauptdokument.
Normalerweise lasse ich mir dann alle Serienbriefe in einem Rutsch ausgeben.
Wenn aber mal ausnahmsweise einzelne Serienbriefe gespeichert werden sollen gebe ich per Schleife immer nur einen Serienbrief aus, speichere und lösche ihn, bevor es zum nächsten Datensatz geht.
Erst zum Schluss wird auch das Seriendruckhauptdokument (ohne zu speichern) geschlossen.
Damit ist dann auch die Vorlage nicht mehr da und das Word-Objekt bzw. die Klasse können terminiert werden.

ble · 29. August 2019

Bisher habe ich keinen Pnne erlebt mit
Code:

Option Compare Database
Option Explicit

Private Const strDatenQuelle As String = "O:PraktserieDatenprakt.xlsx"

Private Const strWOrdvorlage As String = "O:Praktseriewunz.docx"

Sub Serienb()

Dim myWord As New clsWord
Dim WinWord As Object
Dim WinDoc As Object
Dim Empf As String
Dim Dateiname As String
'Dim docSerienbrief As Object
Dim sFile As String, strCon As String
Dim StrFolder As String
Dim strName As String
Dim I As Long
Dim emailTo As String
Dim emailSubject As String
Dim emailText As String
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim outlookStarted As Boolean
Dim Anredung As String
' Outlook
Set OutApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If OutApp Is Nothing Then
Set OutApp = CreateObject("Outlook.Application")
outlookStarted = True
End If
emailTo = Empf

emailText = Nz(Me.emailmitt)
emailSubject = Nz(Me.betreff)
Set OutMail = OutApp.CreateItem(olMailItem)
'Serienbrief
With WinDoc
sFile = strWOrdvorlage

Set WinWord = myWord.GetWord
With WinDoc
Set WinDoc = WinWord.Documents.Open(sFile)

With WinDoc.MailMerge
'Datenquelle öffnen
.OpenDataSource Name:=strDatenQuelle, _
Connection:="Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & strDatenQuelle & ";" _
& "Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";" _
& "Jet OLEDB:Engine ", _
SQLStatement:="SELECT * FROM `Tabelle1$`"

.Destination = 0
.SuppressBlankLines = True

Const path As String = "O:Praktserie" '''Pfad anpassen

On Error GoTo 0

Dim LetzterRec As Long
WinDoc.MailMerge.DataSource.ActiveRecord = -5
LetzterRec = WinDoc.MailMerge.DataSource.ActiveRecord

WinDoc.MailMerge.DataSource.ActiveRecord = -6

.DataSource.ActiveRecord = -6
Do
If .DataSource.ActiveRecord > 0 Then
.Destination = 0
.SuppressBlankLines = True

With .DataSource

.FirstRecord = .ActiveRecord
.LastRecord = .ActiveRecord

Dateiname = path & _
.DataFields("Zuname").Value & ", " & _
.DataFields("Vorname").Value & ".docx"
'Dateiname = Name, Vorname
Empf = .DataFields("EMail").Value
Anredung = Trim("Hallo " & .DataFields("Vorname").Value) & "!" & vbCrLf
End With
.Execute Pause:=False

Dim sTest As Object
' MsgBox WinWord.ActiveDocument.FullName
WinWord.ActiveDocument.Close 0

WinDoc.SaveAs FileName:=Dateiname 'Speichern unter Dateiname

End If

On Error Resume Next
Set OutApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If OutApp Is Nothing Then
Set OutApp = CreateObject("Outlook.Application")
outlookStarted = True
End If
emailTo = Empf

emailText = Nz(Me.emailmitt)
emailSubject = Nz(Me.betreff)
Set OutMail = OutApp.CreateItem(olMailItem)
Dim signature As String
With OutMail
.Display
End With
signature = OutMail.Body
With OutMail
OutMail.To = emailTo
OutMail.Subject = emailSubject
OutMail.Body = Anredung & emailText & signature
Dim strfilename As String
strfilename = Dateiname

OutMail.Attachments.Add strfilename
OutMail.Display 'oder OutMail.Send
End With
Set OutMail = Nothing
Set OutApp = Nothing

If .DataSource.ActiveRecord < LetzterRec Then
.DataSource.ActiveRecord = -2
Else
WinDoc.Close False

Exit Do
End If
Loop

End With
End With
MsgBox ("Erledigt")
'WinDoc.Close 0
'WinWord.Quit 0 nicht verwenden
End With
'Set docSerienbrief = Nothing
Set WinWord = Nothing
Set WinDoc = Nothing

End Sub

Private Sub Emailversand_Click()
Serienb
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Man muß freilich die Klasse, vgl. # 9 verwenden.

Herzlichen Dank an alle Helfer, besonders an Eberhard.

Eine Frage hätte ich noch:

Kann man per vba in einem Formular ein Reset durchführen, ich meine damit den Zustand simulieren -> beenden--> wieder öffnen?

ble · 9. September 2019

Ginge so:
Code:

Private Sub Detailbereich_Click()
DoCmd.OpenForm "Hilfe", acNormal
DoCmd.Close acForm, Me.Name
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ins Hilfsformular
Code:

Private Sub Form_Load()
Me.TimerInterval = 100
End Sub

Private Sub Form_Timer()

DoCmd.OpenForm "Start", acNormal

DoCmd.Close acForm, Me.Name

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sinnvoll mag so ein schnelles Schließen für einen Startbildschirm sein, wobei man dann das Intervall vergrößern sollte.

Nochmals danke an alle Tippgeber!

Office: (Office 2010) Word-Instanzen sauber beenden

Word-Instanzen sauber beenden

Word-Instanzen sauber beenden

Word-Instanzen sauber beenden

Word-Instanzen sauber beenden

Word-Instanzen sauber beenden - Similar Threads - Word Instanzen sauber

Uni Code im Word funktioniert nicht mehr!

Verschwinden von Aufzählungszeichen und Nummerierungen

Office 2024: Word öffnet nicht

Wasserzeichen vor Bildern

Handling mehrerer Word-Instanzen

Alle offenen Word instanzen schließen

WORD: zwei Instanzen (Prozesse) parallel laufen lassen