Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: eine bestimmte word-datei aus excel97 aufrufen

eine bestimmte word-datei aus excel97 aufrufen
09.02.2005 18:14:52
werner
hallo udo,
hier der code aus dem vorschlag von mike vom 16.6.03

Private Sub cmdWord_Click()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = New Word.Application
Set wrdDoc = wrdApp.Documents.Open("C:\Dokumentation.doc")
wrdApp.StatusBar = Format(Now, "dddd")
wrdApp.DisplayStatusBar = True
wrdApp.Documents.Open ("C:\Dokumentation.doc")
Set wrdDoc = Nothing
Set wrdApp = Nothing
Application.ActivateMicrosoftApp xlMicrosoftWord
End Sub

mittlerweilde habe ich das problem weiter eingegrenzt. ich musste in vba
unter extras - verweise - unter "verfügbare verweise" die option "microsoft word 9.0 object library aktivieren (häkchen setzen).
nun erhalte ich aber eine neue fehlermeldung:
laufzeitfehler '5174':
Anwndungs- oder objektdefinierter Fehler
wer weiss, was hinter diesem laufzeitfehler steckt?
gibt es eigentlich irgendwo ein verzeichnis, wo man diese laufzeitfehler und deren bedeutung mal nachlesen kann ?
gruss
werner
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: eine bestimmte word-datei aus excel97 aufrufen
K.Rola
Hallo,
versuchs mal so, den Pfad musst du anpassen:
Option Explicit
Sub Worddatei_oeffnen()
Const FName As String = "C:\Eigene Dateien\Test.doc"
Dim appWord As Object
If Dir(FName) <> "" Then
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
appWord.Documents.Open Filename:=FName
Else
MsgBox "Das Dokument " & FName & " wurde nicht gefunden!", 64, "weise hin..."
End If
End Sub

Gruß K.Rola
Anzeige
AW: eine bestimmte word-datei aus excel97 aufrufen
K.Rola
Da fehlte doch glatt(der Ordnung halber)eine Zeile:
Option Explicit
Sub Worddatei_oeffnen()
Const FName As String = "C:\Test.doc"
Dim appWord As Object
If Dir(FName) <> "" Then
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
appWord.Documents.Open Filename:=FName
Set appWord = Nothing
Else
MsgBox "Das Dokument " & FName & " wurde nicht gefunden!", 64, "Hinweis..."
End If
End Sub

Gruß K.Rola
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige