Dir$() und Dateifilter (Word2010, Makro, Win7)

[Gast] Foren Programme Office Microsoft Office Dir$() und Dateifilter (Word2010, Makro, Win7)

Office - Alles fürs Büro

Themen

Beiträge

Moderatoren

Letzter Beitrag

Microsoft Office

1624

6235

29. Feb 2024, 08:40

mudelinchen

cwenet

Beiträge gesamt: 1139

26. Okt 2013, 11:48
Beitrag # 1 von 6
Bewertung:
(2740 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Guten Tag,

folgendes Makro findet in einem zuvor ausgewählten Ordner alle doc und docx Dateien.
Wie kann ich auch noch rtf Dateien berücksichtigen?

Code

Sub filtertest() 
 
Dim strFileName As String 
Dim strPath As String 
Dim fDialog As FileDialog 
 
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker) 
    With fDialog 
        .Title = "Bitte Ordner wählen und OK klicken." 
        .AllowMultiSelect = False 
        .InitialView = msoFileDialogViewList 
        If .Show <> -1 Then 
            MsgBox "Vorgang durch Benutzer abgebrochen", , _ 
                   "Word Makros" 
            Exit Sub 
        End If 
        strPath = fDialog.SelectedItems.Item(1) & "\" 
    End With 
     
    'doc und docx dokumente verarbeiten 
    strFileName = Dir$(strPath & "*.doc") 
     
    While Len(strFileName) <> 0 
        WordBasic.DisableAutoMacros 1 
        MsgBox (strPath & strFileName) 
       
                         
        strFileName = Dir$() 
        WordBasic.DisableAutoMacros 0 
        
    Wend 
 
 
End Sub

Bitte um Hilfe.

Gruss
Christoph

(Dieser Beitrag wurde von cwenet am 26. Okt 2013, 11:49 geändert)

Dir$() und Dateifilter (Word2010, Makro, Win7)

Klaus79

Beiträge gesamt: 341

