My group has found and tweaked to our preferences a VBA Word Macro that is used to extract any text that has an alphanumeric value such as (P12345) from word documents and place that list in a new word document. The macro selects everything in the open document, copies all of the text, then replces the text back in as plain text to remove all formatting. It then searches for any value that is alphanumeric (ex. P12345) and highlights that text. It will then search for and copy all of the alphanumeric values, open a new word document, and paste the values into the new document unformatted. We are looking to expand on this macro in order to better meet our needs for a new project. We are trying to have the macro save the new document with the extracted list with the title of the original document (or something similair such as a subfix added to the original title). My group has very minimal coding experience/expertise, but we have been able to edit some areas of the existing code we found.



A different approach could be for a macro that would identify all alphnumeric values, and delete everything in the document EXCEPT those values, leaving the list of alpha numeric values. We would then like if the macro would save the file and close it.

We are looking for these functions to try to create a .bat so that we can run this macro with a group of documents housed in a folder. The first step is to get the macro fitted to our needs, and then we will be able to research creating the batch process.

Any help would be greatly appreciated.

The existing code is attached as well as images of what the macro does. I have also attached a sample file that we would use with this macro.

Attached Files

	Alphanumeric Extraction VBA Code.txt (1.6 KB, 11 views)
	Test1234.docx (40.6 KB, 7 views)
	Example of Macro Results.pdf (149.6 KB, 8 views)