No.4ベストアンサー
- 回答日時:
ANo.2
>試しにしてみたのですが、
>[置換する文字列] に、指定できない範囲の番号があります。」
これは
[検索する文字列] : (?)
[置換する文字列] : \1\t ←(ここの数字が全角数字のためでは?)
の記号や数字が半角でないからです。特にエラーが出た内容では数字が
全角数字のために出たエラーですから、半角数字に変更して試してみて
ください。
私が説明した方法は一般機能だけなので応用もできると思います。
マクロを覚えればもっと効率的に作業できますが、すぐにできる方法と
して私の方法も覚えておくと、作業が少しは効率的になると思います。
ありがとうございます。
すごいです!きれいにできました。
感動しています!!
ただ、
[置換する文字列] : \1\t ではなくて
[置換する文字列] : \1^t だったようです。
本当にありがとうございました。
No.3
- 回答日時:
ワードにもVBAというのがあります。
それで考えてみました。ただ小生の力量不足で、一部解決できてない点があります。
学生さんなどで、興味があれば、WEBでも調べて改良してみてください。(市販本は1,2冊。WEBでも情報は多くないが。)
ワードでツールーマクローVBE
メニューの挿入ー標準モジュール
その標準モジュールの画面に
Sub test05()
Dim ch
j = 1
i = 1
For Each ch In ActiveDocument.Range.Characters
If ch <> vbCrLf Or ch <> vbLf Or ch <> vbCr Or ch <> Chr(21) Then
ActiveDocument.Tables(1).Cell(j, i).Range.Select
Selection.TypeText Text:=ch
i = i + 1
If i > 12 Then
j = j + 1
i = 1
End If
End If
Next
End Sub
をコピペします。
(If i > 12 Thenのところは、表の列数に応じて変更のこと)
実行方法はF5キーを押す。
ーー
私の例では、罫線ー挿入ー表で12列x8行のマスを作りました。
例文
お返りなさい。おなかすいた。早く宿題を済ましなさい。
宿題が済んだら塾に行きなさい。今日は歩いて駅まで行ってね。
今日は土曜日ダイヤですよ。
(この下に表12列x8行を配置する。)
結果
略
改良点(私が原因が判らず、改良できなかった点)
段落のところで1文字入ってしまう。
文章の終わりがうまく終らず、少し行過ぎる。
とりあえず参考になれば。
回答ありがとうございます。
実行してみました。
たしかに、imogasi様のご指摘通り1文字入ってしまったりしますね。
でも一文字ずつ入力することを考えたらほとんどOKでした!
VBAは全く勉強していないので改良は難しいと思いますが
勉強する時間があれば是非やってみたいです。
どうもありがとうございました。
No.2
- 回答日時:
表の1マスに1文字ですか...
普通はそのような使い方はしませんよね。
どうしてもその中に入れたいのならば、別のWord文書でもよいので文章
を作成するものを用意して、表のマスの数と文章の文字数が同じになる
ようにしてから[置換]を利用して1文字毎にタブを入れる設定にします。
[置換]ダイアログを開き、[オプション]の[ワイルドカードを使用する]
にチェックを入れていおきます。
[検索する文字列] : (?)
[置換する文字列] : \1\t
これで[すべて置換]すると1文字とタブ区切りが交互になるものが用意
できますので、コピーしておきます。
貼り付けたい表全体を選択しておいて、[形式を選択した貼り付け]から
[テキスト]を選択すると1マスに1文字ずつ入るようになります。
ただし、半角英数字も1文字に区切られるので、半角英数字は2文字ずつ
1マスに入れたいような場合は、別途設定が必要です。
アイデアとしては紹介していますが、あまり実用的ではないので活用を
するかどうかは質問者に任せます。
この回答への補足
回答どうもありがとうございます。
>表の1マスに1文字ですか...
>
>普通はそのような使い方はしませんよね。
そうですよね。。。
でも、様式ファイルがそうなっているので仕方ないです。
試しにしてみたのですが、
「[置換する文字列] に、指定できない範囲の番号があります。」
とエラーが出るのですがどういうことでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
枠内に一字ずつ入力したい
PowerPoint(パワーポイント)
-
テキストファイルから1文字ずつ取り出し、ワードの表に1文字ずつ書く方法
Visual Basic(VBA)
-
WORDで”一部分のみ”原稿用紙風にしたい
Word(ワード)
-
-
4
Wordについて。なぜか一文字ずつしか入りません!
Word(ワード)
-
5
エクセルで1セルに一文字だけ入力したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Word文書、取り消し線部分の一...
-
ワードで半角英数の文字だけ選...
-
ワードで赤字のみを削除する方法
-
word 2003で、赤い文字(あるい...
-
エクセルでシートにある赤文字...
-
Word相互参照の文字を一括で変...
-
Wordデータから,特定の単語を...
-
Excelの表中,数字の「1」をす...
-
word である文字をすべてイタリ...
-
MSワード、エクセルの文章にマ...
-
ワードの表の中の値の表示形式...
-
wordで特定の色だけ印刷しない方法
-
ワードで文字列をフィールドコ...
-
セルの中の不要な文字を削除し...
-
Wordでカッコで括った文字を一...
-
ワードで太字になっているとこ...
-
【Excel】ある文字列から特定の...
-
ワードの文章の中の数字を全て...
-
Wordで【相互参照】で挿入した...
-
word置換で改行は置換できますか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word文書、取り消し線部分の一...
-
エクセルでシートにある赤文字...
-
「WORD」での作業 日本語・英...
-
ワードで赤字のみを削除する方法
-
Excelの表中,数字の「1」をす...
-
箇条書きのアタマに一括で「・...
-
Wordでカッコで括った文字を一...
-
Word相互参照の文字を一括で変...
-
ワードで太字になっているとこ...
-
ワードで半角英数の文字だけ選...
-
エクセルで、コンマをピリオド...
-
ワードの表への入力について
-
excelマクロ ボタンを押して文...
-
Wordデータから,特定の単語を...
-
wordで特定の色だけ印刷しない方法
-
word文書内のピンク色の文字を...
-
word 2003で、赤い文字(あるい...
-
ワードの表の中の値の表示形式...
-
同じ文字
-
Word(2010)の差込印刷時に特定...
おすすめ情報