Dim l As Long = System.Environment.TickCount
 
        Dim wrd As New Microsoft.Office.Interop.Word.Application
        Dim doc As Microsoft.Office.Interop.Word.Window
 
        wrd.Documents.Add()
        doc = wrd.Options.Application.ActiveWindow
 
        doc.View.ShowBookmarks = True
        doc.View.ShowTabs = True
        doc.View.ShowSpaces = True
        doc.View.ShowParagraphs = True
        doc.View.ShowHyphens = True
        doc.View.ShowHiddenText = True
 
        wrd.Visible = True
 
         MsgBox((Environment.TickCount - l) / 1000)

Gru?
(Bash)