Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Worddokument aus Excel ansteuern

Worddokument aus Excel ansteuern
05.10.2005 07:20:43
Scheinchen
Guten Morgen,
leider habe ich für meine Frage keine passende Antwort im Forum gefunden. Kann mir bitte, bitte jemand sagen, wie ich aus Excel ein bereits geöffnetes Word.doc ansteuern kann. Ich stelle es mir so vor:
Documents ("Test.doc").Activate
So geht es aber nicht. Bitte um kleine Unterstützung.
Vielen Dank
Scheinchen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Worddokument aus Excel ansteuern
05.10.2005 07:43:29
ede
habe dieses makro im Forum gefunden,
es ist sehr gut beschrieben, vieleicht jkannst du es weiterverwenden!
viel erfolg

Sub Word_open_File()
Application.ScreenUpdating = False
Dim myWord As Object
'Fehlerroutine für die Objectabfrage aktivieren
On Error Resume Next
'Abfragen einer besthenden WORD-Instanz um wiederholtes starten zu verhindern
'9 = Word 2000, 10 = Word XP, 11 = Word2003
'Set myWord = GetObject("Word.Application.11")
Set myWord = GetObject("Word.Application.9")
If Err.Number <> 0 Then
'Fehlervariable leeren wenn Instanz noch nicht besteht
Err.Clear
'Zuweisung der Instanz
Set myWord = CreateObject("Word.Application.9")
'Instanz öffnen
'Um das ganze etwas im Hintergrund laufen zu lassen
'kann man den Status "wdWindowStateMinimize" verwenden
myWord.Visible = True: objWW.WindowState = wdWindowStateMaximize
Else
'Instanz besteht bereits
myWord.Activate
'Instanz in der Vordergrund bringen oder
'mit "wdWindowStateMinimize" im Hintergrund ausführen
myWord.Visible = True: objWW.WindowState = wdWindowStateMaximize
End If
'Hier muss der der Dateiname stehen der verwendet werden soll
'Es sollte aber eine Dokumentvorlage verwendet werden
'um keine Änderungen an den Textmarken beim einfügen zu verursachen
'myWord.Application.Documents.Open "\\myser\test\test.doc"
myWord.Application.Documents.Open "C:\temp\test.doc"
'Das aktive WordDokument drucken
'myWord.ActiveDocument.PrintOut
'Dokument schliessen ohne speichern
'myWord.ActiveDocument.Close savechanges:=False
'WORD-Instanz schliessen
'myWord.Application.Quit (True)
'Variable leeren
'Set myWord = Nothing
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Worddokument aus Excel ansteuern
05.10.2005 23:35:43
Scheinchen
Hallo,
das ist ja ein toller Code. Er funktioniert leider nicht bei mir.
In welcher Zeile wird denn auf Word zugegriffen.
Ich bitte nochmal um Hilfe,
Dankeschön,
Gruß,
Scheinchen
AW: Worddokument aus Excel ansteuern
07.10.2005 07:22:32
ede
guten morgen
mit dieser anweisung wird die datei test.doc geöffnet!
myWord.Application.Documents.Open "C:\temp\test.doc"
viel erfolg

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige