メーリングリストアーカイブ

メーリングリストアーカイブ [記事番号:3892]

[windows:3892] WORD2000のキーボードマクロについて教えてください。


　ＭＬの皆様、はじめまして。　はせがわ・つ＠東京です。

　WORD2000で、下記のワード文書の中から、目的のファイル名を範囲選択して、
新しいWORDを開いて読み込むためのキーボードマクロを作ってみましたが、
ファイル名がキーボードを登録した時のファイル名のままになっており、目的の
動作が実現できません。

　VBAのことは、全く分かりませんので、どなたかアドバイスをいただければ大変
助かります。

［00目次.DOC の内容説明］
C:\yubin\01101.TXT , 北海道札幌市中央区
^^^^^^^^^^^^^^^^^^   ～～～～～～～～～

^ の部分は、ファイル名です。
～の部分は、見出しです。

［見出しの内容を閲覧する手順］
○目的の市区町村名を検索して、その行に移動する。
（以下がキーボードマクロに登録する操作です。）
○現在カレットは、検索文字の上にあるので、 Homeキーで行頭の C に移動します。
○Shiftキーを押しながら右矢印キーで C:\yubin\01101.TXT を範囲選択します。
○Ctrl+c でコピーします。
○範囲選択を解除するため、左カーソルを１回押します。
○Ctrl+O で［ファイルを開く］ダイアログボックスを開きます。
○Ctrl+V で［ファイル名］エディットボックスに貼り付けます。
○エンターキーを押すと、「北海道札幌市中央区」のファイルが表示されます。

（上の操作をした時、下のような内容になります。）
Attribute VB_Name = "NewMacros"
Sub Macro1()
Attribute Macro1.VB_Description = "記録日 01/04/09 記録者 はせがわ"
Attribute Macro1.VB_ProcData.VB_Invoke_Func = "Project.NewMacros.Macro1"
'
' Macro1 Macro
' 記録日 01/04/09 記録者 はせがわ
'
    Selection.HomeKey Unit:=wdLine
    Selection.MoveRight Unit:=wdCharacter, Count:=18, Extend:=wdExtend
    Selection.Copy
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Documents.Open FileName:="C:\yubin\01101.TXT", ConfirmConversions:=False, _
        ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
End Sub

　上の FileName:="C:\yubin\01101.TXT" をカレットのある行のファイル名が取得
できるようにならないものでしょうか？

　「タグジャンプ」みたいな動作を実現したいのです。

　以上、長文失礼しました。　よろしくお願いします。

はせかわ・つ＠東京
E-MAIL:hasechan@super.win.ne.jp

Date: Mon, 9 Apr 2001 17:49:21 +0900 (JST)
Message-Id: <200104090849.RAA16960@sl.sakura.ne.jp>
From: Hasegawa_Tu <hasechan@super.win.ne.jp>
To: windows@sl.sakura.ne.jp
Subject: [windows:3892] WORD2000のキーボードマクロ
         について教えてください。
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Mime-Version: 1.0
Sender: owner-windows@sl.sakura.ne.jp
Precedence: bulk
Reply-To: windows@sl.sakura.ne.jp

(C)SAKURA Internet 1996-1998

メーリングリストアーカイブ [記事番号:3892]

[windows:3892] WORD2000のキーボードマクロ について教えてください。

[windows:3892] WORD2000のキーボードマクロについて教えてください。