Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

406 / 886

←次へ　｜　前へ→


	【493】Re:現在の段落番号の取得は？

りん

- 06/9/19(火) 22:06 -


	引用なし

	パスワード

unahama さん、こんばんわ。
>いくつかの段落を持った文章を扱って、最後の段落については処理をしたくないとか、最初だけ処理をしたいとか

段落毎に検索をかける方法はいかがでしょうか？

段落の最初及び最後を除いて、東京を横浜に置換します。
Sub test()
　 Dim pp As Paragraph, JJ As Integer, Jmax As Integer
　 Jmax = Application.ActiveDocument.Paragraphs.Count
　 '
　 For Each pp In Application.ActiveDocument.Paragraphs
　　　JJ = JJ + 1
　　　If JJ = 1 Or JJ = Jmax Then
　　　　 '最初と最後の段落では何もしない
　　　Else
　　　　 '置換
　　　　 With pp.Range.Find
　　　　　　.Text = "東京"
　　　　　　.Replacement.Text = "横浜"
　　　　　　.Execute Replace:=wdReplaceAll
　　　　 End With
　　　End If
　 Next
End Sub

2,081 hits

▼

【492】現在の段落番号の取得は？ unahama 06/9/18(月) 11:31