Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
404to408
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
404to408
404to408
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

word öffnen und daten an bookmarks übergeben

word öffnen und daten an bookmarks übergeben
ray
Hallo,
ich habe hier vor kurzen gelernt, wie man Word von excel öffnet. Habe folgendes draus gemacht:
Dim datei
datei = ListBox1
CreateObject("word.application").documents.Open("" & datei).Application.Visible = True
damit wechsel ich zu word und kann dort arbeiten und nach belieben auf meine Excel frm zurückkehren.
Mein Wunsch:
Ich möchte nicht nur die Datei öffnen, sondern noch
worksheets("start").range("a1").value
an die Textmarke "wName" in den zuöffnenden/geöffneten Brief übergeben?
Hat jem das schon mal gemacht?
Gruß aus Hamburg
Ray

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: word öffnen und daten an bookmarks übergeben
01.04.2004 22:14:23
Dieter
Hallo Ray,
du kannst das z.B. so machen:

Sub Bookmark_Ersetzen()
Dim datei As String
Dim dok As Object
Dim wd As Object
datei = "D:\VBA_Test\Beispiel.doc"
Set wd = CreateObject("Word.Application")
wd.Visible = True
Set dok = wd.Documents.Open(datei)
dok.Bookmarks("wName").Range.Text = _
Worksheets("start").Range("a1").Value
dok.Save
dok.Close
wd.Quit
Set wd = Nothing
End Sub

(Die Textmarke wird durch diese Ersetzung zerstört.)
Grüße aus dem Ruhrgebiet
Dieter
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige