新建一个模块，把下面这段代码拷贝进去，然后在这段代码中间点一下鼠标（把光标移进去），然后按F5运行即可

Sub test()
    Dim fld As Field
    Dim tdf As TableDef
    Dim strTableName As String
    strTableName = "表1"
    
    For Each tdf In CurrentDb.TableDefs
        If tdf.Name = strTableName Then
            For Each fld In tdf.Fields
                fld.Name = Mid$(fld.Name, 5)
            Next
            Exit Sub
        End If
    Next
End Sub