Using a Paid stamp in Word

Charles Kenyon · #6 09-27-2017, 07:31 AM

I've created an Add-In for this. Here is a link.
This will go in your Word Startup Folder.
00 deleteme 1.png

The macro it contains is as follows:

Code:

  Sub PaidStamp()
'
' PaidStamp Macro
' Charles Kenyon 27 September 2017
' As Is
'
    Dim nShape As Long
'
   Dim sBBName As String
'
   sBBName = "_PaidStamp"
   On Error GoTo Oops
   Application.Templates(ThisDocument.FullName).BuildingBlockEntries(sBBName).Insert Where:=Selection.Range, _
      RichText:=True ' Insert sBBName Building Block

    nShape = ActiveDocument.Shapes.Count 'Should select textbox for date
    ActiveDocument.Shapes(nShape).Select
'        Selection.Font.Size = 20
    Selection.TypeText Format(Now, "d mmmm YYYY - h:mm AM/PM")
    Selection.HomeKey Unit:=wdStory
    Exit Sub ' we're done
    
Oops: ' Didn't work - building block not there!
   MsgBox Prompt:="The Building Block " & sBBName & " cannot be found in " & _
      ThisDocument.Name & ".", Title:="Didn't Work!"
   On Error GoTo 0
End Sub

It needs to be used in the unprotected portion of a document if protected.
This is rough but should do what you want. It uses an AutoText that contains a WordArt PAID and a blank textbox for the date. You can change these so long as you use the same name for the AutoText entry. You can change the date format in the macro.

This uses a dollar sign icon 00 deleteme 2.png on the QAT to launch the macro.

The macro, the AutoText and the QAT button are all stored in the template.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Time Stamp Incorrect	ashippen	Outlook	0	06-27-2016 12:04 PM
Time Stamp for Categories?	mlef	Outlook	0	05-18-2016 09:46 AM
Date & time stamp problems in Word XP	Scotfan	Word	3	03-09-2016 09:45 AM
Word signatures w/ date stamp	TechieHell	Word	2	03-16-2015 07:24 AM