- ベストアンサー
WORD VBAでテキストファイルを指定して...
WORD2002を使っています。 WORD VBAでダイアログボックスを表示させ、オープンするファイルを指定しようとしています。 Documents.Open FileName:=dlg.Name, ReadOnly:=True でオープンするファイルがテキストファイルだけなので、ダイアログボックスに表示するファイルをテキストファイルだけにしたいと思っています。 どのように変更すればいいのでしょうか?
- kihonkana
- お礼率81% (127/156)
- その他MS Office製品
- 回答数2
- ありがとう数2
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
単純なものなら、こちら↓みたいなものとか。 Sub TextFileOpen() ' '既定の保存先であるファイルの場所を開く 'テキストファイルのみを指定 ' With Dialogs(wdDialogFileOpen) .Name = "*.txt" .Show End With End Sub 既定のコマンド" FileOpen "と基本的に同じものです。 組み込みの [ファイルを開く]ダイアログにて表示される [ファイルの種類]が[テキストファイル]のみになるもの。 [ Dialogs プロパティ]のヘルプにも同じようなものが あります。
その他の回答 (1)
- nicotinism
- ベストアンサー率70% (1019/1452)
色々方法はあるかと思いますが・・ Sub OpenTxt() '要参照設定 Microsoft Office 10.0 Object Library With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = "C:\" '初期検索先指定 .Title = "ファイル選択 (複数選択不可)" .AllowMultiSelect = False '複数ファイル選択の許可 .Filters.Clear 'ファイルフィルタの設定 .Filters.Add "すべてのファイル", "*.*" .Filters.Add "Wordドキュメント", "*.doc" .Filters.Add "テキストファイル", "*.txt;*.log" '下の[3]はここの事 .FilterIndex = 3 '初期選択フィルタの設定 .ButtonName = "決定" 'ボタンの表示文字列の設定 'キャンセル時にはShowメソッドは0(Long型)を返す If CBool(.Show) Then Documents.Open FileName:=.SelectedItems(1), ReadOnly:=True End If End With End Sub
お礼
回答ありがとうございます。 今回は、No.2の方が簡単なので、そちらでやってみます。
関連するQ&A
- ACCESS VBA からのワードファイルの起動
ACCESS97を(未だに!)使用しています。 これから、VBAでワードの既存ファイルを起動したいと考えています。その際、ワードを新規に立ち上げることなく、表示して編集したいわけですが、どうしても新規に起動してしまします。 これまで試したのは、 Dim oApp As Object Set oApp = GetObject("", "word.Application") oApp.Visible = True oApp.Documents.Open FileName:="C:\filename.doc" および Dim oApp As Object Set oApp = CreatObject("word.Application") oApp.Visible = True oApp.Documents.Open FileName:="C:\filename.doc" などです。 しかし、すでにワードが起動していても、どうしても、新たにワードを立ち上げてしまいます。 解決策はあるでしょうか? ちなみにエクセルだと、GetObject で既に起動しているエクセルに追加でアプリが表示されます。
- 締切済み
- その他(データベース)
- Excel2010VBAからWordの呼び出し
お世話になります。 Excel2003VBAで、次の様にWordファイルをオープンしていました。 Dim boReadOnly As Boolean Dim objWord As Word.Application boReadOnly = True Set objWord = CreateObject("Word.Application") With objWord .Documents.Open toFullName, ReadOnly:=boReadOnly .Visible = True End With これを、Excel2010VBAへ移植すると、WordファイルがExecelの後方に隠れて表示されてしまいます。 暫定として、.Visibleの次行に、 .Activate を追加しています。これを行なうと、Startアイコンの→横に、Wordアイコンが点滅するので、 Wordがオープンした事はわかります。 Wordファイルを呼び出し元のExcelの前面に表示させるには、どうすればいいでしょうか? 御教示よろしくお願いします。
- ベストアンサー
- Visual Basic
- Word VBA: 任意の html ファイルをファイルを開くダイアログから開くには?
こんにちは、 Word VBA のことで質問があります。 今任意の html ファイルを[ファイルを開く]ダイアログから開くというマクロを作りたいので下記のプログラムを書きましたがこれではあらかじめファイル名やパスが指定されたものになってしまうので目的を満たせないと気づきました。。 Documents.Open メソッドではファイル名の指定が必須だそうですし、、そうするとほかに考えられる手段はどんなものか、 変数を使えばできそうですが、具体的にはどんなプログラムを組めばよいかなど悩んでいます。 ちなみにマクロを作成する環境は word 2003 です。 ***以下、現状のプログラム内容です。*** Private Sub OpenButton_Click() '任意の html ファイルを開き、[File Path] テキストフィールドへファイルのフルパスを表示します Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog( _ FileDialogType:=msoFileDialogOpen) With dlgOpen .AllowMultiSelect = False If .Show = -1 Then MainWindow.TextBox1 = .SelectedItems(1) Documents.Open FileName:="C:\test.html", Format:=wdOpenFormatEncodedText End If End With End Sub ************************************************************ 目的を満たすためにはどのようなプログラムをかけばよろしいのか どなたかご指導いただけませんでしょうか よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- ワード2000のVBAについて
ワード2000を使っています。 VBAで、ダイアログボックスを開き、指定したファイルのファイル名をフルパスで取得したいのですが、下記のコードでは、ファイル名しか取得できません。 どのようにしたら、フルパスを取得できるのでしょうか? たびたびすみませんが、誰か教えてください。 Dim Name With Dialogs(wdDialogFileOpen) If .Display = -1 Then Name = .Name End If End With MsgBox ("ファイル名は" & Name & "です。")
- ベストアンサー
- オフィス系ソフト
- WordのVBAで分からない所があります。
コードの中で以下を実行すると 実行時エラー5408 パスワードが正しくありません。 というのが表示されてしましまいます。 on error resume nextを直前に書いても表示されてしまいます。 パスワードが違う場合でも表示させたくないんですがどうしたらよいの でしょうか?(正しいパスワードになったら開くようにしたい。) Documents.Open fileName:=inputfile,PasswordDocument:=wrkString, ReadOnly:=True
- 締切済み
- Visual Basic
- EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
EXCELのVBAでマクロを使ってファイルを開こうとしている際、指定したファイルが存在しなかった場合、普通はマクロのエラーが出て「ファイルが存在しません」となりますが、指定したファイルが存在しなかった場合には、メッセージボックスを表示させ、そこで処理を中止させるか、または、その無いファイルの処理は飛ばして次のファイルの処理を行う用にさせることはできるでしょうか? Sub test1() Workbooks.Open Filename:="C:\Documents and Settings\001.xls (001が存在しない場合メッセージボックスを出しマクロを中止するか次の002を開くか選ぶ) Workbooks.Open Filename:="C:\Documents and Settings\002.xls End sub
- ベストアンサー
- オフィス系ソフト
- wordファイルを開いたときにフォーム表示
wordファイルを開いたときにフォーム表示するにはどうしたらよいでしょうか? VBAでUserForm1を作りそこのボタンをおきます。 押すとwordドキュメント内に"HELLO"と書きます。 この場合 ThisDocument.TextBox1.Text = "HELLO" でよろしいのでしょうか? wordドキュメント内にテキストボックスをおかなくても 表示させることは可能でしょうか?
- ベストアンサー
- オフィス系ソフト
- VBA
VBAでstrFILENAMEにaaa.xlsを代入したいのですがどうしたらいいのでしょうか? このままだと定義エラーになっていまします。 Dim wbk As Workbook Set wbk = Workbooks.Open(Filename:="C:\Documents and Settings\Administrator\デスクトップ\strFILENAME", ReadOnly:=True)
- ベストアンサー
- その他(プログラミング・開発)
- VBAでマクロ付きファイルを開く場合
こんにちは。 VBA初心者です。 VBA(Workbooks.Open Filename)を使ってマクロ付エクセルファイルを開こうとしたのですが、単体で開く時と違い「マクロを有効にするか無効にするか?」ダイアログが表示されません。 マクロを有効にしてファイルを開きたいのですが、これはダイアログが表示されていないだけで自動的に「マクロを有効」となってファイルが開いているのでしょうか?そうではない場合このダイアログを表示させるにはどうしたら良いでしょうか? 判りつらい説明で申し訳ありませんが、教えて下さい。
- ベストアンサー
- Visual Basic
- テキストファイルとして開くVBA
フォルダC:\Users\USER\Desktop\あいう において このダイアログを開いて そのなかのファイル(A.xml)を txtファイルとして開いて その名前を テキスト.txt として 同名で保存したいのですが Dim FileName As Variant Dim NewFile As TextFile FileName = Application.GetOpenFilename() Set NewFile = TextFile.Open(FileName) NewFile.SaveAs "テキスト.txt" Activetxtfile.SaveAs FileName:="C:\Users\PC\Desktop\あいう\テキスト.txt", FileFormat:=TextFile どうも違うようです 御教示ください
- 締切済み
- Visual Basic
お礼
回答ありがとうございます。 うまくいきました。