Using Linq to get default in a Office 2007 word document : Descendants « XML LINQ « VB.Net

1. VB.Net
2. XML LINQ
3. Descendants

Using Linq to get default in a Office 2007 word document

  

Imports System
Imports System.Reflection
Imports System.Xml

Module Module1

    Sub Main()
        Dim xml As XElement = XElement.Load("XLINQ.xml")
        Dim w As XNamespace = "http://schemas.microsoft.com/office/word/2003/wordml"

        Dim defaultFonts As XElement = xml.Descendants(w + "defaultFonts").First()
        Console.WriteLine("Default Fonts: {0}", _
            defaultFonts.Attribute(w + "ascii").Value)

    End Sub
End Module

   
    
  

Related examples in the same category