Makro einzeln laufen, zusammen nicht????
08.11.2003 19:12:58
Sascha
hab hier zwei Makro die einzeln wunderbar funktionieren. Nur zusammen leider
nicht.
1. Word
Beim Start des Dokuments s_brief.doc wird ein Serienbrief erzeugt,
ausgedruckt, Word beendet. Die Daten zum Serienbrief erhält Word aus einer
2.xls
2. Excel
Aufruf einer Worddatei mittels Makro. Auch das Funktioniert einwandfrei.
Wenn ich aber nun aus 1.xls mittels Makro s_brief.doc mit ebenfalls Makro
(Daten aus 2.xls) aufrufe, passiert folgendes.
Word wird gestartet. Dann passiert erstmal garnichts. In der Statusleiste
steht: "Microsoft Excel wird gestartet". Nach ca 1min fragt Word: "Dieser
Vorgang dauert länger als vorgesehen. Soll er trotzdem fortgesetzt werden?
Ja/Nein" Bei Nein wird meine Word-Datei gestartet, Makro ausgeführt und
wieder geschlossen.
Wie kann ich diese Abfrage verhindern??? Auf was wartet Word???
Makro Excel: 1.xls
------------------------
Option Explicit
Private Declare
Function ShellExecute Lib "shell32.dll" Alias
"ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As
String, ByVal lpDirectory As String, _
ByVal lpnShowCmd As Long) As Long
Public
Sub WordMakroStarten()
Dim intIndex As Integer
With Application.FileSearch
.FileType = msoFileTypeWordDocuments
.LookIn = ThisWorkbook.Path
If .Execute > 0 Then
For intIndex = 1 To .FoundFiles.Count
ShellExecute 0, "open", Right(.FoundFiles(intIndex),
InStr(1, StrReverse(.FoundFiles(intIndex)), "\") - 1), "", ThisWorkbook.Path
& "\", 3
Next
End If
End With
End Sub
------------------------
Makro Word: s_brief.doc -> steht im Autostart
------------------------
Sub S_Druck()
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=True
End With
ActiveDocument.PrintOut Background:=False
Application.Quit SaveChanges:=wdDoNotSaveChanges
End Sub
Danke für die Hilfe
Mfg
Sascha Drömer