Exceltabelle an Textmarke in Word einfügen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Exceltabelle an Textmarke in Word einfügen
von: Lars
Geschrieben am: 08.12.2003 16:00:15

Hallo,

hat Jemand eine Idee, wie man aus Excel heraus Tabellen in Word einfügen kann ? Die Tabelle soll an einer bestimmten Textmarke (TabelleEW) eingefügt werden.



Set wdApp = New Word.Application
Set wdDok = wdApp.Documents.Open(ThisWorkbook.Path & "\" & "Gutachten.doc")
wdDok.Windows(1).Activate
wdApp.Visible = True


For Each wdBookmark In wdDok.Bookmarks
MsgBox wdBookmark.name
Select Case wdBookmark.name
Case "TabelleEW"
MsgBox "Tabelle EW wird eingefügt"
wdBookmark.Select

... so weit funktionert alles. Diese Textzeile ist VBA-Code aus Word und funktioniert dort auch wunderbar. Aber aus Excel raus nicht.

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, text:="LINK Excel.Sheet.8 """ & Replace(ThisWorkbook.Path, "\", "\\") & "\\VBA-Standardgutachten.xls"" EW!TabelleEW \a \f 0 \a ", PreserveFormatting:=False

... Normalen Text füg ich ein mit
wdBookmark.Range.InsertAfter "Hier wird die Tabelle eingefügt"


End Select
Next


Vielen Dank im Voraus
Lars

Bild


Betrifft: AW: Exceltabelle an Textmarke in Word einfügen
von: Nike
Geschrieben am: 09.12.2003 16:02:32

Hi,
hier noch ein Link zum Thema:

https://www.herber.de/forum/archiv/112to116/t113467.htm

Bye

Nike


Bild

Beiträge aus den Excel-Beispielen zum Thema " Zeile einfügen wenn Datum in Spalte A und Format"