Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Word-Dateien zusammenfügen

Word-Dateien zusammenfügen
27.01.2005 07:14:33
Anette
Hallo,
ich möchte per Excel-VBA mehrere Word-Dokumente zu einem einzigen Word-Dokument zusammenfügen, also die Texte einfach aneinanderhängen und in einem neuen Word-Dokument speichern.
Wie geht das?
Gruß Anette

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

Betreff
Datum
Anwender
Anzeige
AW: Word-Dateien zusammenfügen
28.01.2005 19:41:36
Rolf
Hallo Anette,
versuch's mal damit
Freundl.Grüße
Rolf
Option Explicit
'Dateien in neues Word-Dokument einfügen

Sub files_insert()
On Error Resume Next
Const pfad1     As String = "c:\mypath\"
Const docName   As String = "AllDocs.doc"
Dim wd          As Word.Application
Dim Newdoc      As Word.Document
Dim i           As Integer
Dim name1       As String
Application.ScreenUpdating = False
ChDir (pfad1)
Kill docName    'falls Datei "AllDocs.doc" bereits vorhanden
Set wd = CreateObject("Word.Application")
If wd Is Nothing Then
MsgBox "Konnte keine Verbindung zu Word herstellen!", 16, "Problem"
Exit 


Sub                               'Prozedur beenden im Fehlerfall
End If
wd.Visible = True
Set Newdoc = Word.Documents.Add
Newdoc.SaveAs pfad1 & docName
wd.Selection.TypeParagraph
wd.Selection.Paragraphs(1).Style = ActiveDocument.Styles("Überschrift 1")
With Application.FileSearch
.NewSearch
.LookIn = pfad1
.FileType = msoFileTypeWordDocuments
.Execute msoSortByFileName
For i = 1 To .FoundFiles.Count  '
name1 = .FoundFiles(i)
If UCase(name1) <> UCase(pfad1 & docName) Then
wd.Documents.Open name1
With wd.Windows(docName).Selection
.TypeText Text:=name1
.TypeParagraph
.InsertFile Filename:=name1
End With
wd.Documents(name1).Close (wdDoNotSaveChanges)
End If
Next i
End With
Newdoc.Close wdSaveChanges
wd.Quit
Set wd = Nothing
End Sub
Anzeige
AW: Word-Dateien zusammenfügen
29.01.2005 10:45:14
Anette
Hallo Rolf,
vielen Dank für Deine Antwort. Ich habe das getestet und bekomme in der Zeile "Dim wd as word.application" folgende Fehlermeldung:
"benutzerdefinierter typ nicht definiert"
Kannst Du mir sagen, woran das liegt?
Gruß Anette
AW: Word-Dateien zusammenfügen
29.01.2005 11:05:27
Rolf
Hallo Anette,
ich hätte anmerken sollen, dass du einen
Verweis auf die "Microsoft Word xx Object Library"
(xx ist bei mir 9.0) setzen musst.
HG
Rolf

25 Forumthreads zu ähnlichen Themen

2 Word-Dateien zusammenfügen
HansP

Hallo! Im Kern wäre das eine Frage für ein Word-Forum, aber das Ganze muss über Excel laufen...
Ich füge in 2 Word-Dateien Daten aus einer Excel-Tabelle ein. Klappt prima. Nun muss ich aber, die beiden Word-Dateien zu einer zusammenfügen. Ich aus organisatorischen Gründen, kann ich die beid...
03.07.2009 15:47:16
Thread-ID: 1086110
2 Beiträge
Anzeige
Berechnung in mehreren Dateien, zusammenfügen
Tobias

Hallo!
Ich benötige nochmal euere Hilfe.
Ich habe einen Ordner mit vielen .xls Dateien. Aus jeder dieser Dateien muss ich die Werte von A1:A30 (in unterschiedlicher Reihenfolge) in eine Vorlage kopieren. In der Vorlage werden von allen .xls Dateien bestimmte Werte zusammengefasst. Hier...
05.11.2012 10:30:01
Thread-ID: 1285296
3 Beiträge
mehrere Excel Dateien in einer zusammenfügen
chrbo

Hallo,
ich verzweifele beim Aufnehmen eines Makros. Folgende Aufgabe muss ich täglich erledigen: Ich habe 10 verschiedene Excel Dateien, jede hat die gleiche Spaltenorganisation, aber die anzahl der Zeilen ist unterschiedlich, da täglich welche hinzukommen bzw. gelöscht werden.
Ich habe...
16.08.2013 22:54:48
Thread-ID: 1327246
2 Beiträge
Anzeige
Daten aus mehreren Excel-Dateien zusammenfügen
Joana

Hallo liebes Forum,
mein Problem wurde hier zwar schon in ähnlicher Form ausführlich diskutiert, jedoch so 100% Lösungsansätze habe ich nicht gefunden. Zu meinem Problem:
Ich habe einen Ordner, in dem sich an die 250 Excel-Dateien befinden. Die Excel-Dateien sind alle identisch. Also si...
18.11.2013 12:32:19
Thread-ID: 1338989
3 Beiträge
vba Ein pdf-Dokument aus mehreren worddateien
Livio

Hallo
Ich möchte von einer Exceldatei aus durch einen klick auf einen Button, im Explorer im Pfad:"C:\Users\CHLINAE\Desktop\Test-Sheets\HV GIS SVG\1. Installation Protocols" und im Pfad:"C:\Users\CHLINAE\Desktop\Test-Sheets\HV GIS SVG\2. Comissioning Protocols" dass alle 100-150 Worddateien...
15.12.2014 14:44:29
Thread-ID: 1398119
2 Beiträge
mehrere Dateien in eine Datei zusammenfügen
cheys

Hallo Community,
ich benötige wieder mal ein Makro.
Ich habe ein Ordner mit z.B. 4 Excel Dateien mit jeweils einem Tabellenblatt in .xls oder .xlsx Format. Erste Datei heisst "Test1.xls", zweite "Test2.xls" usw..
Ich möchte alle 4 Dateien aus diesem Ordner in eine Exceldatei zusamme...
28.01.2015 12:40:53
Thread-ID: 1405671
7 Beiträge
mehrere Excel-Dateien Zusammenfügen
Dimitri

Hallo Zusammen
Bin auf der Suche nach einer Möglichkeit, mehrere Excel-Dateien welche nur ein Datenblatt enthalten, in eine neue Excel-Datei zusammenzuführen. Das Problem ist aber, das die einzelnen Datenblätter den Namen der Excel-Datei erhalten sollen damit diese beim Zusammenlegen unters...
02.09.2015 19:29:19
Thread-ID: 1445690
2 Beiträge
Daten aus 2 Dateien zusammenfügen
Michael

Hallo,
ich habe 2 Excel Dateien.
1. Datei:
- hier stehen bestimmte Kundennummern drin
2. Datei:
- hier stehen alle Kundennummern mit dazugehörigen Namen, Anschrift ... drin
Ich möchte gern das in der 1. Datei die dazugehörigen Namen ... hinzugefügt werden.
Kann mi...
07.01.2016 09:04:36
Thread-ID: 1467549
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
17
2
1
2
2
1
6
1
2
3
5
7
1
2
4
2
3
8
2
4
12
4
3
16