打开没有扩展名的文件

Question

我的文件没有扩展名类型。我在用它们运行宏之前用Word手动打开它们。

我创建了第二个宏，它打开文件夹中的所有文件，然后运行另一个宏 - 如果文件有扩展名，我可以使用它。

有没有办法让第二个宏打开没有扩展名作为Word文档的文件？或者还有其他方法可以做到这一点吗？

Answer 1

选项1：在源头修复问题。无论您从获取这些文件，都要进行修复，以便文件具有扩展名。

选项2：分配扩展名：

Sub assign_extension()
Dim f
Dim FSO As Object
Const ext as String = ".txt"                       '### MODIFY AS NEEDED
Const path As String = "C:\Path\To Your Files\"    '### MODIFY AS NEEDED
Set FSO = CreateObject("Scripting.FileSystemObject")
f = Dir(path)
Do

    Debug.Print f
    If FSO.GetExtensionName(path & f) = vbNullString Then
        Name (path & f) As (path & f & ext)
    End If

    f = Dir()
Loop While f <> vbNullString

End Sub