まりふのひと

Word2010のマクロ/半角スペース２ヶを全角スペース１ヶに変換（置換）する

VBA

マクロあるいは VBAのコードをはてなダイアリーにコピペすると、半角スペースは無視されるので、折角のインデントが台無しになる。そこで、Word2010に貼り付け、(1)２ヶの連続した半角スペースを全角スペースに置換、(2)空行は全角スペース２ヶに置換するマクロ「半角2スペースを全角スペースに変換する」を作成した。

  1. Sub 半角2スペースを全角スペースに変換する()
  2. 'VBAのコードを「はてなダイアリー」の［数字リスト］としてアップするための前処理。
  3. 　
  4. Selection.Find.ClearFormatting
  5. Selection.Find.Replacement.ClearFormatting
  6. With Selection.Find
  7. .Text = "　"
  8. .Replacement.Text = "　"
  9. .Forward = True
  10. .Wrap = wdFindContinue
  11. .Format = False
  12. .MatchCase = False
  13. .MatchWholeWord = False
  14. .MatchByte = False
  15. .MatchAllWordForms = False
  16. .MatchSoundsLike = False
  17. .MatchWildcards = False
  18. .MatchFuzzy = False
  19. End With
  20. Selection.Find.Execute Replace:=wdReplaceAll
  21. '空行は全角スペースを2っ入れる。
  22. Selection.Find.ClearFormatting
  23. Selection.Find.Replacement.ClearFormatting
  24. With Selection.Find
  25. .Text = "^p^p"
  26. .Replacement.Text = "^p　^p"
  27. .Forward = True
  28. .Wrap = wdFindContinue
  29. .Format = False
  30. .MatchCase = False
  31. .MatchWholeWord = False
  32. .MatchByte = False
  33. .MatchAllWordForms = False
  34. .MatchSoundsLike = False
  35. .MatchWildcards = False
  36. .MatchFuzzy = False
  37. End With
  38. Selection.Find.Execute Replace:=wdReplaceAll
  39. End Sub