打开没有扩展名的文件

Question

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

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

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

Answer 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

打开没有扩展名的文件

Open files with no extension

vba

ms-word

docx

file-extension