Bug: VB.NET Compatibility Setting using LINQ

In my last post I showed how to change the target version of Word for a document using the Open XML SDK in order to ensure that “[Compatibility Mode]” does not appear in the document’s title bar. The code sample was in C#.

In this post I provide the code sample for VB.NET. Due to a bug in VB.NET Linq, it’s not possible to use the same “simple” approach as for C#. VB.NET Linq does not recognize the URI property as a property for the Compatibility Setting. The VB.NET equivalent of the C# approach (included near the end of the code sample, but commented out) causes an error.

So you have to go about it another way. Notice how it’s first necessary to create a new CompatibilitySetting, then set each property individually, rather than being able to create and set the properties in one efficient Linq command.

Private Sub AddSettingsToMainDocumentPart( _
                   ByVal part As MainDocumentPart)
  Dim hasSettings As Boolean = False
  Dim settings As Settings = Nothing
  Dim settingsParts As IEnumerable( _
      Of DocumentSettingsPart) = part.GetPartsOfType( _
                                Of DocumentSettingsPart)()
  Dim settingsPart As DocumentSettingsPart = Nothing
 'Check if document already has a settings part
  If settingsParts.Count < 1 Then
       settingsPart = part.AddNewPart( _
                      Of DocumentSettingsPart)()
       settingsPart = settingsParts(1)
       hasSettings = True
   End If
   If Not hasSettings Then
       settings = New Settings
       settings = settingsPart.Settings
   End If
   Dim compat As Compatibility = New Compatibility
   Dim compatSetting As CompatibilitySetting = _
       New CompatibilitySetting
   compatSetting.Name = New EnumValue( _
                       Of CompatSettingNameValues)( _
   compatSetting.Val = "14"
   compatSetting.Uri = _

   '''Using a Linq expression doesn't work due to bug
   'Dim compat As Compatibility = New Compatibility() {
   '    New CompatibilitySetting() {
   '        Name = New EnumValue( _
   '          Of CompatSettingNameValues)( _
   '        Val("14"),
   '        Uri = "http://schemas.microsoft.com/office/word"
   '      }}

End Sub

Leave a Reply