ワードの使い方につきまして

質問

括弧穴埋め問題の作成を検討しております。

ワード文章を作成し、すでに（　　　　　　　）はすべて作成できております。

ワード文章1頁辺り10個ぐらい（　　　　　）があります。

次に、このカッコ内（　　　　　　）に順番に番号をつけていきたいと考えおります。

例えば、（　　　１　　　）、（　　　2　　　）、（　　　3　　　）、（　　　４　　　）・・・・・・・・と永遠に続きます。

最終的には100ページ位ありますので手入力だと厳しく感じております。

何か、良い案をご存知でしたら、ご教示頂けますと大変有難く存じます。宜しくお願い申し上げます。

回答No.5

masnoske

全角カッコの間にあるスペースをフィールドに置き換えて，更新すれば良いので，以下の手順で可能ではないかと思います．
もしも半角カッコが混じっているようなら，前もって全角に置換しておいてください．

注意して頂きたいのは，置換文字列にワールドカードを使用しているので，文中にすでに全角カッコを使用した補助的な文章があれば，それも置換されてしまいます（たとえば，こういうことです）．
なので，そのような文章がある場合は手順 (10)で全て置換するのではなく，1件ずつ確認しながら置換してください．

(1) 一番初めの（　　）の中のスペース部分を選択して削除する．
(2) （）の間にカーソルを置く．
(3) Ctrl + F9 でフィールド { } を表示する．
(4)フィールドに SEQ myNum と入力する．
(5) { SEQ myNum } を選択する．
(6) Ctrl + C でフィールドをコピーする．
(7) メニューから置換をクリックする．
(8) 置換の「オプション(L)」で「ワイルドカードを使用する（U)」にチェックする．
(8) 検索する文字列に（*）を設定する．
　（）は全角文字，* は半角文字（* は 0文字以上の任意の文字列を表すワールドカード）
(9) 置換後の文字列にに （^c）を設定する．
　（）は全角文字，^c は半角文字（^c はクリップボードの内容という意味）
(10) 「全て置換(A)」をクリックする．
(11) 検索と置換ウインドウを閉じる．
(12) 編集ドキュメントに戻って Ctrl + A で全文選択する．
(13) F9 でフィールドを一括更新する．

お礼

お忙しい中、ご丁寧に本当にありがとうございます。感謝申し上げます。

回答No.4

imogasi

問題例文
日本の面積は（　1　）ｍ２です。
日本の都道府県の数は（　2　）です。
関東は（　3 ）都道府県です。
当初状態は１，２，３はないし。
ーー
この１、２、３のところに、３回の操作をする。
それは、
Ｃｔｒｌキーを押しながら、Ｆ９（ファンクションキー）を押す。
１対のカッコに見えるものが現れる（普通のカッコではなくフィールドを示す、特別のもの）。
その｛　と　｝の中の位置をクリック。
Seq *** と入力（注）。
打ち終わったら F9 を押すと、自動的に番号（連番）が振られる。
このSeq *** の部分の入力は、その後、２つ目以後は、コピー貼り付けする。
ｃｏｐｙ状態を崩さないようにするべきという、不便さはあるが、
このコピー・貼り付けの方が入力が楽だろう。
ーー
http://drumken.blog8.fc2.com/blog-entry-295.html
他たくさんの記事があるのでＧｏｏｇｌｅ照会すること。
ーー
ローマ数字なら\* romanなどして数字の性格も指定できる。
http://office-qa.com/Word/wd89.htm
ーー
識別子（上記では***を使ったが、ここを文書内で別にすると
その系列で連番が振られる。
--
これらをＷｏｒｄ　ＶＢＡでやる（文書内の独特な目印の左括弧などをＦｉｎｄして、その隣にＳｅｑフィールドを挿入するなど）
手もあると思うが、質問者にはすぐには無理だろうから省略。

お礼

ありがとうございます。感謝申し上げます。
みなさんに教えて頂いたものを１つずつ試しています。
本当にありがとうございました。

回答No.3

kkkkkm

マクロでの方法です。マクロ実行後は元に戻りませんのでコピーを取っておくなどの処置をしておいてください。

文書中の
（　　　　　　　）
を置換で
（　　　x　　　）
に置換してください。
置換後の（　　　x　　　）は以下のマクロのコードの（　　　x　　　）と同じにしてください。

置換時に前後の「 "」は不要です。

その後
https://tonari-it.com/word-vba-beginner/
こちらのページを参考にして
マクロの画面を開き

Option Explicit
と記載されているところに以下のコードを貼り付けて
文書の必要な部分を選択して(文書すべて選択でも)
マクロを実行してください。

Sub 置換連番()
Dim i As Long: i = 1

With Selection.Find
.Text = "（　　　x　　　）"
Do While .Execute
Selection.Range.Text = "（　　　" & i & "　　　）"
i = i + 1
Loop
End With

End Sub

文書の必要な部分を選択して(文書すべて選択でも)

数字を全角にしたい場合はマクロ実行後に以下のサイトの手順で
https://office-hack.com/word/word-macro/

お礼

ありがとうございます。感謝申し上げます。
マクロの使い方が全くわからず、すぐにはできそうもありませんが、ご指導いただいたとおり、１つ１つ丁寧に試してみます。
少々お時間下さいます様お願い申し上げます。
本当にありがとうございました。

回答No.2

hiro_1116

マクロを使えばきっとできますね。私はWordのマクロをつかえないのですが、検索してみると下記のようなマクロがありますので、このあたりを応用すれば何とかなりそうな気はします。
http://wordvba.cocolog-nifty.com/blog/2009/04/post-81ef.html

お礼

ありがとうございます。感謝申し上げます。
私もマクロの使い方がわからず、どうしていいものか悩んでおります。
参考にさせて下さい。

回答No.1

sutorama

まず、Excelで１～100の数字を打ち込んだデーターを造ります

あとは、Wordにその数値データを差し込みます

https://inouetetsurou.wordpress.com/2013/05/10/%E3%83%AF%E3%83%BC%E3%83%89%E6%96%87%E6%9B%B8%E3%81%AB%E3%82%A8%E3%82%AF%E3%82%BB%E3%83%AB%E3%81%AE%E3%82%BB%E3%83%AB%E5%80%A4%E3%81%AE%E5%B7%AE%E3%81%97%E8%BE%BC%E3%81%BF/

お礼

ありがとうございます。感謝申し上げます。

参考にさせて下さい。
しかしながら、これですと、年賀状の住所録のように、住所や氏名など決まった場所にしか挿入できないようなのです。私の理解が間違っていますでしょうか？