Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Alle Dateien aus Ordner drucken (bestimmtes Format)
zurück: Probleme mit der Anzeige von Vorlagen bei Datei-NEU weiter: Liste der "Zuletzt verwendete Vorlagen" ausweiten 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
Meffo87
Gast


Verfasst am:
22. März 2013, 12:06
Rufname:

Alle Dateien aus Ordner drucken (bestimmtes Format) - Alle Dateien aus Ordner drucken (bestimmtes Format)

Nach oben
       Version: Office 2003

Guten Tag zusammen,

ich habe ein kleines Problem. Habe mit dem Makroaufzeichner schon folgendes Makro erstellt.
Jetzt möchte ich gerne das ich am Anfang des Makros:
1. einen Ordner auswählen, wo alle TXT.Dateien drin sind.
2. Dateikonvertierung - Windows(Standard) für jede Datei wählen
3. folgendes Makro pro Datei durchführen
4. Alle Dateien schließen ohne zu speichern

Könne mir jemand bitte helfen und das Makro so erweitern... Bin einfach noch nicht so weit um so etwas zu können, danke!

Makro:
Code:

Sub SammelblaetterGL()
'
' SammelblaetterGL Makro
' Makro aufgezeichnet am 29.01.2013 von nmeffert
'
    Selection.WholeStory
    Selection.Font.Size = 9
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(2.03)
        .BottomMargin = CentimetersToPoints(2.03)
        .LeftMargin = CentimetersToPoints(2)
        .RightMargin = CentimetersToPoints(2.5)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(21)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
    ActivePrinter = "\\LUXPRT005\PRT-SO-BMH-003"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
    ActiveWindow.Close
End Sub


vielen Danke und Grüße
meffo87[/code]
chakko
Im Profil kannst Du frei den Rang ändern


Verfasst am:
11. Apr 2013, 17:14
Rufname:

AW: Alle Dateien aus Ordner drucken (bestimmtes Format) - AW: Alle Dateien aus Ordner drucken (bestimmtes Format)

Nach oben
       Version: Office 2003

Hi,

versuch mal das:

Code:
Sub Verzlesen()
Dim cFile As String
cFile = Dir("F:\meinpfad\*.txt") ' Alle Textdateien im Verzeichnis ausgeben Pfad anpassen !!!
Do While cFile <> "" ' Wiederholen bis cFile=""
 
  Documents.Open FileName:=cFile, ConfirmConversions:= _
        False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
        Encoding:=1252
  SammelblaetterGL
  ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

  cFile = Dir
 
Loop
   
End Sub


Sub SammelblaetterGL()
'
' SammelblaetterGL Makro
' Makro aufgezeichnet am 29.01.2013 von nmeffert
'
    Selection.WholeStory
    Selection.Font.Size = 9
    With ActiveDocument.Styles(wdStyleNormal).Font
        If .NameFarEast = .NameAscii Then
            .NameAscii = ""
        End If
        .NameFarEast = ""
    End With
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(2.03)
        .BottomMargin = CentimetersToPoints(2.03)
        .LeftMargin = CentimetersToPoints(2)
        .RightMargin = CentimetersToPoints(2.5)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(29.7)
        .PageHeight = CentimetersToPoints(21)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With
    ActivePrinter = "\\LUXPRT005\PRT-SO-BMH-003"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
    'ActiveWindow.Close
End Sub


in der letzten Zeile Deines Codes muss ActiveWindow.Close weg


und den Pfad cFile = Dir("F:\meinpfad\*.txt") musste natürlich anpassen und da Deinen Pfad angeben
Gruß

Chakko
alsimera
Office Anwender mit Grundkenntnissen in VBA


Verfasst am:
30. Apr 2014, 13:27
Rufname:
Wohnort: Allmendingen

AW: Alle Dateien aus Ordner drucken (nur PDF) - AW: Alle Dateien aus Ordner drucken (nur PDF)

Nach oben
       Version: Office 2010

Hallo zusammen,

kann man dieses Makro umbauen, dass nur PDF-Dateien gedruckt werden?

Wäre mir ne große Hilfe.

Danke schon im Voraus

_________________
Wenn die Menschen nur über das redeten, was sie verstehen, dann wäre es sehr ruhig auf der Welt!
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 Serienbriefe: Seriendruckfeld nur anzeigen/drucken wenn Bedingung erfüllt 4 PeterLustig 7460 19. Feb 2014, 23:32
MarkMH_K Seriendruckfeld nur anzeigen/drucken wenn Bedingung erfüllt
Keine neuen Beiträge Word Serienbriefe: Problem bei Etiketten-Seriendruck: Etiketten im A6 Format 1 lisalee 2505 09. Sep 2010, 22:49
charlybrown Problem bei Etiketten-Seriendruck: Etiketten im A6 Format
Keine neuen Beiträge Word Serienbriefe: 2 Dateien (*.dot) zusammenführen? 1 Talya 1881 13. Apr 2010, 10:56
charlybrown 2 Dateien (*.dot) zusammenführen?
Keine neuen Beiträge Word Serienbriefe: Serienbrief beidseitig drucken - Probleme 3 Allgaier 2933 25. Feb 2010, 15:03
Allgaier Serienbrief beidseitig drucken - Probleme
Keine neuen Beiträge Word Serienbriefe: Serienbrief Word2000 - leere Seiten beim Drucken 10 Tevil 9185 15. Jan 2010, 10:51
Tinchenfc Serienbrief Word2000 - leere Seiten beim Drucken
Keine neuen Beiträge Word Serienbriefe: Etiketten drucken aus Word-Tabelle 5 Birgitta 2739 26. Nov 2009, 16:35
charlybrown Etiketten drucken aus Word-Tabelle
Keine neuen Beiträge Word Serienbriefe: verlinktes Datumsfeld wird im falschen Format angezeigt 2 skorwi 1447 03. Aug 2009, 14:26
charlybrown verlinktes Datumsfeld wird im falschen Format angezeigt
Keine neuen Beiträge Word Serienbriefe: Platzhalter (Quick Parts) nicht drucken wenn leer 0 officer7 2884 30. Jul 2009, 14:36
officer7 Platzhalter (Quick Parts) nicht drucken wenn leer
Keine neuen Beiträge Word Serienbriefe: Word Serienbrief Seite von bis Drucken ? 1 Coolsero 4231 17. Apr 2009, 11:05
Schneewittchen Word Serienbrief Seite von bis Drucken ?
Keine neuen Beiträge Word Serienbriefe: Format der Felder wird nicht richtig übernommen 6 fruchtzwerg0403 3723 31. Okt 2008, 08:34
fruchtzwerg0403 Format der Felder wird nicht richtig übernommen
Keine neuen Beiträge Word Serienbriefe: nur ganzbestimmte Datensätze in Serienbrief drucken 1 Gast 3054 21. Nov 2007, 21:41
CaBe nur ganzbestimmte Datensätze in Serienbrief drucken
Keine neuen Beiträge Word Serienbriefe: Serienbrief -- große Probleme beim Drucken 5 mary-lou 1849 30. Jun 2007, 13:06
lala Serienbrief -- große Probleme beim Drucken
 

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