Word2000 自動で振った段落番号を一括で手打ちの番号に入力し直す方法
- Word2000で自動で振られた段落番号を一括で手打ちの番号に入力し直したい場合の方法を教えてください。
- 現在の文書は果物の名前を章タイトルとしており、それぞれの章に自動的に段落番号が振られています。
- 他人が作ったファイルでページ数も多く、一つ一つ見ていくのは確実ですが見落としの可能性があるため、機械的な方法を希望しています。
- ベストアンサー
《Word2000》自動で振った段落番号を、一括で手打ちの番号に入力し直すには
1. りんご (本文) 2. みかん (本文) 3. バナナ (本文) このような構成の文書があります。 それぞれの章タイトル(果物の名前)は、現在段落番号で自動で振られているのですが、これを手打ちでテキスト入力した状態にしたいです。 ひとつひとつ目で見ていくのが確実なのでしょうが、他人が作ったファイルでしかもページ数がとても多いので、見落としが怖く、できれば機械的に行いたいのです。 コピーして「テキストでペースト」する方法は存じております。 ただこちらの方法にしても、見落としがあると数字が変わってしまいますので、最上の策とは言えないと思います。 せめて「自動で段落番号を振った行を検索」する方法があればいいのですが。 ご回答、お待ちしております。
- bari_saku
- お礼率87% (1992/2269)
- オフィス系ソフト
- 回答数4
- ありがとう数3
- みんなの回答 (4)
- 専門家の回答
質問者が選んだベストアンサー
自動記録の手も借りて修正作成しましたので、不要な行が入っていると思いますが.....。 見出しレベルが二段階までという前提です。 前回同様、最後にブックマーク E を作成して実行してください。 Sub ChgStyle() Dim LstPR1, LstPR2, ListST, STT If ActiveDocument.ListParagraphs.Count = 0 Then Exit Sub With ActiveDocument.Bookmarks If Not .Exists("E") Then Exit Sub End With Selection.HomeKey Unit:=wdStory Do While Selection.Range.ListFormat.ListValue = 0 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine Loop STT = ActiveDocument.Range(0, Selection.Start).ComputeStatistics(wdStatisticLines) LstPR1 = 0 Do Until Selection.Range.Bookmarks.Exists("E") Selection.MoveRight Unit:=wdCharacter, Count:=1 LstPR2 = ActiveDocument.Range(0, Selection.Start).ListParagraphs.Count ListST = Selection.Range.ListFormat.ListString Selection.HomeKey Unit:=wdLine If LstPR2 <> LstPR1 Then Selection.TypeText Text:=ListST Selection.HomeKey Unit:=wdLine End If LstPR1 = LstPR2 Selection.MoveDown Unit:=wdLine, Count:=1 Loop ' Selection.GoTo What:=wdGoToLine, Count:=4 ActiveDocument.Range(Start:=Selection.End, End:=ActiveDocument.Bookmarks("E").End).Select With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(1) .NumberFormat = "%1" .TrailingCharacter = wdTrailingNone .NumberStyle = wdListNumberStyleNone .NumberPosition = MillimetersToPoints(0) .TextPosition = MillimetersToPoints(7.5) .TabPosition = wdUndefined End With With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).ListLevels(2) .NumberFormat = "%2" .TrailingCharacter = wdTrailingNone .NumberStyle = wdListNumberStyleNone .NumberPosition = MillimetersToPoints(7.5) .TextPosition = MillimetersToPoints(15) .TabPosition = wdUndefined End With ListGalleries(wdOutlineNumberGallery).ListTemplates(7).Name = "" Selection.Range.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _ wdOutlineNumberGallery).ListTemplates(7), ContinuePreviousList:=True, _ ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:=wdWord9ListBehavior End Sub
その他の回答 (3)
- misatoanna
- ベストアンサー率58% (528/896)
私の環境も 2000 です。 前回言い訳させていただいたように、真ん中ほどの Loop 以下は自動記録の手を借りた 部分なのですが、そちらでなぜ止まるのかわかりません。 ご質問内に書かれていた例文からは、[書式]-[箇条書きと段落番号] のアウトラインを 設定されているはずなのですし....... ? とりあえず、 .NumberFormat = "%1" の行を削除してみてください。(8行下にもありますので、これも削除) 私のテスト実行では、削除しても同じように動きました。 また、 .TabPosition = wdUndefined も2つとも削除。 ついでに、一番下の方にある ListGalleries(wdOutlineNumberGallery).ListTemplates(7).Name = "" も削除してください。 自動記録で付けられた不要行のようです。 これでも止まってしまう場合は、真ん中の Loop より下を Exit Sub の前まで削除して 実行し、その後アウトラインスタイルの変更を手作業で行なってください
- misatoanna
- ベストアンサー率58% (528/896)
#2の修正です。 プログラムの中央ほどにある(Loop のすぐ下) Selection.GoTo What:=wdGoToLine, Count:=4 を Selection.GoTo What:=wdGoToLine, Count:=STT に変更してください。 テスト時の状態のまま載せてしまいました。 /(-_-;
お礼
すみません、再びこんなに長いVBA書いていただきまして… テストしてみましたところ、「実行時エラー5974 箇条書きの書式のプレースホルダとして、番号を指定することはできません」と出ます。 デバッグは、Loopの数行下の .NumberFormat = "%1" の位置で止まっております。ハテ? エクセルのバージョンの違いか何かでしょうか?(当方2000です)
- misatoanna
- ベストアンサー率58% (528/896)
自信はないのですが、とりあえず、文章のレイアウトを勝手に仮定して、マクロを作って みました。 1.項目1 (Tab)本文1行目 (Tab)本文2行目 2.項目2 (Tab)本文1行目 のようになります。 [Alt]+[F11] で開く画面の左側のツリーにある Project(開いている文書名) を選択して [挿入]-[標準モジュール] で更に開く画面に下記をコピーし、通常画面に戻ってください。 Sub Test() Dim PG, LV, LVSeq, NumberSize If ActiveDocument.ListParagraphs.Count = 0 Then Exit Sub With ActiveDocument.Bookmarks If Not .Exists("E") Then Exit Sub End With PG = ActiveDocument.ComputeStatistics(Statistic:=wdStatisticLines) Selection.HomeKey Unit:=wdStory LVSeq = 0 Do While Selection.Range.ListFormat.ListValue = 0 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine Loop Do Until Selection.Range.Bookmarks.Exists("E") Selection.HomeKey Unit:=wdLine LV = Selection.Range.ListFormat.ListValue If LV = 1 Then LVSeq = LVSeq + 1 If LVSeq > 9 Then NumberSize = LVSeq Else NumberSize = StrConv(LVSeq, vbWide) Selection.TypeText Text:=NumberSize & "." Selection.Range.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph Else Selection.TypeText Text:=vbTab End If Selection.MoveDown Unit:=wdLine, Count:=1 Loop Selection.HomeKey Unit:=wdStory End Sub 文章の最後の段落番号項目の「本文」の最後の行の次行先頭に E という名前のブックマークを 挿入してから、[ツール]-[マクロ]-[マクロ] の Test を選択して実行してみてください。 文書ファイルのコピーで行なってくださいね。 結果が求められているものと異なっていたら、無視してください。 ^_^;
お礼
どうもありがとうございます! これなら確かに置き換わります。 ただ非常に恐縮なのですが、 ・本文先頭のタブを抜く ・違った形式の段落番号があっても、最初のスタイルが適応されてしまう。単純に、コピペで置き換えたい 以上の処理は可能でしょうか? ※現在このような文書だった場合、 1.見出し1(段落番号) 本文 2.見出し2(段落番号) 本文 A.小見出しA(段落番号) 本文 B.小見出しB(段落番号) 本文 3.見出し3(段落番号) ↓このように置き換えられてしまいます。 1.見出し1 (Tab)本文 2.見出し2 (Tab)本文 3.小見出しA (Tab)本文 4.小見出しB (Tab)本文 5.見出し3 ↓単純にこのようにするのは、難しいでしょうか。 1.見出し1 本文 2.見出し2 本文 A.小見出しA 本文 B.小見出しB 本文 3.見出し3 もし難しい場合は、どうかスルーして下さい。 ここまでやって頂いて、本当に感謝しております。
関連するQ&A
- 《Word2000》段落番号を新たに挿入する?
1.りんご (本文) 2.みかん (本文) 3.ぶどう (本文) 4.すいか (本文) …というようなレイアウトの文章があり、1~4は段落番号で振っています。 3と4の間に、新たに段落「バナナ」を4として挿入したいのですが、段落番号として挿入し、「すいか」を自動で5にするにはどうしたらいいでしょうか? 例文はシンプルですが、実際は本文が長く、表やテキストボックスが沢山あり、ミスの見落としが怖いので、なるべく大がかりなコピー&ペーストなどはさけたいです。 以上、よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Word(2007)の段落番号
私は現在共同作業で問題集のようなものを作成しているのですが、人によって書式が違わないようにひな形を作りたいと思っています。 そこで質問なのですが、ひな形の中に複数の種類の段落番号がある場合、それをコピペしたときにペーストされたものの段落番号を自動的に最初から振り直すという設定はできないのでしょうか。 現在は以下のようにペーストされたものは同じ種類の段落番号の続き番号になってしまいます。 【コピー元】 【ペーストされたもの】 【やらせたいこと】 あああ → あああ あああ 1. → 3. 1. 2. → 4. 2. いいい → いいい いいい (1) → (3) (1) (2) → (4) (2) セクションを区切ればうまくいくかと思ったのですが、ダメでした。 ご存知の方がいらっしゃったらよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- Word97の段落番号について
Wordすべてにいえることかもしれませんが、 段落の番号が2桁(第10章など)になると、 段落番号の右側に、スペースが空いてしまうのですが、 これを削る方法はあるのでしょうか? いろいろ試してはいるのですが、消すことができません。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- コード番号の自動入力
初めて投稿します。Accessを使用する上で困っていることがあるので相談に乗っていただけると助かります。 クエリなどで、コード番号を入力すると項目が自動入力されるというのが良くあると思うのですが、その逆をやりたいのです。項目をコンボボックスから入力すると該当するコード番号(主キー)が自動入力されるといった具合です。 例えば・・・ NO|項目1|項目2|項目3 1|果物|りんご|青森 2|果物|りんご|長野 3|果物|みかん|宮城 4|果物|みかん|愛媛 5|野菜|大根|長野 見たいなテーブルがあったとします。 項目1~3までをコンボボックスで値入力させ、それに該当するNOを自動入力したいのです。 方法が分かる方、いらっしゃいましたら教えてください。
- ベストアンサー
- オフィス系ソフト
- ワードの段落番号の割り当て方法について
第一章 あああああああ 1. いいいいいいいいい (1) ううううううううう ううううううううう (2) ええええええええ ええええええええ 2. おおおおおおおお (1) かかかかかかか かかかかかか (2) きききききき 第二章 くくくくくくく 1. けけけけけけけ (1) ここここここ **************** 以上のような体系立った文章を効率よく作る、最良の方法を教えてほしいのですが。まず、大まかな流れとしては段落番号(第一章、1.他)を除いた、文章をフォント、インデントを考えずに入力していく。その辺までは分かるのですが、その後の「レベル」、「スタイル」、「段落番号」、「フォント」の割り当て等、具体的な操作方法が分かりません。特に、「書式」→「箇条書きと段落番号」→「アウトライン」タブ以降が分かりにくいです。試行錯誤しながらやってみましたが、どうもうまくいきません。一連の作業は「アウトライン表示」でやったほうが良いのでしょうか。後々の修正(段落番号を追加した場合、その後の番号の自動修正など)も楽に行えるようにしたいです。ワード97です。まとまりが無いので答えにくい質問だと思いますが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ワードの「箇条書き番号と段落番号」について
ワードの「箇条書き番号と段落番号」より「アウトライン」→「変更」→「アウトライン番号の書式設定」→「番号書式」において「第一章」と入力したいと思っています。漢数字の「一」は自動的に入力されます。しかし「一」の後に「章」は入力できるのですが、「第」が入力できません。ご存知の方どうぞ教えてください
- ベストアンサー
- Windows XP
- Excel2003 段落番号が自動的に改ページされる
Wordを使用して条文のようなものを作成しています。 箇条書きと段落番号の機能で 第1章 (1) 1. と設定しています。 そして入力しているのですが、 ところどころページはまだ半分ぐらいあいているのに自動的に改ページされ、 次のページから章が始まってしまいます。 章の途中でページがまたがらない?ようになっているのかと思うのですが、 これをページをまたいで入力できるように設定をかえることは出来ないでしょうか? 章が大量にあるので、できれば段落番号を使わず普通に入力する… というのは避けたいです。 わかりずらくすみませんが、 わかるかたいらっしゃいましたら教えてください。 ↓こんな感じです。 点線:ページの区切り *:文字 -------------------------- 第4章 ************ ******** ************ ************ 第5章 ************ ******** -------------------------- 第6章 ************ ******** ************ ************ **** ←まだ行はずいぶんと空いている のに自動的に次のページから -------------------------- 7章が始まる 第7章 ************ ******** ************ ************ **** -------------------------- ↓こうしたい -------------------------- 第6章 ************ ******** ************ ************ **** 第7章 ************ -------------------------- ******** ************ ************ **** 第8章 ************ ***** --------------------------
- ベストアンサー
- オフィス系ソフト
- [Word]段落番号が入れ替わる?
Wordでテキストボックスを複数作成、 その中に段落番号を使った箇条書きを作ると、 各テキストボックスの段落に繋がるよう 連番で自動的に番号が振られます。 ここまでは問題ないのですが、 画面上、プレビュー上でも正しく番号が振られているのに、 印刷すると入れ替わってしまいます。 具体的に挙げるなら、 テキストボックス1には1~10、 テキストボックス2には11~20になっているのに、 印刷すると テキストボックス1には11~20、 テキストボックス2には1~10が振られている。 印刷してみないとわからないので困っています。 解決策、回避策を教えていただけたらと思います。 WindowsXP pro SP1 日本語版 Word2000 pro SP3 日本語版
- ベストアンサー
- オフィス系ソフト
- WORD2003 段落番号が自動的に入力されない。
箇条書きが自動的に設定されなくなりました。 自動的に付ける方法を教えてください。 ※ 1.と入力し、ENTERを押すと今までは、 オートコレクトのオプションが表示されていましたが、 それも表示されません。 ツール→オートコレクトのオプション→入力オートフォーマット、 箇条書き(行頭文字)(段落番号)の箇所にはチェックは入っています。
- ベストアンサー
- その他MS Office製品
- word2007 目次で段落番号を右揃えにしたい
初めて質問します。 質問の仕方が不適切・情報不足でしたら、ご指摘ください。 word2007を使っています。 アウトラインを使って報告書を作成し、目次を自動挿入しました。 添付図のように、段落番号を右揃えにしたいのですが、どこをいじっても左揃えになります。 やってみたことは、以下のとおりです。 1.「段落番号」の「新しい番号書式の設定」 これで右揃えにすると、段落番号が追加されてしまいました。 2.「タブ」設定 段落番号、タイトル、ページ番号の分のタブ設定をして、行頭にタブを挿入したところ、一見できたようだったのですが、タブスペースに青の下線が現れ、消せませんでした。(ハイパーリンクではないです) 3.本文の見出しの方で、アウトライン→「新しいアウトラインの定義」→配置を右揃え 本文は変わりましたが、目次は左揃えのままでした。 4.目次を選択して、アウトライン→「新しいアウトラインの定義」→配置を右揃え 変化ありません。 あちこち検索しまくりましたが、ヒットする内容がありませんでした。 段落番号を右揃えにする方法をご存じの方、教えて下さい。 よろしくお願いいたします。 ※「段落番号」という言葉の使い方が間違っているのでしょうか? 「第1章」とか「1-1」とかのイメージで書いております。
- 締切済み
- オフィス系ソフト
お礼
本当にありがとうございます! まだ動きが微妙なのですが、VBAの勉強も兼ねて、色々いじってみたいと思います。