word段落番号について

質問

1000くらい自動で入ってしまっている段落番号の
数字の部分だけを一括削除をしたかったのですが、
他の段落記号や改行等を変更/削除することなく
一括で消すことが難しそうなので、
段落番号の最大値を変えたいです。

1.
2.
3.
4.....と永遠に増え続ける段落番号の数字を

1.
2.
1.
2.
など、段落番号の最大値を２迄に
変更したいとおもっているのですが、
これは出来ないものでしょうか？

回答No.2

imogasi · ベストアンサー

参考までに。
もし質問者の段落番号が、ホームー段落部の段落番号で振ったものなら、
（段落番号の抹消）
ワードの標準モジュールに
Sub test01()
Selection.Range.ListFormat.RemoveNumbers
End Sub
をコピペし、
・全文を範囲指定して置き（この段階では、段落番号部を
除いた部分が、灰色になる）、
・実行すれば、段落番号は全て消えるのでは。
元の文書のコピーを採って、コピー文書の方でテストすること。
ーー
「段落番号」と言っても、上記の操作のものや、フィールド・コードによる
ものなど、があって（質問者も意識できてないだろうから）、難しい面はあると思う。
ーー
（段落番号を振るルール）
段落番号で（１）、（２）、（１）、（２）・・を設定する操作方法もあると思うが
複雑そうなので、テキストを挟む方法でよければ、下記でできそう。
ただし質問者の文書の、段落の設定方法の実情が不明で、うまく行かない
惧れは多い。(そう考える理由＝注）
Sub test03()
k = 1
For Each pra In ActiveDocument.Paragraphs
pra.Range.InsertBefore "(" & k & ")"
k = k + 1
If k > 2 Then k = 1
Next
End Sub
正式な、段落番号の代わりの、テキストの（１）の、カッコや数字の、全角半角などは
、上記コードを自由に簡単に変えて設定できる、メリットはある。
(注）ご存じのように、日本では改行（段落記号）を「行を改める」ために使う
人が多いようだが、ワード設計者は、見てくれの↓（段落内改行）と
中身＝意味的な区分分けの改行=段落を、分けて設計しているようだが、
日本で定着した利用になっているか疑わしいので、議論がむつかしいと思う。
ーー
やってみると、とんでもないことになるかもしれず、その場合は、すみません。

お礼

ありがとうございます！
今回少々時間がなかったため、検索と置換を使ったり、
難しい部分は打ち直しをいたしましたが、
次回はこちらを参考にさせていただきたいと思います。

わかりづらい質問にお答えいただきありがとうございました。

回答No.1

Nobu-W

https://www.tipsfound.com/word/01105
参考にして望まれる番号付けて下さい　m(_ _)m

お礼

説明が非常にわかりづらかったと思います、申し訳ありませんでした。
ありがとうございました。