Word VBA質問箱 IV

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

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


9 / 288 ツリー ←次へ | 前へ→

【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

9 / 288 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
192885
(SS)C-BOARD v3.8 is Free