How to rename the word doc with the name mentioned in the body of the document

gmayor · #5 11-20-2014, 10:15 PM

The 'number' section of Policy number ABC3782/00088ABC contains an illegal filename character "/" So you would not be able to name a file with a string containing that character. If you were to replace it with (say) an underscore you could use

Code:

Do While .Execute(FindText:="Policy number [A-Z]{1,}[0-9]{1,}/[0-9]{1,}[A-Z]{1,}", MatchWildcards:=True)
            strText = orng.Text
            bFound = True
            vNumber = Split(strText, " ")
            ActiveDocument.SaveAs Filename:=strPath & Replace(Trim(vNumber(UBound(vNumber))), "/", "_") & ".docx"
            Exit Do
        Loop

You can search for any unique string using wildcards - see http://www.gmayor.com/replace_using_wildcards.htm

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to rename multiple Word file with same suffix	ozil61	Word VBA	2	05-06-2014 07:36 AM
How to specify Document Title from the body of my Document	SymphonyTomorrow	Word	9	08-05-2013 05:31 PM
Rename Document & Save	d4okeefe	Word VBA	4	05-23-2013 09:35 AM
How to import Word Style Headings and body text into Excel	antztaylor	Excel	5	11-08-2012 09:54 PM
Advancing Paragraph Numbers in Merge Document Body	Wyskers	Mail Merge	1	11-30-2011 04:46 AM