Text files with "Incident Reports" and would like to get them into Excel

[rebelfan10]

I have text files with "Incident Reports" and would like to get them into Excel. I think this can be done via vba. Below is a sample of the text file that would be two reports.

CASE SO11011111 * BLUNDO COUNTY SHERIFF'S OFFICE * PAGE: 1
INCIDENT REPORT
INCIDENT TYPE: SUSPICIOUS_ACTIVITY______ PREMISE TYPE: RESIDENCE/HOME___________
LOCATION:525____________LAKE_HILL_DR______________0_ APT/LOT:____ ZONE_SO_
WEAPON TYPE__UNKNOWN_________________
BEGIN DATE:11/22/10 BEGIN TIME:0906 END DATE:11/22/10 END TIME:0906
******************************** P E R S O N S *******************************
PERSON #:001 STATUS:_CALLER__________________
NAME:_____*****_REDACTED_*****______
******************************* P R O P E R T Y ******************************
PROPERTY #:001 STATUS:RECOVERD_ TYPE:_TOOLS_________
MAKE:_DEWALTEXV_________ MODEL:_DEWAL_18_VOLT_
COLOR:____________________ SERIAL NO:_DE1110*____________
STOLEN VALUE: $ _______ RECOVERED VALUE: $ _____50
******************************* N A R R A T I V E ****************************
ON TUESDAY 11?22?10 AT APPROXIMATELY 0915HRS, I, DEPUTY J. MILLER SO?23,
WAS DISPATCHED TO 500 MAIN STREET IN REFERENCE TO TOOLS BEING FOUND
IN YARD. UPON MY ARRIVAL I SPOKE WITH A WHITE MALE, LATER IDENTIFIED AS
ONE JOHN DOE, WHO STATED HE FOUND A CORDLESS DRILL, DEWALT 18V DRILL
*********************** A D M I N I S T R A T I O N **********************
CASE STATUS:_PENDING_________________
REPORTING OFFICER: MILLER,JOHN________ REPORT DATE:_11/22/10
ASSIGNED TO: ________________________
CASE SO11011112 * BLUNDO COUNTY SHERIFF'S OFFICE * PAGE: 1
INCIDENT REPORT
INCIDENT TYPE: SUSPICIOUS_ACTIVITY______ PREMISE TYPE: RESIDENCE/HOME___________
LOCATION:525____________LAKE_HILL_DR______________0_ APT/LOT:____ ZONE_SO_
WEAPON TYPE__UNKNOWN_________________
BEGIN DATE:11/22/10 BEGIN TIME:0906 END DATE:11/22/10 END TIME:0906
******************************** P E R S O N S *******************************
PERSON #:001 STATUS:_CALLER__________________
NAME:_____*****_REDACTED_*****______
******************************* P R O P E R T Y ******************************
PROPERTY #:001 STATUS:RECOVERD_ TYPE:_TOOLS_________
MAKE:_DEWALTEXV_________ MODEL:_DEWAL_18_VOLT_
COLOR:____________________ SERIAL NO:_DE1110*____________
STOLEN VALUE: $ _______ RECOVERED VALUE: $ _____50
******************************* N A R R A T I V E ****************************
ON TUESDAY 11?22?10 AT APPROXIMATELY 0915HRS, I, DEPUTY J. MILLER SO?23,
WAS DISPATCHED TO 500 MAIN STREET IN REFERENCE TO TOOLS BEING FOUND
IN YARD. UPON MY ARRIVAL I SPOKE WITH A WHITE MALE, LATER IDENTIFIED AS
ONE JOHN DOE, WHO STATED HE FOUND A CORDLESS DRILL, DEWALT 18V DRILL
*********************** A D M I N I S T R A T I O N **********************
CASE STATUS:_PENDING_________________
REPORTING OFFICER: MILLER,JOHN________ REPORT DATE:_11/22/10
ASSIGNED TO: ________________________

I would like to capture the following fields in Excel columns. Thanks for any help!


CASE


INCIDENT TYPE:
PREMISE TYPE:
LOCATION:
APT/LOT:
WEAPON TYPE
BEGIN DATE:
BEGIN TIME:
END DATE:
END TIME:
******************************** P E R S O N S *******************************
PERSON #:
STATUS:
NAME:
******************************* P R O P E R T Y ******************************
PROPERTY #:
STATUS:
TYPE:
MAKE:
MODEL:
COLOR:
SERIAL NO:
STOLEN VALUE:
RECOVERED VALUE:
******************************* N A R R A T I V E ****************************


*********************** A D M I N I S T R A T I O N **********************
CASE STATUS:
REPORTING OFFICER:
REPORT DATE:
ASSIGNED TO: