Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Dokumente zusammenführen mit VBA????
zurück: Auf Modul zugreifen weiter: Wie Word-Makros Verteilen-Bitte Meinungen 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
Gast



Verfasst am:
02. Sep 2010, 08:02
Rufname:

Dokumente zusammenführen mit VBA???? - Dokumente zusammenführen mit VBA????

Nach oben
       Version: Office 2007

Moin moin,

habe mich mal an VBA versucht. Hintergrund ist, dass ich mehrere Dokumente(Textbausteine) in ein neues Dokument zusammenfügen möchte.
Es klappt soweit, dass er ein neues Dokument öffnet und dorthin einen in einer Datei hinterlegten Text kopiert. Wenn ich nun jedoch aus weiteren Dateien etwas einfügen möchte, dann komme ich derzeit nicht weiter.
Anbei mein Code.

Was mache ich falsch?
Wäre Euch für einen Ratschlag sehr dankbar.
Danke und Grüße,
Peter

Sub Word()
Dim objWord As Object
Dim objWord2 As Object


If Range("C68") = "Maschine" Then
Set objWord = CreateObject("Word.Application")
With objWord
.Documents.Open Filename:="F:\Deutsch\Maschine.doc"
.Visible = True
.Activate
.Selection.WholeStory
.Selection.Copy
.Documents.Add
.ActiveDocument.Select
.Selection.Paste
.Selection.WholeStory
.Selection.Font.Name = "arial"
.Selection.ParagraphFormat.SpaceBefore = 0
.Selection.ParagraphFormat.SpaceBeforeAuto = False
.Selection.ParagraphFormat.SpaceAfter = 0
.Selection.ParagraphFormat.SpaceAfterAuto = False
End With
Else
End If

If Range("C69") = "Zubehör" Then
Set objWord2 = CreateObject("Word.Application")
With objWord2
.Documents.Open Filename:="F:\Deutsch\Zubehör.doc"
.Visible = True
.Activate
.Selection.WholeStory
.Selection.Copy
.Windows("Dokument1").Select
.Window.Activate
.Selection.Paste
.Selection.WholeStory
.Selection.Font.Name = "arial"
.Selection.ParagraphFormat.SpaceBefore = 0
.Selection.ParagraphFormat.SpaceBeforeAuto = False
.Selection.ParagraphFormat.SpaceAfter = 0
.Selection.ParagraphFormat.SpaceAfterAuto = False
End With
Else
End If

Set objWord2 = Nothing
End Sub
MarcSLK-Gast
Gast


Verfasst am:
27. Sep 2010, 11:13
Rufname:


AW: Dokumente zusammenführen mit VBA???? - AW: Dokumente zusammenführen mit VBA????

Nach oben
       Version: Office 2007

Hallo,

schau Dir mal das Beispiel an.

Per VBA-Code werden alle Word-Dateien aus dem Verzeichnis "C:" in einem Word-Dokument zusammengeführt.

Sub AlleDokumenteEinesVerzeichnissesZusammenführen()

ChDir "C:\"
myVerz = Dir("*.DOC")

Documents.Add

While myVerz <> ""

With Selection
.InsertFile FileName:=myVerz, ConfirmConversions:=False
.InsertParagraphAfter
.InsertBreak Type:=wdSectionBreakNextPage
.Collapse Direction:=wdCollapseEnd
End With

myVerz = Dir()
Wend

End Sub

Gruss

Marcus
Gast



Verfasst am:
23. Jan 2011, 13:51
Rufname:

AW: Dokumente zusammenführen mit VBA???? - AW: Dokumente zusammenführen mit VBA????

Nach oben
       Version: Office 2007

vielen Dank
Seach
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Nov 2011, 00:37
Rufname:

AW: Dokumente zusammenführen mit VBA???? - AW: Dokumente zusammenführen mit VBA????

Nach oben
       Version: Office 2010

Hallo,
wie muss ich myVerz deklarieren?

Viele Grüße
r.mueller
Gast


Verfasst am:
15. Nov 2011, 16:36
Rufname:

AW: Dokumente zusammenführen mit VBA???? - AW: Dokumente zusammenführen mit VBA????

Nach oben
       Version: Office 2007

Hallo

Dim myVerz As String

Gruß
r.mueller
0622trapper
Eher Einsteiger, Tabkalk-Grundkenntnisse


Verfasst am:
19. Feb 2012, 20:57
Rufname: Stefan
Wohnort: Heidelberg

AW: Dokumente zusammenführen mit VBA???? - AW: Dokumente zusammenführen mit VBA????

Nach oben
       Version: Office 2007

Hi,

mach ich das richtig, dass ich diesen Thread jetzt erweitere, oder soll ich zu dem gleichen Problem ein neues Thema eröffnen?

Habe meinen spezifischen Pfad angegeben.

