Wordvorlage aus Excel starten

Bild

Betrifft: Wordvorlage aus Excel starten von: chris
Geschrieben am: 28.02.2005 15:25:20

Hallo,

folgendes Problem: ich habe eine Exceldatei von wo aus ich per VBA-Code eine Wordvorlage (.dot) starte die wiederum ein (AutoNew) Makro enthält.

Wenn nun Excel die Datei startet wird das Makro in Word nicht ausgeführt sondern nur das neue Dokument generiert, wenn ich die .dot doppelklicke im Explorer wird es aber ausgeführt (und das neue Dokument geladen). der Aufruf im Excel sieht so aus: Shell("WINWORD /t" & vst_vorlage, vbMaximizedFocus)

Weiß jemand warum das Makro nicht ausgeführt wird?

Danke Chris

Bild


Betrifft: AW: Wordvorlage aus Excel starten von: René Grallinger
Geschrieben am: 01.03.2005 14:26:31

Hallo Chris

Zwei Ansätze die ich anwende:
Viel Spass und Gruss René

1)
=================================
Im Excel
=================================
Dim DocStart
Speichervorgang_starten
DocStart = Shell("Winword.exe " & "vsr_vorlage.doc", vbMaximizedFocus)
Application.ActiveWorkbook.Saved = True
Application.Quit
=================================
Im Word
=================================
Code unter AutoOpen
Option Explicit

Public strStartAktPath As String
Public strStartDotFile As String
Public strStartAktDoc As String


Sub Starten_Beispiel()
' Ermitteln des aktuellen Dateinamens
' ========================================================================
    strStartAktDoc = ActiveDocument.Name
    
' Ermitteln des aktuellen Pfades
' ========================================================================
    strStartAktPath = ActiveDocument.Path
    strStartDotFile = strStartAktPath & "\vst_vorlage.dot"
    
' Neues Dokument basierend auf der Dokumentvorlage erstellen
' ========================================================================
    Application.Documents.Add strStartDotFile
    
' Dokument schliessen
' ========================================================================
    Documents(strStartAktDoc).Close SaveChanges:=wdDoNotSaveChanges
End Sub



2)
Dim objWord As Object
Set objWord = CreateObject("word.application")
On Error GoTo Ende
objWord.Visible = True
objWord.Documents.Add "vst_vorlage.dot"
Set objWord = Nothing
Exit Sub
Ende:


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wordvorlage aus Excel starten"