Demystifying Windows Setups

I haven't tested this macro, but it should work:
    Dim oFSO
    Dim tblFile, tblWiseSourcePath
    Dim rowFile, rowWiseSourcePath
    Dim fileVersion
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set tblFile = WTables("File")
    Set tblWiseSourcePath = WTables("WiseSourcePath")
    On Error Resume Next
    For Each rowFile In tblFile.WRows
        rowWiseSourcePath = tblWiseSourcePath.WRows(rowFile("File"))
        fileVersion = oFSO.GetFileVersion(rowWiseSourcePath("SourcePath"))
        If fileVersion <> "" Then
            rowFile("Version") = CStr(fileVersion)
        End If
    Next

The macro is triggered by the Save event.  If your SourcePath uses a path variable, you will need to resolve the path variable in the WisePathVariable table and use a string replacement on the value obtained from the SourcePath column in the WiseSourcePath table.  If you don't do this, the GetFileVersion method will fail because it is not a valid path.