Office: (Office 2003) Word bleibt nach dem öffnen im Hintergrund

RFausH · 8. Dezember 2011

Hallo Forum-Gemeinde!

Nachdem über ein VBA-Code Word geöffnet wird,
bleibt das Worddokument im Hintergrund. Wie ist es möglich Word
nach dem öffnen in den Vordergrund zu holen ?
Ist .Visible = True und .Activate evtl. falsch platziert ?

Code:

Public Sub f_SBrief(docName As String, srcName As String, tabName As String, _
Optional sbType As Byte = 1)

Dim conString As String, wdwName As String
Dim Word As Object
Dim docTemplate As String
Dim xlsFileName As String, xlsTabName As String
Dim DbName As String

DbName = CurrentDb.Name()
docTemplate = docName
xlsFileName = srcName
xlsTabName = tabName

' Verbindungs-Parameter
conString = "DSN=Excel-Dateien;DBQ=" & xlsFileName & ";DriverId=22;MaxBufferSize=2048;PageTimeout=5;"

On Error GoTo Word_Neu
'wenn Word bereits geöffnet ist ...
'Set Word = GetObject(, "Word.Application")
' neue Word-Instanz öffnen
Set Word = CreateObject("Word.Application")

' Word-Dokument öffnen
Select Case sbType
Case 3
' Öffnen des Dokuments / der Vorlage
Word.Documents.Open FileName:=docTemplate
Case Else
' Öffnen neues Dokument aus Vorlage
Word.Documents.Add Template:=docTemplate
End Select
' Fensternamen für späteren Bezug merken
wdwName = Word.ActiveDocument.Name

verbinden:
' mit Datenquelle verbinden...
Word.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
Word.ActiveDocument.MailMerge.OpenDataSource Name:=xlsFileName, _
ConfirmConversions:=False, _
ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
Connection:=conString, _
SQLStatement:="SELECT * FROM [" & xlsTabName & "]", SQLStatement1:=""
Word.ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
Word.ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

' ... Serienbrief erstellen?
If sbType = 1 Then
With Word.ActiveDocument.MailMerge
.Destination = wdSendToNewDocument ' alt.: wdSendToPrinter
.Execute
End With
Else
End If

With Word
' ... SB-Dokument schließen?
If sbType = 1 Then
'- 23.05.2007: Änderung wg. Kompatibilität zu Office 2007
' Zugriff über Name nicht nötig, da immer neue Instanz!
' .Windows(wdwName).Activate
.Windows(1).Activate
.ActiveWindow.Close savechanges:=wdDoNotSaveChanges
.ActiveDocument.Protect Password:="", NoReset:=False, Type:=wdAllowOnlyFormFields
.ActiveWindow.ActivePane.View.Zoom.Percentage = 75
End If
.Visible = True
.WindowState = wdWindowStateMaximize
.ActiveWindow.View.Type = wdPageView
.Activate
End With
exit_proc:
On Error Resume Next
SysCmd acSysCmdClearStatus
Set Word = Nothing
Exit Sub
Word_Neu:
If Err.Number = 429 Then
'wenn Word noch nicht geöffnet ist ...
' ... kommt nicht vor, da immer neue Instanz!
Set Word = CreateObject("Word.Application")
Resume Next
ElseIf Err.Number = 5151 Then
MsgBox "Fehler beim Öffnen des Serienbriefs!" & _
"Das Dokument oder die Vorlage " & vbCrLf & _
"'" & docName & "'" & vbCrLf & _
"konnte nicht geöffnet werden." & _
"Bitte überprüfen Sie den Zugriffspfad zum Vorlagenverzeichnis."
'"anwendungsinterne Systemkonfiguration (Extras, Konfiguration anpassen) " & _
'"oder verständigen Sie Ihren Systembetreuer.@", vbExclamation
Resume exit_proc
Else
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Serienbriefanforderung"
Resume exit_proc
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Thomas Möller · 10. Dezember 2011

Hallo Rainer,

schaul mal, ob es hilft, wenn Du folgende Zeile einfügst:
Code:

AppActivate "Microsoft Word"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

HTH

RFausH · 10. Dezember 2011

Danke Thomas,

genau das war es!

Das gleiche Problem habe ich aber auch wenn ich eine Email über Outlook
versende.
Bei AppActivate "Microsoft Outlook" bekomme ich die Fehlermeldung:
"Fehler #5, Ungültiger Prozeduraufruf oder ungültiges Argument"

Hast Du eine Idee ?

Thomas Möller · 10. Dezember 2011

Hallo Reiner,

Bei AppActivate "Microsoft Outlook" bekomme ich die Fehlermeldung:
"Fehler #5, Ungültiger Prozeduraufruf oder ungültiges Argument"
Hast Du eine Idee ?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dieser Fehler erscheint, wenn es kein Fenster gibt, dass mit dem angegebenen Text beginnt. Bei Outlook ist es so, dass der Text "Microsoft Outlook" am Ende steht.

CU

RFausH · 10. Dezember 2011

Hallo Thomas,

wie darf ich das verstehen "das der Text am Ende steht" ?
Kannst Du mir eine kleine Hilfestellung geben.

Thomas Möller · 7. Januar 2021

Hallo Reiner,

von RFausH

wie darf ich das verstehen "das der Text am Ende steht" ?
Kannst Du mir eine kleine Hilfestellung geben.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

öffne mal Outlook und schau Dir dann die Titelleiste an. *wink.gif*

CU

RFausH · 11. Dezember 2011

Hallo Thomas,

habe jetzt verstanden.*Smilie
Das neue Nachrichtenfenster welches von Outlook erzeugt wird heißt "Unbenannt - Nachricht".
Mit diesem Syntax klappt es dann auch:
AppActivate "Unbenannt - Nachricht"

Danke!

Office: (Office 2003) Word bleibt nach dem öffnen im Hintergrund

Word bleibt nach dem öffnen im Hintergrund

Word bleibt nach dem öffnen im Hintergrund

Word bleibt nach dem öffnen im Hintergrund

Word bleibt nach dem öffnen im Hintergrund - Similar Threads - Word bleibt öffnen

Word serianbrief

Word abgestürzt, Dokument auf Stand von vor 2 Monaten

Word spielt Hüpfburg!

Buchsatz mit Word: untere Zeile der Seiten immer auf der gleichen Höhe

Nerviges Problem: Word bleibt andauernd (kurz) hängen

Serienbrief mit Excel als Datenquelle - Word bleibt hängen

Word (alt) bleibt hängen beim PDF erzeugen