Merge field return last 4 digits of a number

gmayor · #1 07-31-2020, 10:39 PM

You can't merge part of a field, but if you were to use https://www.gmayor.com/email_merge_addin.html to merge to separate documents, you could use the following macro with it to get the last four digits of any 16 digit number

Code:

Sub LastFour(oDoc As Document)
Dim oNum As Range
    Set oNum = ActiveDocument.Range
    With oNum.Find
        Do While .Execute(findText:="[0-9]{16}", MatchWildcards:=True)
            oNum.Text = Right(oNum, 4)
            oNum.Collapse 0
        Loop
    End With
lbl_Exit:
    Set oNum = Nothing
    Exit Sub
End Sub

macropod · #2 08-01-2020, 04:01 AM

Quote:

Originally Posted by gmayor

You can't merge part of a field

In the case of numeric fields of up to 15 digits, not so. The problem here is the 16th digit, for which a suitable field construction is:

{QUOTE{SET Data {MERGEFIELD ACCOUNT_NUMBER}}
{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}}}}}}}}}
{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}}}}}}}}}
{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}}}}}}}}}
{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}}}}}}}}}}

For a macro to convert the above into a working field, see Convert Text Representations of Fields to Working Fields in the Mailmerge Tips and Tricks 'Sticky' thread at the top of this forum:
https://www.msofficeforums.com/mail-...ps-tricks.html

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