Dim objWDApp   As Word.Application
 
        Set objWDApp = CreateObject("Word.Application")
            With objWDApp
                .Visible = True
                .Activate
                .WindowState = wdWindowStateNormal
                .Documents.Add
            End With
 
        Set objWDApp = Nothing