HERBERS Excel-Forum - die Beispiele

Thema: Wordmakro mit Parameter aufrufen

Home

Gruppe

Extern

Problem

An ein Wordmakro soll ein Parameter übergeben und von dort zurückgegeben werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1

Sub CallWordMacro()
   Dim wdApp As Object
   Dim wdDoc As Object
   Dim vWert As Variant
   On Error GoTo ERRORHANDLER
   vWert = "1,95583"
   Set wdApp = CreateObject("Word.Application")
   Set wdDoc = wdApp.documents.Open( _
      ThisWorkbook.Path & "\WordMakro.doc")
   On Error Resume Next
   wdDoc.CustomDocumentProperties.Add _
      Name:="Wert", _
      Value:=vWert, _
      LinkToContent:=False, _
      Type:=msoPropertyTypeString
   If Err > 0 Then
      wdDoc.CustomDocumentProperties("Wert").Value = vWert
   End If
   wdApp.documents.Open ThisWorkbook.Path & "\WordMakro.doc"
   wdApp.Run "WD.Modul1.Meldung"
   vWert = CDbl(wdDoc.CustomDocumentProperties("Wert"))
   MsgBox vWert
ERRORHANDLER:
   wdApp.Quit
   Set wdDoc = Nothing
   Set wdApp = Nothing
End Sub

Beiträge aus dem Excel-Forum zu den Themen Extern und Word

Verknüpfung Daten-Userform in Word-Dok aus excel Worddatei nach Wert durchsuchen
geöffnete Worddatei und Word aus Excel beenden ContentControl (WORD) in Excel Zelle schreiben
Excel to Word Kapitel VBA Problem bei Daten von Excel nach Word
Übernahme in Word Format wird nicht übernommen Excelpfad in Word-Makro in Excel-Tab auslesen
aus excel heraus Makro von Word ausführen aktierten Text in geöffnete Worddatei
Probleme beim Kopieren Word Tabelle nach Excel Hyperlink zu Wordtabelle mit Textmarke
Colorindex Excel-Word RGB-Werte Wordart als Kontrollkästchen
Dateiname externer Datei ändern Speichern unter Dialog in Word aufrufen inkl. Pfad
Tabellenblatt aus externer Exceldatei kopieren ConboBox mit externe Daten füllen
gutes WORD-Forum, Link? Probleme bei Serienbriefverknüpfung Word - Excel
Word-Dateien durchsuchen Daten aus Word auslesen
Wert in externer Datei suchen Werte von Excel nach Word übergeben
'Word Datei aus Excel öffnen - maximieren Aufruf externer Programme
Word-Dokument in Excel öffnen Word-Makro für Spaltenbreite
Prüfen, ob bestimmte Word-Datei geöffnet ist! Hyperlink von Excel zu Word
Externe Bezüge auslesen mit VBA Externe Verküpfung anpassen
Daten aus Word Formularfeld in Excel Variablen von Word nach Excel übergeben
Tipp für alle: Word FAQ von Rene Probst Textbox nach Word - Umbruch"kasten"
Datenübernahme in Word Von Excel aus Liste aller geöffneten Word-Dokument
WordDokument mit Excel-Daten füllen und drucken ?! Daten mit Userform nach WORD, wie?
Password-Fehler Pivot mit Externer DB am Limit?
In Word Datei an bestimmte Stelle springen! Exceldatei mit Fußnote in Word einfügen
Word Dokument erstellen Externe Verknüpfungen
Blätter in Externer Arbeitsmappe einblenden VBA: XL-Macro für Word ändern
On Error bei Öffnen von Word-Dokument Excel Hyperlinks auf Word-Bookmarks