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
|