Durch Makro einen formatierten Text einfügen

10/09/2007 - 16:36 von Jan | Report spam
Hi,

ich würde gerne von einer festen Quelle (Beispielsweise den Text aus einer
Excelzelle) in ein Dokument kopieren.

Aber ich bekomme mit meinem Makro (office2003) keine Zugriff auf die
Excelzelle... also, weiß nicht wie das geht und finde auch nix was mir hilft.
Lediglich einzelnen Sàtze (dadurch aber leider unformatiert) bekomme ich aus
.txt oder .ini Dateien heraus.

Gruß
Jan.
 

Lesen sie die antworten

#1 Helmut Weber
10/09/2007 - 17:01 | Warnen spam
Hallo Jan,

für Programmierung gibt es eine eigene Gruppe.
... public.de.word.vba

Zum Beispiel, early binding vorausgesetzt:
Vgl.:
http://word.mvps.org/faqs/interdev/...inding.htm
http://word.mvps.org/faqs/interdev/...omWord.htm


Sub Test53345690()
Dim oExc As Excel.Application
Dim oWrk As Excel.Workbook
Dim oSht As Excel.Worksheet
' Excel làuft schon
Set oExc = GetObject(, "Excel.application")
Set oWrk = oExc.ActiveWorkbook
Set oSht = oWrk.ActiveSheet
oSht.Cells(1, 3).Copy
Selection.PasteExcelTable False, False, True
Set oSht = Nothing
Set oWork = Nothing
Set oExc = Nothing
End Sub

Viel Spaß.


Gruß

Helmut Weber, MVP WordVBA

"red.sys" & chr$(64) & "t-online.de"
Win XP, Office 2003 (US-Versions)

Ähnliche fragen