Word VBAが働きを止めました

こんにちは、私たちはO365にアップグレードされたときに働くこのコードを持っています.私は誰にも疑問に思っていました.私はそのパスをチェックし、それはまだ同じです.コマンドボタンをクリックすると、受信したエラーは次のとおりです.run-timeエラー "75":
パス/ファイルアクセスエラー

これがコードです.

プライベートサブCOPY1_CLICK()
DIM STRLB1文字列として
Dim Strlb2文字列として
DIM STRLB3文字列として
DIM STRLB4文字列として
Dim Strlb5 String
ムードSTRLB6文字列として
String

Dim Strlb8文字列として
Dim TempFile
DIM FS
DIM FILespec

filespec= "s:\operations\crops\Plict Impact Statements\wc_impact_history \"
FS= CreateObject( "scripting.filesystemObject")を設定します. fs=何もない
ダイアログ(WDDialogFilesAveAS)を使用する Options.DefaultFilePath(WDDocumentspath)= "S:\Operations\Crops\Plict Impact Statements\WC_IMPACT_History \"
.format= wdformattext
.name= "" "" "" " tempfile= .name
#1 'として出力するためのテンプファイルを開くエラーが強調表示されている場所です.

i= 1からlsttextbox3.listcount
strlb1= strlb1&lsttextbox3.list(i-1)&";
次のi
strlb1= strlb1&lsttextbox3.listIndex

i= 1からlsttextbox1.listcount
strlb2= strlb2&lsttextbox1.list(i-1)&";
次のi
strlb2= strlb2&lsttextbox1.listIndex

i= 1からlsttextbox2.listcount
strlb3= strlb3&lsttextbox2.list(i-1)&";
次のi
strlb3= strlb3&lsttextbox2.listIndex

i= 1からlstextbox4.listcount
strlb4= strlb4&lsttextbox4.list(i-1)&";
次のi
strlb4= strlb4&lsttextbox4.listIndex

i= 1からlsttextbox5.listcount
strlb5= strlb5&lsttextbox5.list(i-1)&";
次のi
strlb5= strlb5&lsttextbox5.listIndex

i= 1からlsttextbox6.listcount
strlb6= strlb6&lsttextbox6.list(i-1)&";
次のi
strlb6= strlb6&lsttextbox6.listIndex

i= 1からlsttextbox7.listcount
strlb7= strlb7&lsttextbox7.list(i-1)&";
次のi
strlb7= strlb7&lsttextbox7.listIndex

i= 1からlsttextbox8.listcount
strlb8= strlb8&lsttextbox8.list(i-1)&";
次のi
strlb8= strlb8&lsttextbox8.listIndex

#1、cmdmode.value、impact.value、ck1.value、ck2.value、wlco1.value、wlco.value、woper.value、ck3.value、ck4.value、_
ck5.value、ck6.value、ck7.value、cmdriskwc.value、textbox6.value、textbox1.value、cmdriskwc1.value、textbox7.value、textbox3.value、_
wdetail.value、ck8.value、ck9.value、cmdprisk.value、textbox5.value、comments.value、cmdriskwc2.value、textbox13.value、textbox14.value、_
TextBox16.Value、TextBox15.Value、TextBox17.Value、CMDriskWC3.Value、TextBox12.Value、TextBox10.Value、TextBox11.Value、TextBox18.Value、_
TextBox19.Value、strlb1、strlb2、strlb3、strlb4、strlb5、strlb6、strlb7、strlb8
閉じる#1

の場合は終了



終了SUB