ワードのこの置換方法は？

質問

WORD2003です。
行の先頭に、「1.」「2.」…「10.」「11.」
というように数字（1から99）とドットがついています。
これを削除したいのですが、どうすればよいでしょうか？

一度の置換でできますか？
行の先頭というのを指定する方法がわかりません。
また「.」は他の部分にもあります。
↓こんなものが並んでいます。

44. http://www.xxxx.jp/xxxx/aquaweb9/

よろしくお願いします。

回答No.5

Wendy02 · ベストアンサー

こんにちは。

マクロを作ってみました。
ただし、箇条書きの場合には、この方法は出来ないはずです。これは、一旦、Hyperlinkを削除して、箇条書きのないHyperlinkを付け替えます。

Sub PreHyperLinksCut()
Dim myRange As Range
Dim buf As String
Selection.StartOf wdStory
With Selection.Find
　.ClearFormatting
　Do While .Execute(FindText:="http://", Forward:=True, Format:=False) = True
　With Selection
　　.HomeKey Unit:=wdLine
　　.EndKey Unit:=wdLine, Extend:=wdExtend
　　If InStr(.Text, "http:") > 2 Then
　　buf = Replace(.Text, Mid$(.Text, 1, InStr(.Text, "http:") - 1), "")
　　.Range.Delete
　　.Hyperlinks.Add Anchor:=.Range, Address:=buf, TextToDisplay:=buf
　　End If
　　.Collapse wdCollapseEnd
　End With
Loop
End With
End Sub

回答No.4

enunokokoro

[編集]→[置換]又は[Ctrl+H]キーで置換ダイアログを出し、
[オプション]ボタンを押し、[ワイルドカードを使用する]に
チェックを入れます。(No2さんとココまで一緒)

検索する文字列に
^13([0-9]{1,2}).・　「・は半角スペース」

置換する文字列に
^13\1・

を入れます。
「^13」は改行記号。「([0-9]{1,2})」は半角数字の一桁以上二桁まで。
「\1」は検索する文字列の()内を表し、括弧の順番が1番目を指定します。

No1さんのアドバイスにある[段落番号]なら、この方法は
使えませんから、[箇条書きと段落番号]から設定して下さい。

回答No.3

noname#15459

置換方法
書式→箇条書きと段落設定→アウトライン
一番上段のドットのない「１」のある左から２番目を選択→変更
→アウトラインの番号の書式設定→番号書式に　１　を記入
番号の種類　１．２．３　開始番号１　でＯＫで置き換え完了ドットが消えます。

回答No.2

emonky

置換のウインドウで、さらにオプションを表示し
「ワイルドカードを使用する」にチェックします。
検索する文字列には「[0-9]@. 」
↑かぎ括弧内の文字です。.の後ろにスペースもあり
置換する文字列は空白のままにします。

これでできると思います。
ただし、質問者さんの例にあるとおり、数字とURLの間に半角スペースがあるときとなります。

試してください。

回答No.1

mshr1962

これは段落番号でしょうか？段落番号であれば該当する範囲を選択して
「書式」「箇条書きと段落番号」で「なし」を選択もしくは

１＿＿＿＿＿
２＿＿＿＿＿
３＿＿＿＿＿

となっているボタンを押せば解除できますが...