ExcelVBAマクロについて確認させてください。

質問

ExcelVBAマクロについて確認させてください。

Wordファイルを開いて変数に保存するプログラムを作成したいのですが、下記の「With .Documents.Open(sFullPath)」のところで”型が一致しません。”と表示され、うまくいきません。
この原因は何か考えられるのでしょうか。

回避策をお教えいただければと思います。

Dim sFullPath As Variant
Dim moji As String

sFullPath　=　"C:\ドキュメント\test\AAAAA.docx"

With CreateObject("Word.Application")
With .Documents.Open(sFullPath)
moji = .Content.Text
.Close
End With
.Quit
End With

回答No.2

watabe007 · ベストアンサー

こちらでは問題なく実行されますよ
sFullPathが間違っているのでは
Sub Test()
　　Dim sFullPath As Variant
　　Dim moji As String
　　sFullPath = "F:\てすと.docx"
　　With CreateObject("Word.Application")
　　　　With .Documents.Open(sFullPath)
　　　　　　moji = .Content.Text
　　　　　　.Close
　　　　End With
　　　　.Quit
　　End With
　　MsgBox moji
End Sub

お礼

sFullPathの型が間違っていたことが原因でした。色々とアドバイスいただいたおかげで無事解決できました。よってベストアンサーに選ばせていただきます。
ありがとうございます。

回答No.3

watabe007

ドキュメント = MyDocuments なら試して下さい。
Sub Test()
Dim sFullPath As Variant
Dim moji As String
sFullPath = CreateObject("WScript.Shell").SpecialFolders("MyDocuments") & "\test\AAAAA.docx"
With CreateObject("Word.Application")
With .Documents.Open(sFullPath)
moji = .Content.Text
.Close
End With
.Quit
End With
MsgBox moji
End Sub

回答No.1

f272

私の作業環境では，そのような現象は確認できませんでした。問題なく動作します。
もう一度新しいファイルを作成して試してはどうですか？

お礼

sFullPathの型が間違っていたことが原因でした。
おかげさまで無事解決できました。
色々とアドバイスありがとうございます。