Merge field return last 4 digits of a number

macropod · #5 08-01-2020, 04:06 PM

A simpler field construction might also do the job:
{QUOTE{SET Data {MERGEFIELD ACCOUNT_NUMBER}}
{=MOD(INT(Data/100000000000),1000) \# 0}
{IF{REF Data }= "*1" 1 {IF{REF Data }= "*2" 2 {IF{REF Data }= "*3" 3 {IF{REF Data }= "*4" 4 {IF{REF Data }= "*5" 5 {IF{REF Data }= "*6" 6 {IF{REF Data }= "*7" 7 {IF{REF Data }= "*8" 8 {IF{REF Data }= "*9" 9 0}}}}}}}}}}

But, if it's a macro you want, it can be much simpler and faster than yours, too:

Code:

Sub LastFour()
Application.ScreenUpdating = False
ActiveDocument.Range.Find.Execute FindText:="[0-9]{12}([0-9]{4})", ReplaceWith:="\1", MatchWildcards:=True, Replace:=wdReplaceAll
Application.ScreenUpdating = True
End Sub

It's also not apparent why you pass 'oDoc As Document' to the macro, meaning it can't be run via Alt-F8, but don't then do anything with it.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Unable to insert line break or carriage return in mail merge field	shahid.majeed	Mail Merge	4	09-19-2019 01:08 AM
Entering a number of 19 digits	Jo Freeman	Excel	11	11-08-2017 06:20 AM
Having number's digits together	mohsen.amiri	Word	0	06-23-2017 01:20 AM
How do I create a field that will return the current paragraph number minus one in an automatic list	gugootz	Word	1	11-23-2015 04:58 PM
Use a numerical merge field to subtract that number of months	MichaelSpedding	Mail Merge	8	11-11-2015 01:11 PM