Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme mit Application.File Search 2010
 21.08.2014 12:35:09 Markus
NotSolved
21.08.2014 14:09:30 Gast23387
NotSolved

Ansicht des Beitrags:
Von:
Markus		 Datum:
21.08.2014 12:35:09		 Views:
1125		 Rating:
     
Antwort:
  Ja
Thema:
Probleme mit Application.File Search 2010

Hallo zusammen,

seit unsere Umstellung auf Office 2010 funktioniert ein makro nicht mehr da der Befehl Application.File Search nicht mehr genutzt werden kann.

Kann mir jemand helfen wie ich den Code umschreiben kann. Ich sitze schon seit 2 Tagen dran und alle Alternativen aus Google und CO haben mich nicht so richtig weiter gebracht.

Hier mal der Code der mich etwas nervt.

Function UpdateAllDocFiles(Foldername)
'Sucht alle Dateien mit der Endung .doc in der angegebenen Verzeichnisstruktur
'Und ruft die Formatierungsfunktionen auf
   
    Dim PHBFileName As Variant
    Dim PHBFile As Document
    With Application.FileSearch
        .FileName = "*." & strDocFileExtension
        .LookIn = Foldername
        .SearchSubFolders = True
        .Execute
        For Each PHBFileName In .FoundFiles
            If InStr(PHBFileName, Mid(strMacroFileName, 3)) = 0 Then
                Set PHBFile = Documents.Open(PHBFileName, AddToRecentFiles:=False, ReadOnly:=False, Visible:=False)
                UpdateDocFile (PHBFile.Name)
                'UpdateListFile (PHBFile.Name)
                PHBFile.Close saveChanges:=True
            End If
        Next
    End With
End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme mit Application.File Search 2010
 21.08.2014 12:35:09 Markus
NotSolved
21.08.2014 14:09:30 Gast23387
NotSolved