【WordVBA】行頭のスペースを削除

仕事で「余分な空白行を1行に圧縮」にするマクロを組んでいるのですが、行頭に不要なスペースがあると、その行はスルーされていました。スペースだけが残っている行をすっきりさせるマクロです。 行頭に半角スペースがあったら削除 あれこれと試行錯誤していたら、2パターンできました。検索と置換後の指定文字列が違うだけで、結果は同じです。 Sub 行頭の半角スペースを削除1()　Dim allRange As RangeSet allRange = ActiveDocument.Ra