Заменить все вкладки во всех текстовых файлах

Question

У меня есть папка с несколькими текстовыми файлами, и мне нужно заменить все вкладки в каждом файле пробелом.

Какой самый простой способ сделать это с VBA?

Заранее спасибо Джефф

Answer 1

Sub TabsToSpace()
    Dim f As String, pth As String

    pth = "your_directory_path\"

    f = Dir(pth & "*.txt")
    While f <> ""
        Documents.Open FileName:=pth & f

        With Selection.Find
            .Text = "^t"
            .Replacement.Text = " "
            .Forward = True
            .Wrap = wdFindContinue
            .Execute Replace:=wdReplaceAll
        End With

        ActiveDocument.Save
        ActiveDocument.Close

        f = Dir
    Wend
End Sub