Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Alle Worddoks eines Ordners in einer neuen Worddatei sammeln
zurück: Progressbar Control geht nicht mehr weiter: Dokument nicht speichern bzw. als andere Datei Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
puttes58
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Feb 2011, 01:05
Rufname:

Alle Worddoks eines Ordners in einer neuen Worddatei sammeln - Alle Worddoks eines Ordners in einer neuen Worddatei sammeln

Nach oben
       Version: Office 2007

Liebe Foristen,
ich möchte gerne alle Worddateien eines Ordners in einer neuen Worddatei sammeln. Bin allerdings ein Neuling in VBA. Kann mir jemand helfen?
LG
Puttes58
HermannL
Bisschen-was-Wisser


Verfasst am:
24. Feb 2011, 09:22
Rufname:
Wohnort: Köln


AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam - AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam

Nach oben
       Version: Office 2003

Moin Puttes58,
zufällig habe ich mir gestern mithilfe von René Probst was zusammengebastelt, allerdings für Word 2003. Vielleicht funktioniert's ja auch unter 2007:
Code:
Sub AlleDateienInVerzeichnisZusammenführen()
Application.ScreenUpdating = False
Documents.Add
Dim Wahl As String 'Deklaration ist hier wegen der *ByRef* Übergabe zwingend
Titel = "Wählen Sie einen Ordner aus" 'Erscheint als Titel im Dialogfeld
'explizite Basisverzeichnisvorgabe...
'Basis = "D:\EigeneDateien\leifeldh\Dokumente\"
'...oder alternativ implizite Basisverzeichnisvorgabe
Basis = Dialogs(wdDialogToolsOptionsFileLocations).Setting
If Not Right(Basis, 1) = "\" Then Basis = Basis & "\"
retcode = OrdnerAuswaehlen(Titel, Basis, Wahl)
If retcode = 4 Then MsgBox "Zusammenführen abgebrochen", vbExclamation
If retcode = 0 Then
  WordBasic.DisableAutoMacros 1
  ChDir Wahl
  aDok = Dir(Wahl & "\*.doc")
      If aDok <> "" Then
          Go4It (aDok)
      End If
  Do While (aDok <> "")
      aDok = Dir()
      If aDok <> "" Then
          WordBasic.DisableAutoMacros 1
          Go4It (aDok)
      End If
  Loop
End If
WordBasic.DisableAutoMacros 0
Application.ScreenUpdating = True
End Sub

Private Function Go4It(aDok) As Integer
  Dim oRange As Range
  Set oRange = ActiveDocument.Paragraphs.Last.Range
  If Not ActiveDocument.Content.Text = Chr(13) Then 'wenn nicht erstes Dokument
    oRange.InsertAfter Chr(13) 'Neuen Absatz einfügen
  End If
  On Error Resume Next
  oRange.InsertFile FileName:=aDok 'nächstes Quelldokument einfügen
  Fehler = Err.Number
  On Error GoTo 0
  Go4It = Fehler
End Function

Private Function OrdnerAuswaehlen(ByVal Titel As String, ByVal Basis As String, _
                                  Verz As String) As Long
  With Application.FileDialog(msoFileDialogFolderPicker)
    .Title = Titel
    .InitialFileName = Basis
    '.ButtonName = "Ok"
    If .Show = -1 Then
      Verz = .SelectedItems(1)
      If Right(Verz, 1) = "\" Then Verz = Left(Verz, Len(Verz) - 1) 'Normalisieren
    Else
      OrdnerAuswaehlen = 4
    End If
  End With
End Function

_________________
Gruß,
Hermann

Rückmeldung willkommen, aber bitte nicht per PN!
puttes58
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Feb 2011, 11:19
Rufname:

AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam - AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam

Nach oben
       Version: Office 2007

Leven Herrman,
ein kölsches Danke in mein geliebtes Rheinland. Werde mich mal daran machen das alles zu verstehen. Habe früher mal Algol und Fortran programmiert. Das hier ist doch etwas anderes. Aber wer rastet der rostet. Über des Erfolg bzw. Mißerfolg werde ich Dir berichten.
Aus Berlin grüßt
Puttes58 (heeß op kölsch Döppekooche)
HermannL
Bisschen-was-Wisser


Verfasst am:
24. Feb 2011, 11:40
Rufname:
Wohnort: Köln

AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam - AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam

Nach oben
       Version: Office 2007

