VBA in Access 2007 unable to open Word 2007

Dim dirf As String
    Dim rng As Range

    dirf = MFunctions.ReadFile("CC_FileDir.txt")

    mpath = "C:\" & dirf & "\Reports\Patient-Summary-for-Bob-Smith"

    Set wo = CreateObject("Word.Application")
   
   'Add a new document
    wo.Documents.Add
   
    'To speed the document creation
    wo.ScreenUpdating = False

    Set rng = wo.Application.ActiveDocument.Range
   
    wo.WindowState = wdWindowStateMaximize
   
    'Create the Title
    With rng
        .Paragraphs.Last.Range.Style = wdStyleHeading2
        .Text = "Hello World"
    End With
      

   
    wo.WindowState = wdWindowStateMaximize
    wo.ActiveDocument.SaveAs FileName:=mpath
    wo.Visible = True