ich schaffe es einfach nicht, das erstellte Word-Dokument aus Excel heraus in der Größe anzupassen.
Der Grund der Größenanpassung ist, dass, wenn der User sein Word als maximiert eingestellt hat, das neu erstellte Fenster auch maximiert ist. Dabei sind dann aber in meinem neuen Fenster alle Funktionen (Schließen, Drucken, ...) ausgegraut.
Das irritiert den User.
Ein einfaches Umstellen auf "normal" reicht, um die Funktionen wieder zu aktivieren.
Hier der Kode, den ich benutze:
' Erstellen Serienbrief
Set objWinWord = CreateObject("Word.Application")
With objWinWord
.Visible = True
Set objWinDoc = .Documents.Open(strPfadDatei)
With objWinDoc
With .MailMerge
.OpenDataSource Name:=strQuelle, LinkToSource:=True, Format:=0, SQLStatement:=" _
SELECT * FROM `Tabelle1$`"
.Destination = 0
.SuppressBlankLines = True
With .DataSource
.FirstRecord = 1
.LastRecord = 1
End With
.Execute Pause:=False
.DataSource.Close
End With
End With
Set objDocSerienbrief = .Documents(1)
End With
objWinDoc.Close False
' Hinzufuegen Allgemeine Bestimmungen
With objWinWord.Selection
.WholeStory
.Fields.Update
.EndKey END_OF_STORY, MOVE_SELECTION
.InsertFile Filename:=Hilfstabellen.Range("C46") & strSep & Hilfstabellen.Range("C60"), _
Range:= _
"", ConfirmConversions:=True, link:=False, Attachment:=False
.EndKey Unit:=wdStory
.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
.Delete Unit:=wdCharacter, Count:=1
.HomeKey Unit:=WD_STORY
End With
With objDocSerienbrief
' Per Outlook-mail senden (Pdf erstellen, Word schliessen)
If Mail Then
.ExportAsFixedFormat Outputfilename:= _
Hilfstabellen.Range("C44") & strSep & Hilfstabellen.Range("C72") & strSep & "Mail. _
pdf" _
, ExportFormat:=wdExportFormatPDF
DoEvents
.Close False
MailSenden
objWinWord.Quit
Else
' zum Druck in den Vordergrund bringen
.Application.Activate
End If
End With
Ein .Application.windowState = xlnormal (mit oder ohne Punkt) hinter dem .application.Activate bringt nichts.
Auch sonstige Versuche höher im Kode geben keine Resultate.
Danke für Eure Hilfe.