Moin,
mein Lilliput-Wörterbuch Kölsch sagt mir als Imi aber, dass Puttes "dicker Bauch" oder dicke Person" bedeutet Wink

_________________
Gruß,
Hermann

Rückmeldung willkommen, aber bitte nicht per PN!
puttes58
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Feb 2011, 17:10
Rufname:

AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam - AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam

Nach oben
       Version: Office 2007

Hallo Hermann,
Dein Wörterbuch stimmt auch mit meinem Bauch überein. Bei Gelegenheit sende ich Dir mal das Rezept. Im tiefsten Rheinland ist es Brauch, zu St. Martin sowas zu essen.
Hier mal ein Link
http://www.chefkoch.de/rezepte/336241117227369/Puttes.html
Gruß
Puttes58
PS: werde mir am WE mal mein VBA Buch zur Hand nehmen und schauen ob ich klar komme. Mit 68 ist man ja nicht mehr der Jüngste, nochmal Danke!
puttes58
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Feb 2011, 18:36
Rufname:

AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam - AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam

Nach oben
       Version: Office 2007

Hallo Hermann,
es hat funktioniert, ich weis allerdings nicht warum. Muß auf dem Gebiet noch viel lernen. Pumpen und Turbinen konstruieren ist doch einfacher. Lieben Dank nochmal und schöne Tage in der Altstadt. Ich versuche in der nächsten Woche mich mit meinem kölner Enkel ins Getümmel zu stürzen
Alaaf
Puttes58
HermannL
Bisschen-was-Wisser


Verfasst am:
25. Feb 2011, 09:35
Rufname:
Wohnort: Köln


AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam - AW: Alle Worddoks eines Ordners in einer neuen Worddatei sam

Nach oben
       Version: Office 2007

Moin Puttes,
na dann viel Spaß. Ich ha mit Karneval nichts am Hut (typischer Norddeutscher).

_________________
Gruß,
Hermann

Rückmeldung willkommen, aber bitte nicht per PN!
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 VBA Programmierung (Makros): Makro aus Vorlage beim Erstellen eines neuen Dokuments öffne 5 CrowdWiggel 101 05. Dez 2013, 11:55
MWOnline Makro aus Vorlage beim Erstellen eines neuen Dokuments öffne
Keine neuen Beiträge Word Formate: Möchte alle Bilder in WORD-Datei schnell verkleinern! 12 Merkur 8518 11. Nov 2013, 14:11
G.O.Tuhls Möchte alle Bilder in WORD-Datei schnell verkleinern!
Keine neuen Beiträge Word Formate: Formatvorlagen leeren und mit neuen überschreiben 5 x33o 407 25. Sep 2013, 11:53
x33o Formatvorlagen leeren und mit neuen überschreiben
Keine neuen Beiträge Word VBA Programmierung (Makros): Inhalt der Worddatei wird in Listbox falsch angezeigt 16 Jango_Five 309 29. Jul 2013, 07:30
r.mueller Inhalt der Worddatei wird in Listbox falsch angezeigt
Keine neuen Beiträge Word VBA Programmierung (Makros): Indexeinträge sammeln 2 Chrisly 188 10. Feb 2012, 19:37
r.mueller Indexeinträge sammeln
Keine neuen Beiträge Word VBA Programmierung (Makros): Probleme bei Dokumenten mit einer neuen Vorlage 10 Cokeat3grade 183 20. Jan 2012, 19:59
Cokeat3grade Probleme bei Dokumenten mit einer neuen Vorlage
Keine neuen Beiträge Word VBA Programmierung (Makros): Worddatei per Makro an eine andere Worddatei anfügen 1 timofey 397 17. Mai 2011, 15:52
r.mueller Worddatei per Makro an eine andere Worddatei anfügen
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 VBA Programmierung (Makros): AddIn welches den Schreibschutz von Worddoks überprüft 1 SB.Eric.77 585 03. März 2010, 13:33
SB.Eric.77 AddIn welches den Schreibschutz von Worddoks überprüft
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 VBA Programmierung (Makros): auslesen einer word-datei nicht möglich. dokument gesperrt!? 3 nylez 5253 05. Aug 2009, 11:58
jak21 auslesen einer word-datei nicht möglich. dokument gesperrt!?
Keine neuen Beiträge Word VBA Programmierung (Makros): Text aus geöffneter Word-Datei in neue mail einfügen... 2 pro-e_girl 1814 07. Jul 2009, 11:04
pro-e_girl Text aus geöffneter Word-Datei in neue mail einfügen...
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project