Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
in Worddatei schreiben
zurück: Delta Berechnung mit Schleife vereinfachen? weiter: Übertragen von Hintergrundfarben per Makro Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast01
Gast


Verfasst am:
29. Jan 2009, 14:05
Rufname:

in Worddatei schreiben - in Worddatei schreiben

Nach oben
       Version: Office 2003

Hi zusammen,
ich probiere jetzt schon seit Stunden aus einer Exceldatei in eine Worddazei zu schreiben.
Ich hate es schon geschafft die gewünschte Worddatei zu öffnen, aber ich kann nihcts hineinschreiben.

Code:

onst DocFileName = "Wordvorlage.doc" ' Konstante für den Dateinamen der Wordvorlage
Const strPath = "C:\Documents and Settings\bs0005xzu\Desktop\Test" 'Konstante für den Pfad der Datei


Private Sub CommandButton1_Click()
Dim strPath As String




strPath = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "") ' aktuelles Verzeichnis finden
Set wdApp = CreateObject("Word.Application") ' Word OLE/COM API initialisieren
wdApp.Visible = True 'Word Fenster sichtbar machen

Set wddoc = wdApp.documents.Add(strPath & DocFileName) 'Datei öffnen

End Sub

Kann mir vielleicht jemand einen Tipp geben, wie ich etwas aus der Exceldatei in das Wroddokument kopieren kann? ZB Zelle A1 irgendwo hin in das Worddokument...
Schmal vielen Dank im Voraus!
bst
Programmierer


Verfasst am:
29. Jan 2009, 14:54
Rufname: Bernd
Wohnort: Ilsfeld


AW: in Worddatei schreiben - AW: in Worddatei schreiben

Nach oben
       Version: Office 2003

Hi,

Code:
   wddoc.Range.Text = "komme"
   wddoc.Range.InsertAfter " aus Excel"
   wddoc.Range.InsertBefore "Ich "

Oder auch einfach mal hier Forum Googlen nach was wie "excel word vba text einfügen".

Oder http://www.vb-fun.de/vb/tipps/tip0443.shtml

cu, Bernd
Gast01
Gast


Verfasst am:
30. Jan 2009, 08:52
Rufname:

AW: in Worddatei schreiben - AW: in Worddatei schreiben

Nach oben
       Version: Office 2003

Danke. das klappt schonmal super soweit!
das Problem ist nur, dass jetzt das Worddokument überschrieben wird.
Gibt es auch eine Möglichkeit dem Worddokument etwas anzuhängen? Oder in die Mitte des Dokumentes zu schreiben?
Gast01
Gast


Verfasst am:
30. Jan 2009, 09:20
Rufname:

AW: in Worddatei schreiben - AW: in Worddatei schreiben

Nach oben
       Version: Office 2003

Am besten wäre es wohl auch, wenn dann der Cursor auch in dem Worddkument bleiben würde, dann könnte ich per Makro den Cursor an die richtige Stelle schieben und dort etwas hineinschreiben. Aber der ist bleibt ja in der Exceldatei
bst
Programmierer


Verfasst am:
30. Jan 2009, 09:47
Rufname: Bernd
Wohnort: Ilsfeld


AW: in Worddatei schreiben - AW: in Worddatei schreiben

Nach oben
       Version: Office 2003

Morgen,

Versuche mal sowas. Oder frage mal im Word-VBA Forum wie man das besser macht.

cu, Bernd
--
Code:
Option Explicit

Sub x()
   Dim appWord As Object, objDoc As Object
   
   Set appWord = CreateObject("word.application")
   Set objDoc = appWord.Documents.Add
   appWord.Visible = True

   appWord.Selection.TypeText "ich bin eine zeile text" & vbLf
   objDoc.Range(0).InsertBefore "Ich stehe am Anfang"
   objDoc.Range(objDoc.Content.End - 1).InsertAfter "Ich stehe am Ende"
   
   Set objDoc = Nothing
   Set appWord = Nothing
End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Inhalte vergleichen u. Werte in neue Tabelle schreiben 4 Gast 1406 16. Mai 2010, 19:30
Gast Inhalte vergleichen u. Werte in neue Tabelle schreiben
Keine neuen Beiträge Excel Formeln: Zählen und benennung schreiben 2 wut 296 22. Dez 2009, 16:21
wut Zählen und benennung schreiben
Keine neuen Beiträge Excel Formeln: Text in Zahl wandeln und in gleich Zelle schreiben 3 Gody 1103 16. Nov 2009, 18:41
neopa Text in Zahl wandeln und in gleich Zelle schreiben
Keine neuen Beiträge Excel Formeln: Einträge nacheinander schreiben ( ohne leere Zellen) 2 Smartie256 309 08. Sep 2009, 13:40
Smartie256 Einträge nacheinander schreiben ( ohne leere Zellen)
Keine neuen Beiträge Excel Formeln: Formel kürzer schreiben 2 Gill Bates 492 23. Jul 2009, 07:15
Gill Bates Formel kürzer schreiben
Keine neuen Beiträge Excel Formeln: jeden zweiten Wert aus Tabelle in eine neue schreiben 1 rogreb 2119 14. Jun 2009, 17:27
shift-del jeden zweiten Wert aus Tabelle in eine neue schreiben
Keine neuen Beiträge Excel Formeln: Zwei Spalten - höheren WErt in eine dritte spalte schreiben. 3 SteWi 1812 09. Jun 2009, 17:52
Gast Zwei Spalten - höheren WErt in eine dritte spalte schreiben.
Keine neuen Beiträge Excel Formeln: Bestimmte Wörter aus Zelle lesen und in neue Schreiben 6 Aschoff 1200 24. Feb 2009, 14:59
Kimba Bestimmte Wörter aus Zelle lesen und in neue Schreiben
Keine neuen Beiträge Excel Formeln: Fehler beim Schreiben von Formel in Excel Zelle (VBA) 2 bernde 1602 19. Nov 2008, 09:39
bernde Fehler beim Schreiben von Formel in Excel Zelle (VBA)
Keine neuen Beiträge Excel Formeln: Text hinter eine Formel Schreiben 2 pharlap 1614 25. Sep 2008, 11:46
pharlap Text hinter eine Formel Schreiben
Keine neuen Beiträge Excel Formeln: Zellen untereinander schreiben 1 Ninolito84 1399 20. Sep 2008, 13:00
pammi5 Zellen untereinander schreiben
Keine neuen Beiträge Excel Formeln: Zeilen einer Tabelle in Spalten anderer Tabelle schreiben 10 dersmudo 1403 11. Sep 2008, 11:21
dersmudo Zeilen einer Tabelle in Spalten anderer Tabelle schreiben
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln