Word Makro von Excel ausführen
13.10.2014 22:35:41
Excel
habe ein Excel-Dokument mit einem Makro, das ein bestimmtes Word-Dokument öffnet und ein dort stehendes Makro startet. Dabei werden auch Daten übergeben.
Das funktioniert.
Nun würde ich gerne die Sache dahin gehend ändern, dass auch das Word-Makro im Excel-Makro steht. Geht das irgend wie?
Der Vorteil wäre, dass im Word-Dokument kein Makro mehr steht und alles vom Excel-Makro gesteuert werden kann.
Hier habe ich das Excel-Sheet hochgeladen, damit man sieht, wie Word aufgerufen wird.
https://www.herber.de/bbs/user/93146.xlsm
Und hier das Word-Makro (in etwas abgespeckter Form wegen der Übersichtlichkeit).
Sub NamenDict(oNamen As Object)
Dim r As Range
Dim i, j As Integer
Dim sExcelname, sWordtag As String
On Error GoTo fehler
With ActiveDocument
'Alle Textmarken durchgehen
For i = 1 To .Bookmarks.Count
sWordtag = .Bookmarks(i).Name
.Bookmarks(i).Select
If oNamen(sWordtag) = "Wahr" Then
.Bookmarks(i).Range.Font.StrikeThrough = 0
.Bookmarks(i).Range.HighlightColorIndex = wdTurquoise
End If
Next i
End With
Exit Sub
fehler:
MsgBox "F: " & Err.Description & " - " & Err.Number
End Sub
würde mich über konkrete Hilfe sehr freuen. LG,
Barbara