Viewing Full-Screen a Word Document

I need help in viewing full-screen a Word document that has been opened from Excel. Here is my code....

Sub ViewDonorList()

       Dim WordApp As Word.Application
       Dim WordDoc As Object
       Dim objSel As Word.Selection
       Dim Path As String

       Path = ActiveWorkbook.Path
       Set WordApp = CreateObject("Word.Application")
       Set WordDoc = WordApp.Documents.Open(Path & "\Program Donor List.doc")
       Set objSel = WordApp.Selection
       WordApp.Visible = True
       objSel.HomeKey Unit:=wdStory
End Sub

I need to end up showing the open Word document and not my Excel Workbook

Suggestions please - Thanks