Type Info:
Datatype As XLIFFDatatypes
Dim ProjFile As ProjectFile Set ProjFile = Application.ActiveProjectFile If (ProjFile.Datatype = datatype_winres) Then [...] End If