hallo,
kann mir jemand vielleicht sagen, wie ich an hand eines Makros mehrere Worddateien zusámmen fügen kann.
Danke
Gruss
Sandra
Kommt drauf an, was Du unter „zusammenfügen“ verstehst. Wenn es nur das „hinten dran kleben“ per Zwischenablage ist, sollte es kein größeres Problem sein, aber auch über „Einfügen als Datei“ sollte es gehen. Vielleicht gibt´s da noch mehr Wege.
Das Grundgerüst bekommst Du jedenfalls, wenn Du das einfach mal als Makro aufzeichnest. Die Feinheiten kommen dann mit der Hand. Wenn Du dazu Fragen hast, einfach nochmal nachhaken.
Kristian
Dieser Beitrag wurde von der Community gemeldet und ist vorübergehend ausgeblendet.
Das Ergebnis
ich habe in mehreren Foren nachgesehen und bin auf folgendes Ergenis gestoßen
Sub abc()
With Application.FileSearch
LookIn = „C:\deinOrdner“
SearchSubFolders = False
FileType = msoFileTypeWordDocuments
Execute (msoSortByFileName)
For i = 1 To .FoundFiles.Count
Selection.InsertFile .FoundFiles(i)
Next i
End With
End Sub
oder halt so
Sub abc()
Documents.Add
ChDir „C:\TMP“
myName = Dir("*.DOC")
While myName „“
With Selection
.InsertFile FileName:=myName, ConfirmConversions:=False
.InsertParagraphAfter
.InsertBreak Type:=wdSectionBreakNextPage
.Collapse Direction:=wdCollapseEnd
End With
myName = Dir()
Wend
End Sub
Trotzdem Danke!
Gruss
Sandra