« 数字の日本語表記 | Main | 統一 括弧(秀丸) »

2014.01.27

入れ替え 行

思いつくままに短文を入力してから文章を完成させるときなど、行を入れ替えたいことがある。

BBB(改行マーク)
AAA(改行マーク)

AAA(改行マーク)
BBB(改行マーク)
にするのである。

このときは指定した対象範囲の中で、改行マークで終わる2つの行を検索し、置換で行の入れ替えをする。ワードVBAなら

.Text = "(?*^13)(?*^13)"
.Replacement.Text = "\2\1"

とする。

そのあとで
AAABBB
のように1行にまとめると使い勝手がさらに改善する。そのときには

Selection.EndKey Unit:=wdLine
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.EndKey Unit:=wdLine

を付加しておく。カーソルを最初の行の行末に動かし、改行マークを取り、さらにカーソルを次の行末まで動かしているのである。

テキストが長く1行に収まらなければ

'次の段落頭へカーソル移動
Selection.Move Unit:=wdParagraph
'後退して前の段落の改行マーク削除
Selection.TypeBackspace
'次の段落頭へカーソル移動
Selection.Move Unit:=wdParagraph
'一文字左に動かす
Selection.MoveLeft Unit:=wdCharacter, Count:=1

とする。

行単位の処理と違うのは、
カーソルを行末に動かすコマンド
Selection.EndKey Unit:=wdLine
はあっても
カーソルを段落末に動かすコマンド
Selection.EndKey Unit:=wdParagraph
がないためである。

|

« 数字の日本語表記 | Main | 統一 括弧(秀丸) »

Comments

Post a comment



(Not displayed with comment.)


Comments are moderated, and will not appear on this weblog until the author has approved them.



TrackBack

TrackBack URL for this entry:
http://app.cocolog-nifty.com/t/trackback/20048/59017876

Listed below are links to weblogs that reference 入れ替え 行:

« 数字の日本語表記 | Main | 統一 括弧(秀丸) »