Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excell VBA Variable in Words

Excell VBA Variable in Words
02.07.2003 23:54:02
Kai
Hallo zusammen,

kann mir jemand sagen wie ich eine Variable die aus einem Excell Sheet auslese,
in einem Words Dokument u. dann auch noch an die richtige Stelle, einfügen kann?


ich hoffe mir kann jemand helfen u. bedanke mich schonmal.

mfg
kai

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

Betreff
Datum
Anwender
Anzeige
AW: Excell VBA Variable in Words
03.07.2003 00:41:43
Ramses
Hallo Kai,

mal eine ganz allgemein gehaltene Anweisung:


Sub Word_Dokument_von_Excel_aus_steuern()
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
Set myWord = GetObject("Word.Application.10")
If Err.Number <> 0 Then
    'Fehlervariable leeren wenn Instanz noch nicht besteht
    Err.Clear
    'Zuweisung der Instanz
    Set myWord = CreateObject("Word.Application.10")
    '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 "C:\Test.doc"
'Die Textmarken "a1, a2, a3" müssen im Dokument bereits bestehen
'Dann werden nach dem öffnen des Dokuments die Werte von Tabelle1
'A1, B1 und C1 in die jeweiligen Textmarken geschrieben
myWord.ActiveDocument.Bookmarks("a1").Range.Text = Worksheets("Tabelle1").Range("A1")
myWord.ActiveDocument.Bookmarks("a2").Range.Text = Worksheets("Tabelle1").Range("B1")
myWord.ActiveDocument.Bookmarks("a3").Range.Text = Worksheets("Tabelle1").Range("C1")
'Das aktive WordDokument drucken
myWord.ActiveDocument.PrintOut
'Dokument schliessen ohne speichern
myWord.ActiveDocument.Close savechanges:=False
'---
'Speichern mit fixem Namen
'myWord.ActiveDocument.SaveAs Filename:="DokumentName", FileFormat:=wdFormatDocument
'Speichern mit Variable
'myWord.ActiveDocument.SaveAs Filename:=Variable, FileFormat:=wdFormatDocument
'---
'WORD-Instanz schliessen
myWord.Application.Quit (True)
'Variable leeren
Set myWord = Nothing
End Sub
 
     Code eingefügt mit Syntaxhighlighter 1.16



statt

myWord.ActiveDocument.Bookmarks("a1").Range.Text = Worksheets("Tabelle1").Range("A1")

kannst du natürlich auch deine Variable verwenden

myWord.ActiveDocument.Bookmarks("a1").Range.Text = myVariable

Die Verweise im VB-Editor auf die Microsoft Office Object Library müssen natürlich gesetzt sein.

Gruss Rainer


Anzeige
AW: Excell VBA Variable in Words
03.07.2003 03:03:06
Kai
wie bekomme ich diese Textmaken in ein Words Document ich habe Makros bis jetzt nur in Excell Programmiert


AW: Excell VBA Variable in Words
03.07.2003 07:59:07
Ramses
Hallo,

Word - Dokument öffnen
Textstelle markieren
Einfügen - Textmarke
Dokument speichern

Beim Ablauf dieses Makros werden die Textmarken überschrieben und können KEIN zweites Mal verwendet werden, deshalb sollte das Dokument als DOT vorliegen und immer wieder neu verwendet werden.
Du musst dich so oder so mit der WORD-Programmierung beschäftigen wenn du Applikationsübergreifen programmieren willst, um z.B.Textstellen in deinem Dokument zu suchen wo du dann deine Variablen einsetzen musst¨wenn du keine Textmarken verwenden willst.


Gruss Rainer


Anzeige

335 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige