| |
エラーが出ましたか？
実のところ、なぜかは判らないのですが、、
できることを回答しておきます。
「ユーザ定義型は定義されていません」表示の件：
申し遅れましたが、私の環境はWord 2002です。
（当方では、エラーが再現されませんでした。）
2000と2002でVBAの仕様に大幅な変更はないハズなのですが・・・
取り敢えず、Dim文を変更して、「Dim myDlgPick As Variant」で逃げる。
それでもエラーが発生する場合は、参照設定を確認して下さい。
私の環境下の参照設定は、次の4つにチェックボックスがオンになっています。
（「標準状態」です。Word 2000の場合は「10.0」が「9.0」になっていると思います。）
Visual Basic For Applications
Microsoft Word 10.0 Object Library
OLE Automation
Microsoft Office 10.0 Object Library
Variant指定が気になる場合は、
「Set myDlgPick = Application.FileDialog(msoFileDialogFilePicker)」の次に
「MsgBox TypeName(myDlgPick)」を追加して、実行テストをして頂き、
表示された文字列を「Dim myDlgPick As 」の後に付ける。
それから、「テキストファイルの収納された場所に関する記述」の件
ダイアログボックスが表示されれば、
挿入したいファイルを選ぶことができるわけですが、
「With myDlgPick 〜 End With」中の「.InitialFileName = 」に
「"C:\Documents and Settings\monkey\デスクトップ"」を指定して下さい。
（私の作ったマクロでは、実行テストの都合で
「"C:\Documents and Settings\User\My Documents\Zzz"」を指定しています。）
その上で、Wordを起動した直後の状態で処理を実行してみて下さい。
（元々、他のファイルを開いていると、前処理で処理を止めるようにしていますが・・・）
|
|
H. C. Shinopy
- 05/9/21(水) 23:29 -
