Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Worddatei per Makro an eine andere Worddatei anfügen
zurück: Klasse und/oder Methoden für Combobox(en) in WORD [VB 6.5] weiter: Makro zum zählen wie of etwas vorhanden ist 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
timofey
Neuling


Verfasst am:
17. Mai 2011, 09:51
Rufname:

Worddatei per Makro an eine andere Worddatei anfügen - Worddatei per Makro an eine andere Worddatei anfügen

Nach oben
       Version: Office 2007

Hallo an alle Mitglieder!
Ich habe die folgende Aufgabe:
Es gibt eine ListBox in Excel, die mehrere Einträge enthält. Zu jedem dieser Einträge existiert ein Word-Dokument. Wenn der Benutzer einen Eintrag wählt, muss in das parallel geöffnete Worddokument das entsprechende Worddokument reinkopiert werden (dieses enthält bestimmte Formeln).
Da ich keine Programmiererfahrung in Word hab, bitte ich Euch um den Rat, wie das bewerkstelligt werden könnte. Vorgehensweise oder vielleicht vba-Skript...
Danke!!!
r.mueller
Gast


Verfasst am:
17. Mai 2011, 15:52
Rufname:


AW: Worddatei per Makro an eine andere Worddatei anfügen - AW: Worddatei per Makro an eine andere Worddatei anfügen

Nach oben
       Version: Office 2007

Hallo

Dies kannst von Excel her ausführen.
Die beiden Documente sollten dabei geschlossen(!!!) sein.
Code:

Sub ZweiWordDocumenteZusammenfuehren()

Dim wdAppl As Word.Application
Dim wdDocA As Word.Document
Dim strPfadUndDateinameDocA As String
Dim strPfadUndDateinameDocB As String
Dim strPfadUndDateinameNeuesDocument As String

strPfadUndDateinameDocA = "D:\Test\Test1.doc" 'Anpassen!!!!!!!!
strPfadUndDateinameDocB = "D:\Test\Test2.doc" 'Anpassen!!!!!!!!
strPfadUndDateinameNeuesDocument = "D:\Test\Test3.doc" 'Anpassen!!!!!!!!

Set wdAppl = CreateObject("Word.Application")
wdAppl.Visible = False ' zum Testen auf: True

'Document an das das 2. angefügt werden soll öffnen
Set wdDocA = wdAppl.Documents.Open(strPfadUndDateinameDocA)

'Sectionswechsel hinzufügen
wdDocA.Range(wdDocA.Range.End - 1, wdDocA.Range.End).InsertBreak Type:=2  '2 =wdSectionBreakNextPage

'Kopie der des 2. Doc hinzufügen
'Statt ans ende ist natürlich aoch jede andere Possition (zB. Bookmark) möglich
wdDocA.Range(wdDocA.Range.End - 1, wdDocA.Range.End).InsertFile _
      Filename:=strPfadUndDateinameDocB, _
      Range:="", _
      ConfirmConversions:=False, _
      Link:=False, _
      Attachment:=False
wdDocA.SaveAs strPfadUndDateinameNeuesDocument
wdDocA.Close False
wdAppl.Quit

Set wdDocA = Nothing
Set wdAppl = Nothing
' statt ans Ende ist natürlich aoch jede andere Possition (zB. Bookmark) möglich:
'wdDocA.Bookmarks("MeineTextmarke").Range.InsertFile .............

End Sub


Gruß
r.mueller
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 Word Serienbriefe: Word Dokument per Klick auf Button per mail versenden 3 lexi3112 2274 19. Dez 2012, 16:27
Alex3112 Word Dokument per Klick auf Button per mail versenden
Keine neuen Beiträge Word Serienbriefe: Datenquelle (Excel) startet nicht automatisch mit Worddatei 0 Alpenradler 491 29. Mai 2012, 08:07
Alpenradler Datenquelle (Excel) startet nicht automatisch mit Worddatei
Keine neuen Beiträge Word Serienbriefe: Einbinden Textmarken und Makro aus DOT-Datei in Serienbrief 0 hurganator 690 21. Feb 2012, 10:36
hurganator Einbinden Textmarken und Makro aus DOT-Datei in Serienbrief
Keine neuen Beiträge Word Formate: Gitternetzlinien per VBA ein- / ausblenden 2 ponto499 4972 07. Jul 2011, 14:23
mtemp Gitternetzlinien per VBA ein- / ausblenden
Keine neuen Beiträge Word Formate: Wie Bilder in Word-Datei schnell in JPG-Bilder umwandeln? 0 Merkur 1693 04. Feb 2011, 20:24
Merkur Wie Bilder in Word-Datei schnell in JPG-Bilder umwandeln?
Keine neuen Beiträge Word Formate: Formatvorlagen suchen und ersetzen mit Makro 8 zausel 4042 09. Jan 2011, 18:09
elukas Formatvorlagen suchen und ersetzen mit Makro
Keine neuen Beiträge Word Formate: Worddatei ist Weg 3 sonnenblume1972 2337 27. Sep 2010, 23:09
ckirchho Worddatei ist Weg
Keine neuen Beiträge Word Serienbriefe: Seriendruck in E-Mail (per Anlage) - E-Mail mit Text 1 Gast 2512 16. Jun 2010, 13:44
Gast Seriendruck in E-Mail (per Anlage) - E-Mail mit Text
Keine neuen Beiträge Word Serienbriefe: Einzelne Werte aus Excel in eine Word-Datei übernehmen... 1 Oliver-HB 1510 29. Dez 2009, 13:51
iso Einzelne Werte aus Excel in eine Word-Datei übernehmen...
Keine neuen Beiträge Word Formate: Per VBA erzeugtes Includetext-Feld übernimmt Format nicht 0 Andii 784 21. Sep 2009, 10:03
Andii Per VBA erzeugtes Includetext-Feld übernimmt Format nicht
Keine neuen Beiträge Word Serienbriefe: Textmarken per Includetext einfügen in Abhängigkeit von ASK 0 Robotixx 1804 13. Jul 2009, 19:45
Robotixx Textmarken per Includetext einfügen in Abhängigkeit von ASK
Keine neuen Beiträge Word Serienbriefe: .mdb per e-mail 2 schokomo 999 17. Apr 2009, 09:20
Gast .mdb per e-mail
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum