人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

MicrosoftWORD2000で、「あなたのお名前は何ですか」とかいう質問を出し(この質問文自体はひとつだけで、他の質問文はありませんので、選択できなくていいです)、ダイアログボックスの中に「○○です」と入力し、リターンキーを押すと、テキストに反映されるような仕組みを作ることはできますか?そのときに、出てくるフォントをすごく大きくしたいのですが、どのように指定したらよいのでしょうか。

●質問者: clinejp
●カテゴリ:コンピュータ 学習・教育
✍キーワード:あなた ひとつ キー ダイアログ テキスト
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● foaran
●35ポイント

Office TANAKA - Excel VBA(実は奥が深いInputBox)

VBA 入門編

上記URLをもとにマクロを書きました。

word2003でしか動作していませんが、おそらく2000でも動くと思います。

Sub Sample1()
 buf = InputBox("あなたのお名前は何ですか?")
 MsgBox (buf + "です。")
 With Selection
 .Font.Size = 40 '文字の大きさを指定
 .TypeText (buf)
 End With
End Sub
◎質問者からの返答

ありがとうございます。

できました。

このマクロを実行するボタンを常にポップアップウィンドウのような形で出しておくことはできないでしょうか。


2 ● foaran
●35ポイント ベストアンサー

Excel/VBAクリニック,今月の診断(7)自作ツールバーでマクロ実行を容易にする処方:ITpro

遅くなりすみません。フロート状態のメニューバーにボタンをつけてみました。こんな感じでどうでしょうか。

  1. 文章を開いて、標準モジュールに下記のマクロを貼り付け保存
  2. マクロを保存した文章を開くと、フロート状態のメニューバーがでるようになります。
  3. Aというボタンを押すと名前を入力するマクロが実行されます。
  4. 文章を閉じたときにメニューバーが削除されます。
Sub MakeToolBar()
 Dim myBar As CommandBar
 Dim myButton As CommandBarControl

 Set myBar = Application.CommandBars.Add( _
 Name:="名前入力", Position:=msoBarFloating)
 myBar.Visible = True

 Set myButton = myBar.Controls.Add( _
 Type:=msoControlButton, ID:=1)

 With myButton
 .OnAction = "Sample1"
 .FaceId = 253
 End With
End Sub

Sub Sample1()
 buf = InputBox("あなたのお名前は何ですか?")
 MsgBox (buf + "です。")
 With Selection
 .Font.Size = 40 '文字の大きさを指定
 .TypeText (buf)
 End With
End Sub


Sub AutoOpen()
 Call MakeToolBar
End Sub

Sub RemoveToolBar()
 On Error Resume Next
 Application.CommandBars("名前入力").Delete
 On Error GoTo 0
End Sub

Sub AutoClose()
 Call RemoveToolBar
End Sub

◎質問者からの返答

コピーするだけで一発でできました!

どうもありがとうございます。もちろんいるかです。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