''''''''''''''''''''''''''''''''''''''''''''''''
''insert a signature via an input query dialog''
''''''''''''''''''''''''''''''''''''''''''''''''
dim  doc, sname


if Application.DocumentCount > 0 then
  doc  = Application.ActiveDocument
  sname = ""
  
  if InputQuery("Name query", "Enter your name", sname) then
    doc.Lines.Add ""
    doc.Lines.Add "Regards, "
    doc.Lines.Add sname + "."
  end if
end if