Journal not working with office 365

Hi

I have a journal that worked fine until I upgraded to office365.

basically it opens a work document the takes some images from draughting and puts them in.

Anyone have any clue why it no longer works?

Regards
Martyn

' NX 6.0.4.3
' Journal created by rt134694 on Thu Mar 11 12:53:16 2010 GMT Standard Time
'
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF

Module NXJournal

Sub Main()
CopyDisplay()
Dim wrd = CreateObject("Word.Application")
wrd.Documents.Open("c:\PE551-01.doc",,True)
'wrd.Documents.Open("\\renport\QA\Procedures\PE551-01.doc",,True)
wrd.Visible = True
wrd.Selection.Paste

End Sub

Sub CopyDisplay()

Dim theSession As Session = Session.GetSession()
Dim theUfSession As UFSession = UFSession.GetUfSession()

Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
Dim workView As View = workPart.Views.WorkView

Dim viewScale As Double = workView.Scale

workView.SetScale(0.1)
Dim dispObjects() As DisplayableObject = workView.AskVisibleObjects()
workView.SetScale(viewScale)

For Each obj As DisplayableObject In dispObjects
obj.Blank()
Next

'EXPORT DISPLAY
Dim ufDisp As UFDisp = theUfSession.Disp
ufDisp.ExportWindowsMetaFile(UFDisp.WmfOutput.WmfToClipboard, "")

For Each obj As DisplayableObject In dispObjects
obj.UnBlank()
Next
End Sub
End Module