28. Okt 2013, 13:41
Beitrag # 2 von 6
Beitrag ID: #519019
Bewertung:
(2688 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Hallo Christoph,
ungetestet:

strFileName = Dir$(strPath & "*.doc, *.rtf")

Und das sollte in jedem fall funktionieren:

Dim strPath As Variant
strPath = Application.GetOpenFilename(*.doc; *.rtf")
If strPath = False Then Exit Sub

Gruß
Klaus

als Antwort auf: [#518971]

Dir$() und Dateifilter (Word2010, Makro, Win7)

cwenet

Beiträge gesamt: 1139

29. Okt 2013, 18:31
Beitrag # 3 von 6
Beitrag ID: #519090
Bewertung:
(2651 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Hallo Klaus,

danke für Deine Antwort.

Ersteres hatte leider nicht funktioniert.

Beim Zweiten bin ich mir nicht sicher, wie ich es anwenden soll.
So habe ich es mal versucht.
Methode oder Datenobjekt nicht gefunden lautet die Fehlermeldung.

Code

Dim strFileName As String 
Dim strPath As Variant 
Dim fDialog As FileDialog 
  
    Set fDialog = Application.FileDialog(msoFileDialogFolderPicker) 
    With fDialog 
        .Title = "Bitte Ordner wählen und OK klicken." 
        .AllowMultiSelect = False 
        .InitialView = msoFileDialogViewList 
        If .Show <> -1 Then 
            MsgBox "Vorgang durch Benutzer abgebrochen", , _ 
                   "Word Makros" 
            Exit Sub 
        End If 
        strPath = Application.GetOpenFilename("*.doc; *.rtf") 
    End With 
      
    'doc und docx dokumente verarbeiten 
    strFileName = Dir$(strPath) 
      
    While Len(strFileName) <> 0 
        WordBasic.DisableAutoMacros 1 
        MsgBox (strPath & strFileName) 
        
                          
        strFileName = Dir$() 
        WordBasic.DisableAutoMacros 0 
         
    Wend

Hast Du noch eine Idee?
Gruß
Christoph

als Antwort auf: [#519019]

Dir$() und Dateifilter (Word2010, Makro, Win7)

Klaus79

Beiträge gesamt: 341

30. Okt 2013, 15:56
Beitrag # 4 von 6
Beitrag ID: #519132
Bewertung:
(2606 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Hallo Christoph,
ich muss ein wenig im Trüben fischen weil ich einen Mac habe -
und da sieht es natürlich komplett anders aus.

Versuch mal

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = "Bitte Ordner wählen und OK klicken."
.AllowMultiSelect = False
.InitialView = msoFileDialogViewList 'braucht es diese Zeile wirklich?
.Filters.Clear
.Filters.Add "Word-Dateien", "*.doc", 1
.Filters.Add "Text-Dateien", "*.rtf", 2
.ButtonName = "wählen"
.Show
On Error Resume Next
strFileName = .SelectedItems(1)
If Err <> 0 Then
MsgBox "Vorgang durch Benutzer abgebrochen", vbInformation + vbOKOnly, "Fehler"
Else
End If
On Error GoTo 0
End With

Wenn's auch nicht hilft und hier niemand weiter weis
empfehle ich dieses Forum:
http://www.office-loesung.de/viewforum4_0_0.php

Gruß
Klaus

als Antwort auf: [#519090]

Dir$() und Dateifilter (Word2010, Makro, Win7)

cwenet

Beiträge gesamt: 1139

2. Nov 2013, 12:51
Beitrag # 5 von 6
Beitrag ID: #519237
Bewertung:
(2531 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Lieben Dank Klaus,

für Deine Mühe. Es scheint auf dem Mac wohl doch etwas anders zu laufen.

Ich habe nun folgende Abfrage genutzt:

Code

If (gFileExtension(strFileName) = "doc") Or (gFileExtension(strFileName) = "docx") Or (gFileExtension(strFileName) = "rtf") Then

mit dieser Funktion:

Code

'Funktion für Dateiendung 
Public Function gFileExtension(ByVal sFileTitle As String) _ 
      As String 
'Argument: Dateiname ohne Pfad 
'Rückgabe: Kennung/Endung 
 
  Dim nPos As Long 
 
  nPos = InStrRev(sFileTitle, ".") 
  If nPos <> 0 Then 
    gFileExtension = Mid(sFileTitle, nPos + 1) 
  End If 
End Function

Schöne Grüße
Christoph

als Antwort auf: [#519132]

Dir$() und Dateifilter (Word2010, Makro, Win7)

Klaus79

Beiträge gesamt: 341

2. Nov 2013, 21:25
Beitrag # 6 von 6
Beitrag ID: #519248
Bewertung:
(2500 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

Hallo Christoph,
danke für Deine Rückmeldung.

Die Funktion mit der Abfrage werde ich mir auch mal bunkern -
für den Fall der Fälle ...

Gruß
Klaus

als Antwort auf: [#519237]

Aktuell

Diverses

axaio veröffentlicht neue MadeToTag-Version 2.9.126

| 12.09.2023

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen

14.05.2024

Einsparpotenziale in der Weiterverarbeitung

Online
Dienstag, 14. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Prozessoptimierung ist ein Teamsport! Keine Software und keine Maschine allein kann Ihnen helfen, die Effizienzpotenziale Ihres Betriebes maximal auszuschöpfen. Von der Auftragsannahme über die Vorstufe und den Druck bis hin zur Weiterverarbeitung – alles muss optimal ineinandergreifen. Apropos Weiterverarbeitung – in vielen Druckbetrieben fristet sie in Sachen Prozessoptimierung immer noch ein Schattendasein. Dabei liegen hier mittlerweile die größten Einsparpotenziale! In einem Webinar von Horizon und Impressed erfahren Sie, wie Sie diese Einsparungen realisieren können. Horizon, bekannt für innovative Lösungen in der Druckweiterverarbeitung, bietet mit iCE LiNK eine Workflowlösung für die Weiterverarbeitung. iCE LiNK überwacht, visualisiert und analysiert Produktionsabläufe und unterstützt bei der Wartung – damit immer alles reibungslos läuft. Den gleichen Anspruch hat der von Impressed entwickelte Impressed Workflow Server – er ist die smarte PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt. Im Webinar zeigen Ihnen die Experten von Horizon und Impressed, wie beide Lösungen im Team die Effizienz und Produktivität Ihres Betriebes steigern können. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Organisator: Impressed / Horizon

https://www.impressed.de/schulung.php?c=sDetail&sid=327

Einsparpotenziale in der Weiterverarbeitung

Veranstaltungen

16.05.2024

Und es geht doch: Automatisierung im Großformatdruck!

Online
Donnerstag, 16. Mai 2024, 10.00 - 10.30 Uhr

Webinar

Komplizierte, kleinteilige Aufträge; alles sehr speziell; seit Jahren bewährte Prozesse – da können wir nichts standardisieren und automatisieren! Das sagen viele Großformatdrucker – aber stimmt das wirklich, ist dem tatsächlich so? Günther Business Solutions und Impressed treten in einem Webinar den Gegenbeweis an. Experten beider Unternehmen zeigen, wie Großformatdrucker vom Einsatz zweier bewährter Lösungen profitieren können: • von advanter print+sign von Günther Business Solutions, dem ERP-System für den Großformatdruck, dass alle Phasen der Wertschöpfung im Large Format Printing abdeckt • von Impressed Workflow Server, der smarten PDF-Workflow-Lösung für Druckereien, die Datenmanagement, Preflight und Produktionssteuerung übernimmt Über die Kombination beider Lösungen können Großformatdrucker ihre Prozesse mit modernen Workflows Schritt für Schritt automatisieren – und so zügig deutliche Zeit- und Kosteneinsparungen realisieren. Das Webinar sollten Sie sich nicht entgehen lassen – damit Sie keine Effizienzpotenziale mehr liegen lassen. Melden Sie sich am besten gleich an, wir freuen uns auf Sie! PS: Melden Sie sich in jedem Fall an – sollten Sie zum Termin verhindert sein, erhalten Sie die Aufzeichnung.

kostenlos

Nein

Organisator: Impressed / Günther Business Solutions

https://www.impressed.de/schulung.php?c=sDetail&sid=326

Und es geht doch: Automatisierung im Großformatdruck!

Weitere Events

Neuste Foreneinträge

Switch/PitStop: Sprachdatei vom Report ändern

Mit Preflight Registerfarbe ALL nach Grau konvertieren geht nicht

Absatzsetzer in CC24 ME lösen Probleme aus

Quark Objekte lassen sich nicht neben Layout ziehen.

Barrierefreie PDFs | Mögliche unangebrachte Verwendung des Strukturelements xy

Barrierefreiheit in indesign 2022: figure-Tags haben als Attributobjekt "block" statt "inline"?

Kontrollkästchen in PDF-Formular

Indesign Tabelle ausrichten

Mehrfach geschichtete und übereinander gelagerte PDFs bereinigen

InDesign 19.2 konvertiert 19.3-Dateien beim Öffnen ungefragt

Weitere Stellenangebote