Mehrere Worddokumente zusammenführen

Question

Ich versuche, einen einfachen Code zu entwickeln, der mehrere kleine docx (oder rtf) in ein docx kombiniert.

Dokumenterstellung auf den folgenden Punkten aufbauen sollte:
1. i in Spalte A eine Liste mit den Namen der kleinen docs
2. in Spalte B eines von 2 Einträgen ist (ja/nein)
ex :

A  B 
    doc1 yes  
    doc2 no  
    doc3 yes  
    doc4 yes  
    doc5 no  

3. i bereits die Lage der kleinen docs in einer Zelle in dem Blatt 4. auch den Ort zugeführt, wo die neuen (fusionierten) doc

geliefert haben

unten platziert würde ein Sampl e des Codes

Application.ScreenUpdating = False 
strRandom = Replace(Replace(Replace(Now, ":", ""), "/", ""), " ", "") 
MergeFileName = "Merger" & strRandom & ".doc" 
MergeFolder = mainworkbook.Sheets("Main").Range("L10").Value 

Set objWord = CreateObject("Word.Application") 
Set objDoc = objWord.Documents.Add 
objWord.Visible = True 
Set objSelection = objWord.Selection 
'objSelection.TypeText ("Saving this file after this text") 
objDoc.SaveAs (MergeFolder & MergeFileName) 

For i = 1 To NoOfFiles 
    If Range("B" & i).Value = "Yes" Then 
     Set objTempWord = CreateObject("Word.Application") 
     Set tempDoc = objWord.Documents.Open(Folderpath & "\" & Range("A" & i).Value) 
     'Set wb = Documents.Open(MyPath & "\" & MyName) 
     Set objTempSelection = objTempWord.Selection 
     'objTempSelection.WholeStory 
     'Selection.Copy 
     tempDoc.Range.Select 
     tempDoc.Range.Copy 
     'Windows(1).Activate 
     'Selection.EndKey Unit:=wdLine 
     'objSelection.TypeParagraph 
     objSelection.PasteSpecial xlPasteAll 
     .InsertBreak wdPageBreak 
     tempDoc.Close 
    End If 
Next 

objDoc.Save 
Application.ScreenUpdating = True 
mainworkbook.Sheets("Main").Activate 
MsgBox "Completed...Merge File is saved at " & MergeFolder & MergeFileName 
FetchFileClicked = False 
End Sub 

das Problem mit diesem Code ist, dass es nie die temp doc tötet geöffnet, so hat ich 10 docs i mit 10 WINWORD Prozess am Ende zusammengeführt werden würde und keine MSWord Fenster. gibt es eine Möglichkeit, dieses Problem zu beheben. Ich habe gehört, dass, wenn ich alle kleinen Dokumente in .rtf konvertieren kann ich die Datei analysieren, ohne sie zu öffnen.

wird jede mögliche Hilfe viel

Answer 1

Nach einiger ernsthafter Fehlersuche habe ich es endlich zur Arbeit gebracht, und hier der Code unten.

Application.ScreenUpdating = False 
strRandom = Replace(Replace(Replace(Now, ":", ""), "/", ""), " ", "") 
MergeFileName = "Merger" & strRandom & ".doc" 
MergeFolder = mainworkbook.Sheets("Main").Range("L10").Value 

Set objWord = CreateObject("Word.Application") 
Set appWord = GetObject(, "Word.Application") 
Set objDoc = objWord.Documents.Add 

objWord.Visible = True 

Set objSelection = objWord.Selection 

objDoc.SaveAs (MergeFolder & MergeFileName) 

For i = 1 To NoOfFiles 
    If Range("B" & i).Value = "Yes" Then 
     myName = (Folderpath & "\" & Range("A" & i).Value) 

     With appWord.Selection 
     .InsertFile Filename:=myName 
     End With 

     With objWord.Selection 
     .Collapse Direction:=wdCollapseEnd 
     .InsertBreak Type:=7 
     End With 
    End If 
Next 

objDoc.Save 
Application.ScreenUpdating = True 
mainworkbook.Sheets("Main").Activate 
MsgBox "Completed...Merge File is saved at " & MergeFolder & MergeFileName 

PS: Dank Cyril für die Spitze war es der Schlüssel, der Schmerz von mir zu lösen

Answer 2

ich diesen Code bin Ziehen von einer Userform I aus einer Sammlung von Vorlagen Dokumente zu füllen verwenden zu erkennen ist, so meine Entschuldigung, wenn dies nicht genau arbeiten, wie ich beschreiben:

Sub Insert_File_From_Location() 

CreateObject (Word.Application.Documents.Add) 

If ComboBox1.Value = "blah" Then 
     Selection.InsertFile FileName:="C:\blah.docx" 
    Else: 
    End If 

End Sub 

Ich nahm alle anderen if-Anweisungen heraus, um es einfacher aussehen zu lassen.

Eine Möglichkeit besteht darin, den obigen Code zu nehmen und zu manipulieren, damit Ihre Column B-Zellen den ComboBox1.Value definieren (Ja/Nein-Einträge). Sie würden dann den Selection.InsertFile FileName: = direkt auf die Position verweisen, die in der angrenzenden Zelle in Spalte A definiert ist. Dies müsste eine dynamische Referenz sein, die eine Schleife durch die letzte Zeile verwendet.

Was ich nicht mache, ist das automatische Speichern des zusammengeführten Dokuments, da ich in der Regel den Inhalt bearbeiten und Abschnitte entfernen muss, die für einige Vorlagen in meiner Sammlung standardmäßig sind.

Hoffentlich hilft das, Karim! Wenn ich nur mit Word-Dokumenten (.doc oder .docx) arbeite, erscheinen zwar Prozesse in meinem Task-Manager, aber sie verschwinden, wenn die Einfügung abgeschlossen ist, und hinterlasse mir einen Word-Prozess für das geöffnete Dokument.

Answer 3

ist so etwas wie die Kombination mehrerer Word-Dokumente versuchen lassen; Sie müssen alle Inhalte eines jeden kopieren und alles in ein konsolidiertes Word-Dokument einfügen. Das kann sehr lange dauern, besonders wenn sich viele Dateien im Ordner befinden. Führen Sie einfach das unten stehende Skript aus, und der Code übernimmt die gesamte Arbeit für Sie.

Sub MergeAllWordDocs1() 
    Dim i As Long 
    Dim MyName As String, MyPath As String 
    Application.ScreenUpdating = False 
    Documents.Add 
    MyPath = "C:\Users\your_path_here\" ' <= change this as necessary 
    MyName = Dir$(MyPath & "*.do*") ' not *.* if you just want doc files 
    Do While MyName <> "" 
     If InStr(MyName, "~") = 0 Then 
      Selection.InsertFile _ 
    FileName:="""" & MyPath & MyName & """", 
      ConfirmConversions:=False, Link:=False, 
      Attachment:=False 
    Selection.InsertBreak Type:=wdPageBreak 
    End If 
     MyName = Dir() ' gets the next doc file in the directory 
    Loop 
End Sub