以下のような、テキスト、もしくは、ワードのデータがあります。
(OS：XP、ワード2003です）
=====================＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
2009年05月29日
アノト方式デジタルペンで記述を直接電子化
2009年05月28日
半導体パッケージの小型化・低コストを実現する次世代リードフレーム
2009年05月14日
FeliCa9KB搭載高機能型とFeliCa Lite搭載の低価格型、2種の非接触ICカード
==============================＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
現在は、
1行目日付。2行目タイトル(1)、
1行空き
3行目日付 3行目タイトル(2)
となっています。
これを、以下、つまり、
1行；日付 半角空き タイトル(1)
↓
2009年05月29日 アノト方式デジタルペンで記述を直接電子化
と、1行に一気にしたいです。1,000行くらいありまして、
手作業では大変です。
この後は、これを、エクセルで、
「日付」「タイトル」と1行1列のセルにしてデータ化したいです。
そのために、元データの1行化を効率よく行う方法を
ご教授いただけませんでしょうか？
業務に使っておりまして、結構急いでおります。
よろしくお願いいたします。
No.3
5960
633
27pt
WORDマクロ（VBA）で組んでみました。
WORDメニュー→ツール→マクロ→作成ボタンを押して、下記のマクロを登録してみてください。
40
40
Sub hogehoge()
flag = 1
Do While flag = 1
n = Selection.MoveDown(wdLine)
If (n >= 1) Then
Selection.TypeBackspace
Selection.TypeText (" ")
Selection.MoveStart (wdParagraph)
Selection.Delete (wdCharacter)
Else
flag = 0
End If
Loop
End Sub
No.1
11840
27pt
その程度の簡単な編集であれば、テキストエディタの「キー操作の記録/再生」機能を利用するのがいいとおもいます。
例えば秀丸エディタであれば、1行目にカーソルを置いた状態で Shift+F1 で記録を開始して、
Endキー(カーソルを行末へ)
Deleteキー(改行を削除して、1行目と2行目を繋ぐ)
スペースキー(空白を挿入)
下矢印キー(次の空行へ移動)
Deleteキー(空行を削除)
Shift+F1(記録の終了)
とやってキー操作を記録して、あとは Shift+F2(キー操作の再生) を押しっぱなしにしておけば残りの行も全て１行に編集されます。
こんなにも、シンプルなやり方があるのですね。本当にありがとうございます。
No.2
332
27pt
秀丸のキー操作記録機能を使うのは如何でしょうか。
http://www.ceres.dti.ne.jp/~sugiura/hidemaru/lesson/rensai_1.htm...
流れとしては、ファイルを開いたら、
1.endキーを押す（行末に移動する）
2.Deleteキーを押す（改行を削除し、一行にする）
3.↓キーを押す
4.↓キーを押す
5.Homeボタンを押す（行頭にカーソルが移動。念のため）
上記のような感じで
この流れを記録し、再生をすれば効率よく変換出来ると思います。
行と行の間に改行が空の改行が不要な場合は、３と４の間にDeleteキーを押す処理を加えて下さい。
ありがとうございます。いろいろな方法があるのですね。助かります。
No.3
5960633
ここでベストアンサー
27pt
WORDマクロ（VBA）で組んでみました。
WORDメニュー→ツール→マクロ→作成ボタンを押して、下記のマクロを登録してみてください。
Sub hogehoge()
flag = 1
Do While flag = 1
n = Selection.MoveDown(wdLine)
If (n >= 1) Then
Selection.TypeBackspace
Selection.TypeText (" ")
Selection.MoveStart (wdParagraph)
Selection.Delete (wdCharacter)
Else
flag = 0
End If
Loop
End Sub
いろいろな方法があるのですね。参考になりました。ありがとうございました。
1
1
2
いろいろな方法があるのですね。参考になりました。ありがとうございました。