【MS Word 2003 マクロ】

不要な行と必要な行の定義を次のように理解してマクロを作りました。

「スマートで柔軟」かどうかは、わかりませんが、行単位で好きな行の処理が自由にできると思います。

あと、いい点はWordファイルにマクロを書かずに、外から扱えるというところですかね。

行の定義： 行頭から始まって改行で終わる（長さ制限なし）正規表現で「^.*$」と同等

不要な行： 奇数番目の行

下記をxxx.vbsという名前で保存して、対象のWordファイルをドラッグ＆ドロップでxxx.vbsに食わせてみてください。別ディレクトリでも複数個でもOKです。

Option Explicit

Dim objWord, objDoc
Dim strArg, myPara, i

Set objWord = CreateObject("Word.Application")
objWord.Visible = True

For Each strArg In WScript.Arguments

    Set objDoc = objWord.Documents.Open(strArg)
    i = 0
    For Each myPara In objDoc.Paragraphs
        myPara.Range.Select
'        MsgBox i
        If i Mod 2 = 0 Then
            objWord.Selection.Delete
        End If
        i = i + 1
    Next

    objDoc.Save
    objWord.Documents.Close
    Set myPara = Nothing
    Set objDoc = Nothing

Next
objWord.Quit

なお、Wordのデフォルト設定の「言語データを埋め込む」をオフにしておくことをお奨めします（「ツール」→「オプション」→「保存タブ」右上付近）。

このオプションがオンだと、保存時に「マイクをオフしておいてください」などのメッセージが出てくることがあります。