Word VBA質問箱 IV

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

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


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

251 / 886

←次へ　｜　前へ→


	【651】文の最後はどのようにして見つけるの？

やっちゃん

- 09/10/2(金) 14:49 -


	引用なし

	パスワード

一塊の文（中には空白行｛改行だけの行｝も含む）があって、其の先頭行に
カーソルを合わせておき、マクロでカーソルを下げてきて、空白行が５つ続けば、
そこで其のデータの文の最後であると判断し、カーソルを元の位置まで戻させる、
させるマクロで作ろうとしました。以下のように作りましたら、空白行が５つある
ときはうまくいくのですが、一塊の文によっては５つも空白がなく、それ以降になんら文も改行もない場合、うまく作動しません。どのようにしたら良いのかお教えください。
ワードのマクロは経験があまりなく、エクセル感覚で作成していますのでわかりにくいかもしれませんが。

　Selection.HomeKey ' Cursorを行頭へ
　Br = 0　' ブランクの数
　Cr = 0　' 先頭よりの行数
1 A = Selection.Text
　If Asc(A) = 13 Then　' 空白行か？
　　Br = Br + 1
　　If Br >= 5 Then　' 改行の数が５ならDataの最終とみなす
　　　GoTo 2
　　End If
　Else
　　Br = 0
　　Dr = Cr　' 最終の文字のある行の先頭からの行数
　End If
　Selection.MoveDown Unit:=wdLine, Count:=1
　Selection.HomeKey ' Cursorを行頭へ
　Cr = Cr + 1
　GoTo 1
2 Selection.MoveUp Unit:=wdLine, Count:=Cr 'cursorをCr分上に移動
　　　　　　　　　　　　　　　　　　　　　（元の位置にカーソルを戻す）

データ例
ｓｄｆｋｊｆ；ｄ；ｋじゃｓ
ｄｋｋｄｋｄｋｄｋ
（CR)
ｄｓｋふぁｄｓｋｆ
ｄｋだｓ　　　　　　　------ここまでが必要なデータ
（CR)　
（CR)
（CR)
（CR)
（CR)　　　　　　　　　------（CR)が５つあれば処理は出来るが３なら
　　　　　　　　　　　　　　　うまくいかない

1,446 hits

▼

【651】文の最後はどのようにして見つけるの？ やっちゃん 09/10/2(金) 14:49