0

以下のコードは Windows 7 で問題なく動作しています。XP に Microsoft Word がインストールされていません。これがエラーの原因ですか? 私はvbscriptが初めてです。これに対する解決策は何ですか？

Const msoFileDialogOpen = 1

Set fso = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application")
Set WshShell = CreateObject("WScript.Shell")

strInitialPath = WshShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Desktop\"

objWord.ChangeFileOpenDirectory(strInitialPath)

With objWord.FileDialog(msoFileDialogOpen)

   .Title = "Select the file to process"
   .AllowMultiSelect = False

   .Filters.Clear

   .Filters.Add "All Files", "*.*"
   .Filters.Add "Excel Files", "*.xls;*.xlsx"
   .Filters.Add "Text Files", "*.txt"
   .Filters.Add "Various Files", "*.xls;*.doc;*.vbs"
   If .Show = -1 Then  'short form

      For Each File in .SelectedItems  'short form
         Set objFile = fso.GetFile(File)
         WScript.Echo objFile.Path
      Next    
   Else 
   End If
End With

'Close Word
objWord.Quit
4

1 に答える 1

2

はい、MS Word がコンピューターにインストールされていない場合、「Word.Application」はシステムに存在しないため作成できません。

これを解決する最も簡単な方法は、コンピューターに MSWord をインストールすることです。難しい方法は、activeX アセンブリとその依存関係を見つけて、コンピューターのマニュアルに登録することです。

http://www.nirsoft.net/utils/axhelper.htmlを使用して、コンピューターにインストールされている ActiveX コンポーネントのリストを確認できます。

-- MS Word の代わりに Openoffice で解決できますか?

もちろん、このリンクをチェックしてください

于 2012-11-20T07:48:08.933 に答える