Mery: 単語の頭文字を大文字に変換する

単語の頭文字を大文字に変換する処理したら、「that's」とかの「'」がつく単語は、「That'S」みたいに「'」の後も大文字に変換される
出来れば「That's」になるようにしてみた。ついでに行末の - も考慮してみたマクロ

    var s = Document.Selection;
    if (s) {
    s.Text = s.Text.replace(/[a-z]+'[a-z]+|[a-z]+-\n[a-z]+|[a-z]+/g, function(s){return s.slice(0,1).toUpperCase()+s.slice(1)});
    }