Bei der Ausführung wird zwar ein neues Dokument geöffnet, aber dieses ist leer.

Beim Debuggen springt er nach der Zeile Documents.Add
die ganze Schleife.

Kann das an den Sicherheitseinstellungen für das Dokument liegen?

Im Moment weiß ich nicht, wie ich sonst den Fehler suchen soll!

Danke für alle Antworten!

_________________
“…endure a hundred times, strengthen yourself a thousand times , and you will complete your tasks in short order…You have to be brave and persevere wheter there is opposition or not
r.mueller
Gast


Verfasst am:
19. Feb 2012, 22:32
Rufname:


AW: Dokumente zusammenführen mit VBA???? - AW: Dokumente zusammenführen mit VBA????

Nach oben
       Version: Office 2007

Hallo

Code:

Sub AlleDokumenteEinesVerzeichnissesZusammenführen()
Dim strDateiname As String
Dim docNeu As Word.Document
Dim rngDoc As Word.Range

ChDrive "C:\Test\" 'immer in dieser Reihenfolge beide Zeilen gleich!  'Anpassen!!!
ChDir "C:\Test\"   'immer in dieser Reihenfolge beide Zeilen gleich!  'Anpassen!!!

strDateiname = Dir("*.DOC")

Set docNeu = Documents.Add

While strDateiname <> ""
 Set rngDoc = docNeu.Range(docNeu.Range.End - 1, docNeu.Range.End)
 rngDoc.InsertFile FileName:=strDateiname, ConfirmConversions:=False
 rngDoc.InsertParagraphAfter
 Set rngDoc = docNeu.Range(docNeu.Range.End - 1, docNeu.Range.End)
 rngDoc.InsertBreak Type:=wdSectionBreakNextPage
strDateiname = Dir()
Wend

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 Formate: Kopf und Fußzeilen Verknüpfter Dokumente verschwinden 0 dersupervossi 87 19. Nov 2013, 15:01
dersupervossi Kopf und Fußzeilen Verknüpfter Dokumente verschwinden
Keine neuen Beiträge Word Serienbriefe: Serienbrief erstellt einige Dokumente doppelt 1 FSW 793 28. Sep 2011, 20:33
charlybrown Serienbrief erstellt einige Dokumente doppelt
Keine neuen Beiträge Word Serienbriefe: gruppierte Datensätze in einzelne Dokumente speichern 1 Gast_CH 586 22. Jun 2011, 10:29
Gast_CH gruppierte Datensätze in einzelne Dokumente speichern
Keine neuen Beiträge Word Serienbriefe: datensätze zusammenführen / mehrere datensätze in einem dok 1 boschprakti 2009 10. Mai 2011, 12:15
boschprakti datensätze zusammenführen / mehrere datensätze in einem dok
Keine neuen Beiträge Word Serienbriefe: Dokumente generieren - Textbaustein verknüpfen/aktualisieren 1 drobzz 1822 26. Okt 2010, 11:04
Gast Dokumente generieren - Textbaustein verknüpfen/aktualisieren
Keine neuen Beiträge Word Formate: Kopfzeile vieler Dokumente ändern ("Master-Dokument&quo 0 Christoph21 911 24. Sep 2010, 11:49
Christoph21 Kopfzeile vieler Dokumente ändern ("Master-Dokument&quo
Keine neuen Beiträge Word Formate: zwei dokumente zusammenfügen 1 Olli 88 3127 10. Mai 2010, 13:14
mojos zwei dokumente zusammenfügen
Keine neuen Beiträge Word Serienbriefe: Feldname vorhanden, Zusammenführen funkt. nicht, keine Daten 3 Puste_blume 993 19. Okt 2009, 14:52
Puste_blume Feldname vorhanden, Zusammenführen funkt. nicht, keine Daten
Keine neuen Beiträge Word VBA Programmierung (Makros): Mehrere Dokumente in einem Druckauftrag zusammenführen 1 Redoretso 2014 26. Aug 2009, 14:08
Redoretso Mehrere Dokumente in einem Druckauftrag zusammenführen
Keine neuen Beiträge Word VBA Programmierung (Makros): dokumente dynamisch zusammenführen ( kein Zentraldok) 5 lesly 2812 29. Jul 2009, 14:24
Amtmann dokumente dynamisch zusammenführen ( kein Zentraldok)
Keine neuen Beiträge Word Serienbriefe: Neues Leerdokument mit Verknüpfungen in andere Dokumente 1 alex.krumnow 1202 01. Jul 2009, 23:27
charlybrown Neues Leerdokument mit Verknüpfungen in andere Dokumente
Keine neuen Beiträge Word Formate: zwei PDF Dokumente zusammenführen 6 Gast7575 4130 26. Nov 2008, 15:33
CaBe zwei PDF Dokumente zusammenführen
 

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