Word VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
274 / 308 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【122】記号と特殊文字のデフォルトフォントを設定 与作 04/8/4(水) 10:44 質問[未読]
【123】Re:記号と特殊文字のデフォルトフォントを設定 らいでん 04/8/9(月) 0:55 発言[未読]
【124】Re:記号と特殊文字のデフォルトフォントを... 与作 04/8/13(金) 9:10 質問[未読]
【125】Re:記号と特殊文字のデフォルトフォントを... らいでん 04/8/14(土) 7:07 発言[未読]
【122】記号と特殊文字のデフォルトフォントを設定
質問  与作  - 04/8/4(水) 10:44 -
引用なし
パスワード
   記号と特殊文字のデフォルトフォントを設定していても、
手でフォントを変更し、OKで閉じてしまうと
次回、記号と特殊文字を起動したとき、変更したフォントが有効になってしま
います。
2000では希望通りの動き方をするのですが、
2003ですとデフォルト設定が有効になりません。
以下の書き方では無理なのでしょうか？
よろしくお願いします。

Public Sub MAIN()
With Dialogs(wdDialogInsertSymbol)
.Font = "Times New Roman"
.Show
End With
End Sub


追記：
また、メニューバー[挿入]＞[記号と特殊記号]で開くウィンドウでは
（挿入）（キャンセル）ボタンなのですが、
このマクロで実行しますと
（ＯＫ）（キャンセル）ボタンが表示されます。
また、マクロのウィンドウでキャンセルをクリックしても
□←四角い枠？マークが挿入されるのです。
WdDialogInsertSymbolをヘルプやサイトで調べてみたのですが、
情報がなく困っています。

何卒よろしくお願いします。
【123】Re:記号と特殊文字のデフォルトフォントを...
発言  らいでん  - 04/8/9(月) 0:55 -
引用なし
パスワード
   詳しいことは分かりませんが、これはバグでしょう。
結局のところ、どこかでレスがついていたでしょうが
SendKeys を使って対処するしかない様な気がします。
（SendKeys ステートメントはVBAライブラリですので
当然Wordでも使えます）
こんなことしか書けませんが・・・・。
【124】Re:記号と特殊文字のデフォルトフォントを...
質問  与作  - 04/8/13(金) 9:10 -
引用なし
パスワード
   らいでん さん ありがとうございました。

はやりバグの可能性が高そうですね。
マイクロソフトに検証依頼してみます。

>SendKeys を使って対処するしかない様な気がします。

もしよろしければ、Sendkeysを使用しての書き方を
ご教示願えますか？
よろしくお願いします。
【125】Re:記号と特殊文字のデフォルトフォントを...
発言  らいでん  - 04/8/14(土) 7:07 -
引用なし
パスワード
   それは遠慮しておきます。
例えば「Times New Roman」フォントがリストの何番目に位置しているかは
環境によって様々でしょう。
キーストロークの送り方についてはヘルプに一覧が載っていますので
試行錯誤で頑張ってみてください。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
274 / 308 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207144
(SS)C-BOARD v3.8 is Free