質問: 12 End With .Execute Replace:=wdReplaceAll End With End Sub
回答: もう一度、見直しますが、もともとは、記録マクロから起こしたもののようです。 それでは、ダメのようですから、プログラミング・マクロを考えます。(本日は、眠くて無理です) そのままでは、まだ、おかしい部分があるような気がしましたが、書き直しが必要なので、それはやめていました。 ただ分からないのは、 >1....選択部部のみを対象とするのではなく、選択部分以後を対象とします。 半角文字をすべてを、12 pt にすることではなかったのではないでしょうか? >(日本字はMS明朝、英字はTimes New Roman) ただ、なんとなく、本当にそういう条件で保たれているのか分かりません。 もちろん、上から下に検索するようにして、置換するように書かないといけないかもしれません。ただ、エラーが出る原因は良くわかっていません。 >2.止まった行: .Execute Replace:=wdReplaceAll このコマンドは何を現しているのでしょう。 一括置換ですが、実際のプログラミング・マクロには、素人の方以外は、そのようなことはあまりしません。 どなたか、我こそは自信があるなら、その方が完成すれば、それはそれで構いません。今のところ、一般的に気がついた点でしか、アドバイスをしていません。もし、他人のマクロで完成しても、その人のコーディングに文句をつけるようなマナー違反はしません。ここ数カ月、ここで回答者のマナー違反が目立ったので、念のために記しておきます。