Sub AddModiBy()
        Dim selection As TextSelection
        ActiveDocument().Selection.StartOfLine()
        selection = ActiveDocument().Selection
        selection.Text = ControlChars.Tab + "//" + "Modi by yym on " + CStr(Now())
    End Sub