Word VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
35 / 314 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【794】入力規制をしたい くまさん 13/8/13(火) 22:45 質問[未読]
【796】Re:入力規制をしたい マナ 14/1/6(月) 19:09 発言[未読]
【794】入力規制をしたい
質問  くまさん  - 13/8/13(火) 22:45 -
引用なし
パスワード
   Word2000を使っています。テキストボックスフォームフィールド
を使おうと思っていますが、Excelの様な入力規制(半角カナや
英数字、無効など）がしたいのですが、どのようにすれば良いか
教えて下さい。また、フォームに入力する文字の改行をさせたく
ないのですが、どうすればよろしいでしょうか。
【796】Re:入力規制をしたい
発言  マナ  - 14/1/6(月) 19:09 -
引用なし
パスワード
   半年ぶりにワードの勉強をしてみました。

まずはネットでテキストボックスフォームフィールドについて検索。
マクロを登録すれば出来そうです
ht tp://office.microsoft.com/ja-jp/word-help/HP005186258.aspx

ここのWendy02さんのコードとか参考になります。
ht tp://qanda.rakuten.ne.jp/qa3076625.html


>入力する文字の改行をさせたくない

書いてみましした。Word2000がないので、2010で動作確認。
使い勝手があまり良くないかもしれませんが、こんな感じでしょうか。

Sub test()

　　With Selection.Bookmarks(1).Range.Fields(1).Result
　　　　If InStr(.Text, vbCr) > 0 Then
　　　　　　MsgBox "改行はNG"
　　　　　　.Text = Replace(.Text, vbCr, "")
　　　　End If
　　End With

End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
35 / 314 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207381
(SS)C-BOARD v3.8 is Free