コメントを日付で挿入 (ID:67701)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ついでにマクロのコードも書いてもらえると同じことをやりたい人が 参考になると思います。 ちなみに2005だと Sub AddUpdateComment() Dim textSelection As EnvDTE.TextSelection Dim org As String textSelection = CType(DTE.ActiveDocument.Selection(), EnvDTE.TextSelection) org = textSelection.Text ' 改行で終わっていない場合は改行文字をつける If Not org.EndsWith(Environment.NewLine) Then org &= Environment.NewLine End If textSelection.Text = "// " & System.DateTime.Now.ToString("yyyy/MM/dd") & " start mod. by " & Environment.UserName & Environment.NewLine & _ org & _ "// " & System.DateTime.Now.ToString("yyyy/MM/dd") & " end mod. by " & Environment.UserName & Environment.NewLine End Sub てなかんじかなと。(Environment.UserNameが微妙そうだけど) ちなみに、私もこの手のコメントはあまりよろしくないかなぁと思っています。 ソース管理ツール(CVSとかVSSとか)をつかっているならやらないほうが良いでしょう。 (書くのであれば、ソースの最初のほうに変更履歴みたいなのを書くだけにする。) ソース管理ツールを使っていない場合は、いたしかたないですがうまいこと書いていかないとコメントだらけで読みづらくなるのだけは避けてください。