Find currency amounts in Word doc, perform sum

macropod · #1 10-15-2017, 01:38 PM

Try:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Amt As Single
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "EUR [0-9.]@m"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    Amt = Amt + CSng(Split(Split(.Text, " ")(1), "m")(0))
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
MsgBox "EUR " & Amt & "m"
End Sub

GWTJR · #2 10-15-2017, 02:18 PM

BRILLIANT! Thank you Paul. One day when you're bored, I'd love to get a better understanding of the .Find.Found loop. That's the key to understanding how to use the find results and manipulate the data as needed. Very much appreciated.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I create currency cells in a Word Table	DelHop	Word Tables	11	11-24-2019 02:37 PM
Adding addresses and $ amounts to Word docs	littlepeaks	Word VBA	2	01-22-2016 07:57 PM
Macro to find a word in first row of table and then perform two macros	hmsrose	Word VBA	5	01-30-2015 12:17 AM
Perform a search for alternative words	jungkim	Word	2	03-24-2012 07:40 AM
Perform Calculations using List boxes	Jennifer_Falcon	Word VBA	6	07-26-2011 10:49 AM