Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
64 / 308 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【722】相互参照のダイアログボックス りんぐ 12/3/1(木) 13:43 質問[未読]
【723】Re:相互参照のダイアログボックス 774 12/3/2(金) 15:02 回答[未読]
【724】Re:相互参照のダイアログボックス りんぐ 12/3/2(金) 17:28 お礼[未読]
【725】Re:相互参照のダイアログボックス 774 12/3/5(月) 13:16 回答[未読]
【726】Re:相互参照のダイアログボックス りんぐ 12/3/5(月) 15:45 お礼[未読]
【722】相互参照のダイアログボックス
質問  りんぐ  - 12/3/1(木) 13:43 -
引用なし
パスワード
   相互参照ダイアログボックスを開くと、
参照する項目、相互参照の文字列、参照先を選択することになります。
ただ、私の場合、使う項目が非常に限られています。
以下のパターンだけです。

パターン1
参照する項目：図
（ハイパーリンクとして挿入する）
相互参照の文字列：番号とラベル

パターン2
参照する項目：表
（ハイパーリンクとして挿入する）
相互参照の文字列：番号とラベル


パターン1のみ（あるいはパターン2）を表示するダイアログがあればと思います。
レイアウトはどんなものでも構いません。
このようなマクロをご教示ください。
どうぞよろしくお願いします。
【723】Re:相互参照のダイアログボックス
回答  774  - 12/3/2(金) 15:02 -
引用なし
パスワード
   こんな感じ？

Sub Sample1()
　　With Application.Dialogs(wdDialogInsertCrossReference)
　　　SendKeys "ff{TAB}{DOWN 2}{ENTER}"
　　　.ReferenceType = "図"
　　　.InsertAsHyperLink = 1
　　　.Show
　　End With
End Sub

Sub Sample2()
　　With Application.Dialogs(wdDialogInsertCrossReference)
　　　SendKeys "ff{TAB}{DOWN 2}{ENTER}"
　　　.ReferenceType = "表"
　　　.InsertAsHyperLink = 1
　　　.Show
　　End With
End Sub
【724】Re:相互参照のダイアログボックス
お礼  りんぐ  - 12/3/2(金) 17:28 -
引用なし
パスワード
   まさにこんな感じです、ありがとうございました。

追加の御願いなのですが、このダイアログボックスを表示したまま、
本文の編集ができるようにしていただければ助かるのですが・・。

さらには、両方とも表示した状態で、本文の編集をしたいのですが。。。。

よろしく御願いいたします。
【725】Re:相互参照のダイアログボックス
回答  774  - 12/3/5(月) 13:16 -
引用なし
パスワード
   > さらには、両方とも表示した状態で、本文の編集をしたいのですが。。。。

はい↓。
後は知らない。

Sub Sample3()
　　Application.CommandBars.FindControl(ID:=775).Execute
　　With Application.Tasks("相互参照")
　　　　.SendWindowMessage &H100, vbKeyDown, 0&
　　　　.SendWindowMessage &H101, vbKeyDown, 0&
　　　　.SendWindowMessage &H100, vbKeyHome, 0&
　　　　.SendWindowMessage &H101, vbKeyHome, 0&
　　　　.SendWindowMessage &H100, vbKeyDown, 0&
　　　　.SendWindowMessage &H101, vbKeyDown, 0&
　　　　.SendWindowMessage &H100, vbKeyDown, 0&
　　　　.SendWindowMessage &H101, vbKeyDown, 0&
　　　　.SendWindowMessage &H100, vbKeyDown, 0&
　　　　.SendWindowMessage &H101, vbKeyDown, 0&
　　　　.SendWindowMessage &H100, vbKeyDown, 0&
　　　　.SendWindowMessage &H101, vbKeyDown, 0&
　　　　.SendWindowMessage &H100, vbKeyDown, 0&
　　　　.SendWindowMessage &H101, vbKeyDown, 0&
　　　　.SendWindowMessage &H100, vbKeyTab, 0&
　　　　.SendWindowMessage &H101, vbKeyTab, 0&
　　　　.SendWindowMessage &H100, vbKeyDown, 0&
　　　　.SendWindowMessage &H101, vbKeyDown, 0&
　　　　.SendWindowMessage &H100, vbKeyHome, 0&
　　　　.SendWindowMessage &H101, vbKeyHome, 0&
　　　　.SendWindowMessage &H100, vbKeyDown, 0&
　　　　.SendWindowMessage &H101, vbKeyDown, 0&
　　End With
End Sub
【726】Re:相互参照のダイアログボックス
お礼  りんぐ  - 12/3/5(月) 15:45 -
引用なし
パスワード
   >はい↓。
>後は知らない。
774さん、ありがとうございました！
もし、また何かいい案が思いついたら、教えてください。
よろしく御願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
64 / 308 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207136
(SS)C-BOARD v3.8 is Free