Using a Paid stamp in Word

RFC7 · #1 09-27-2017, 02:06 AM

In this digital paperless world, which I support and encourage, I would like to find a way to digitally add the word 'PAID' in large red letters across an invoice before digitally filing it. (Just like the old-fashioned method when one used a rubber stamp)
Is this available in Word, or in fact anywhere else? if so.....Please advise how I can do this.

In anticipation of a positive reply,

'Many thanks'

RFC7

macropod · #2 09-27-2017, 04:39 AM

You could create one by inserting a WordArt object with the word 'Paid' inside a Textbox both of whose background you set to 'no fill'.

RFC7 · #3 09-27-2017, 04:49 AM

Thank you for your prompt reply and suggestion, my thoughts have progressed the question:

In a perfect world, I would like to find a piece of software that allows one to select an icon from a range of digital stamps, paste it across the page and at the same time, date and time stamp it.
If the above is not available, it should be, maybe there is an Ap design opportunity here?

RFC7

macropod · #4 09-27-2017, 05:06 AM

That kind of thing can be created fairly easily with a macro. The only reason for the macro is that you want the current date & time; otherwise you could just save your 'Paid' stamp as a custom watermark and use that whenever it's needed. No additional software required.

RFC7 · #5 09-27-2017, 05:22 AM

Thank you again for your response, which does appear to provide a solution to my problem.
Re your suggestion, is this something that a retired Marine engineer, who has limited computer knowledge, action himself? If the answer is no, can you point me in the right direction for someone I could commission to create this for me.
Regards

RFC7

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.

Charles Kenyon · #7 09-27-2017, 10:02 AM

I do not know whether this macro will run on a Mac but it should not hurt anything if it does not. The above link is to a zip file. Here is a temporary link to the template, itself.

Charles Kenyon · #8 09-28-2017, 07:37 PM

Could you please let me know if that helped?

RicardoRyan · #9 10-04-2017, 04:04 AM

it helped me, thank you

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