[GastForen Programme Office Microsoft Office Dir$() und Dateifilter (Word2010, Makro, Win7)

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

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

cwenet
Beiträge gesamt: 1054

26. Okt 2013, 11:48
Beitrag # 1 von 6
Bewertung:
(2641 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)
X

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

Klaus79
Beiträge gesamt: 320

28. Okt 2013, 13:41
Beitrag # 2 von 6
Beitrag ID: #519019
Bewertung:
(2589 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: 1054

29. Okt 2013, 18:31
Beitrag # 3 von 6
Beitrag ID: #519090
Bewertung:
(2552 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: 320

30. Okt 2013, 15:56
Beitrag # 4 von 6
Beitrag ID: #519132
Bewertung:
(2507 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: 1054

2. Nov 2013, 12:51
Beitrag # 5 von 6
Beitrag ID: #519237
Bewertung:
(2432 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: 320

2. Nov 2013, 21:25
Beitrag # 6 von 6
Beitrag ID: #519248
Bewertung:
(2401 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]
X

Aktuell

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.

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

Veranstaltungen
29.09.2022

IDUGS#85 Press2id

Zoom Meeting
Donnerstag, 29. Sept. 2022, 19.00 - 21.00 Uhr

Vortrag

Kennst du WordPress? Vielleicht. Verwendest du WordPress? Ja, klar! WordPress ist das am weitesten verbreitete System für die Erstellung von Webseiten. Um Webseitenbau soll es auf dieser IDUG aber nicht gehen. Gregor zeigt press2id (github.com/grefel/press2id). Seine Open-Source-Lösung für die Verbindung von Web und InDesign. Richtig gelesen: InDesign liest mithilfe von press2id die Inhalte der WordPress-Webseiten und generiert daraus Zeitschriften, Kataloge, Programmhefte oder Bierdeckel (das zeigen wir natürlich auch!). So wird die „Content First“ Theorie zu einer konkret anwendbaren Praxis, ohne gleich die ganz großen Räder zu drehen. Versprochen: Jeder kann nach der IDUG innerhalb kürzester Zeit Daten von WordPress nach InDesign importieren. Aber Achtung: Prinzipiell kann press2id aus jeder Website, oder besser Contentmanagementsystem (CMS) Daten auslesen und nach InDesign importieren! Spannend, oder? Danach geht es in die Praxis: Stefan hat die Webseite des Parktheater Iserlohn (parktheater-iserlohn.de) gestaltet. Die gedruckten Spielpläne (parktheater-iserlohn.de/interaktive-spielplaene) werden mit press2id realisiert. Wir schauen in den Maschinenraum und zeigen, wie die Lösung des Projekts realisiert wurde.

Nein

Organisator: InDesign Usergroup Stuttgart

Kontaktinformation: Christoph Steffens, E-Mailidug AT satzkiste DOT de

https://idugs85.eventbrite.de/

Von Wordpress nach InDesign
Veranstaltungen
08.11.2022

Frankfurt, Fraport Conference Center
Dienstag, 08. Nov. 2022, 13.30 - 18.00 Uhr

Seminar

Auf der Enfocus World Tour stellen wir Ihnen gemeinsam mit Enfocus die aktuellen Highlights von Enfocus Switch und dem Impressed Workflow Server (IWS) vor. Wir präsentieren Ihnen anhand typischer Aufgabenstellungen in einem modernen Produktionsbetrieb die Möglichkeiten, die Enfocus Switch für die Automatisierung und Standardisierung von Abläufen bietet. Wir haben sowohl für Produktionsverantwortliche als auch technisch Interessierte ein spannendes Programm vorbereitet, bei dem Sie sicherlich viel Neues erfahren werden, welches Sie in Ihrem eigenen Betrieb umsetzen können. Die Veranstaltung bietet darüber hinaus eine hervorragende Möglichkeit, sich mit anderen Anwendern und Workflow-Spezialisten auszutauschen und Antworten auf konkrete Aufgabenstellungen zu erhalten, welche Sie mit Hilfe von Enfocus Switch/IWS umsetzen möchten.

Wir sind jeweils an 2 Tagen in Frankfurt, Hamburg und München vor Ort. Der erste (halbe) Tag richtet sich in erster Linie an Betriebsleiter und Produktionsverantwortliche in Druckereien - ist also weniger technisch orientiert - sondern gibt einen Überblick zu den heutigen Möglichkeiten einer automatisierten Produktion.

Der zweite Tag (Switch Anwender-Treffen) richtet sich an bestehende Switch-Anwender und Administratoren.

Anmeldung und weitere Infos: https://www.impressed.de/schulung.php?c=sDetail&sid=310

Ja

Organisator: Enfocus/Impressed

Kontaktinformation: Silvia Noack, E-Mailsnoack AT impressed DOT de

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

Enfocus World Tour 2022