View Single Post
  #17   Report Post  
Posted to microsoft.public.word.docmanagement
Graham Mayor Graham Mayor is offline
external usenet poster
 
Posts: 19,312
Default How to auto assign current year for copyright?


The fact that you are inserting the copyright notice into a footnote
suggests that you may be referencing other documents and you may want to do
this on a regular basis. As the copyright date for a particular document is
never going to change, I think I would avoid fields altogether and use a
macro to insert the copyright notice at the cursor. You could assign the
macro to a keyboard shortcut or toolbar button e.g. for the current year:

Sub InsertCRight()
Selection.TypeText "Copyright " & Chr(169) & Year(Date)
End Sub

For the macro to be able to insert any year, as in a reference to a
document, you would need to be able to select the year. The extra code could
be added, but I wonder if that is any quicker than simply typing the
copyright notice manually? However

Sub InsertCRight()
Selection.TypeText "Copyright " & Chr(169) & _
InputBox("Enter year", , Year(Date))
End Sub

http://www.gmayor.com/installing_macro.htm

--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



"Eric" wrote in message
...
I would like to add Copyright@2010 at footnote,
does anyone have any suggestions on how to auto add current year after @?
so
I don't need to change it every year.
Thanks in advance for any suggestions
Eric