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

=EINBETTEN("Word.Document.8";"")

=EINBETTEN("Word.Document.8";"")
29.11.2007 15:11:00
Uwe
Hallo an Alle,
mich beschäftigt schon seit längerem folgendes Problem......
Aus Excel heraus ein Worddoc zu öffnen und an eine Textmarke verweisen, davon gibts genug in der Recherche zu finden.
Aber wie ist das mit einem eingebetteten Worddoc auf Tabelle2 z.b.
Sagen wir mal in Tabelle 1 Zelle A1 den Inhalt an eine Textmarke an das eingebettete Word.Document in Tabelle2 einfügen.
Geht sowas per Code überhaupt.
Der Macrorecorder hat da keine vernünftige Ergebnisse erziehlt.
Für Eure Mühen schon mal Dank!
Gruß Uwe

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

Betreff
Datum
Anwender
Anzeige
AW: =EINBETTEN("Word.Document.8";"")
30.11.2007 01:21:46
fcs
Hallo Uwe,
eine der beiden folgenden Code-Varianten fügt Text an einer Textmarke eines eingebetteten Word-Objekts ein. Dabei bevorzuge ich die Variante mit den Objekt-Variablen. Getestet unter MS Office97.
Gruß
Franz

Sub TextanWordobjectTextmarke()
'Text an einer Textmarke in einem eingebetteten Wordobjekt einfügen
'im Excel-VBA-Editor muss unter Extras - Verweise die _
Microsoft Word x.y Object Library  aktiviert werden.
Dim dokObject As Object, Bereich As Word.Range, strText As String
Dim wks As Worksheet
Set wks = Worksheets("Tab2")
strText = Worksheets("Tab1").Range("A1").Text
Set dokObject = wks.Shapes("Objekt 1").OLEFormat.Object
With dokObject
Set Bereich = .Object.Bookmarks("Textmarke1").Range
Bereich.Text = strText
End With
End Sub
Sub TextanWordobjectTextmarke2()
'Text an einer Textmarke in einem eingebetteten Wordobjekt einfügen
Worksheets("Tab2").Shapes("Objekt 1").OLEFormat.Object.Object.Bookmarks("Textmarke1") _
.Range.Text = Worksheets("Tab1").Range("A1").Text
End Sub


Anzeige
AW: =EINBETTEN("Word.Document.8";"")
30.11.2007 08:49:00
Uwe
Hallo Franz,
es macht doch immer wieder Spass von Dir zu lesen! :-)
Hab es gerade mal getestet nur das beste ist mal wieder......ich verstehe es sogar :-)
Also genau das was ich mir vorgestellt hatte.
Vielen Dank für deine Hilfe!
Gruß Uwe

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige