Created Legacy Drop Down boxes to Auto Populate; Script has bugs

**User#13347** · 11-14-2016, 08:58 AM

I am running Office 2016

I have a .dotm template file that I am using as a test for a feature I would like to implement in another document. In my document I have several drop downs that are set to populate based off of previously entered information. Could someone review my code to see why I get error "5825" object deleted ? Is it simply my formatting? I am very new to VBA and I have very little experience programming. I've searched but can't find any info that pertains to my situation specifically... any help or redirection will be much appreciated.

I am going to include my test project, a copy of my 3 macro codes, and a screenshot of my project for those who don't want to DL. I will also include a map of the dependencies as an excel file if that helps.

Also I am zipping the .dotm file because it isn't a supported upload type. I am assuming this is for security purposes? Well if it's against the rules to upload a.dotm file...my bad

If you read this much thanks

~B

Module 1

*********************************
Sub PopulateddProfile()
Select Case ActiveDocument.FormFields("ddCatalog").Result
Case "Air"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "DISCOVERY COMPLIANCE"
.Add "ENFORCEMENT LEGAL"
.Add "PERMITTING AUTHORIZATION"
End With
Case "Air - Restricted"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "AIR FILE CABINET"
.Add "DISCOVERY COMPLIANCE"
.Add "ENFORCEMENT LEGAL"
.Add "PERMITTING AUTHORIZATION"
End With
Case "Beaches & Coastal Systems"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE"
.Add "BEACH MGMT FUNDING ASSISTANCE"
.Add "CONSTRUCTION OPERATION MGMT"
.Add "DISCOVERY COMPLIANCE"
.Add "ENFORCEMENT LEGAL"
.Add "FISCAL"
.Add "PERMITTING AUTHORIZATION"
.Add "PLANS AND SPECIFICATIONS"
.Add "SAMPLING"
End With
Case "Beaches & Coastal Systems - Restricted"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "BCS FILE CABINET"
.Add "ENFORCEMENT LEGAL SPECIAL BCS"
.Add "FISCAL"
End With
Case "ERP"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE"
.Add "CONSTRUCTION OPERATION MGMT"
.Add "DISCOVERY COMPLIANCE"
.Add "ENFORCEMENT LEGAL"
.Add "FISCAL"
.Add "PERMITTING AUTHORIZATION"
.Add "PLANS AND SPECIFICATIONS"
.Add "SAMPLING"
End With
Case "ERP - RESTRICTED"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ENFORCEMENT LEGAL SPECIAL ERP"
.Add "ERP FILE CABINET"
.Add "FISCAL PLANS AND SPECIFICATIONS"
End With
Case "Hazardous Waste"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "FISCAL"
.Add "GREEN YARDS"
.Add "PERMITTING AUTHORIZATION"
End With
Case "Hazardous Waste Restricted"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ENFORCEMENT LEGAL SPECIAL"
.Add "FISCAL"
.Add "HW FILE CABINET"
.Add "PERMITTING AUTHORIZATION"
End With
Case "NPDES Storm Water"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE"
.Add "DISCOVERY COMPLIANCE"
.Add "ENFORCEMENT"
.Add "LEGAL"
.Add "FISCAL"
.Add "PERMITTING AUTHORIZATION"
.Add "PLANS AND SPECIFICATIONS"
.Add "SAMPLING"
End With
Case "NPDES Storm Water - Restricted"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "FISCAL"
.Add "PLANS AND SPECIFICATIONS"
End With
Case "Potable Water"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Add "CONSTRUCTION OPERATION MGMT"
.Add "DISCOVERY COMPLIANCE"
.Add "ENFORCEMENT LEGAL"
.Add "FISCAL"
.Add "PERMITTING AUTHORIZATION"
.Add "SAMPLING"
End With
Case "Potable Water - Restricted"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ENFORCEMENT LEGAL SPECIAL PWS"
.Add "FISCAL"
.Add "PLANS AND SPECIFICATIONS"
.Add "PWS FILE CABINET"
End With
Case "Solid Waste"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ENFORCEMENT LEGAL"
.Add "FISCAL"
.Add "PERMITTING AUTHORIZATION"
End With
Case "Solid Waste Restricted"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ENFORCEMENT LEGAL SPECIAL"
.Add "FISCAL"
.Add "SW FILE CABINET"
End With
Case "Storage Tanks"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE"
.Add "CLEANUP REMEDIATION"
.Add "DISCOVERY COMPLIANCE"
.Add "DOCUMENT REVIEW"
.Add "ELIGIBILITY"
.Add "ENFORCEMENT LEGAL"
.Add "FISCAL"
.Add "MIS - INDEXED"
.Add "PERMITTING AUTHORIZATION"
.Add "REIMBURSEMENT"
End With
Case "Storage Tanks - Restricted"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "DISCOVERY LEGAL"
.Add "ENFORCEMENT LEGAL SPECIAL"
.Add "FISCAL"
.Add "PRP CONTRACT DOCUMENTS"
.Add "ST FILE CABINET"
End With
Case "UIC"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "FISCAL"
.Add "PERMITTING AUTHORIZATION"
.Add "SAMPLING"
End With
Case "UIC - Restricted"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ENFORCEMENT LEGAL"
.Add "FISCAL"
.Add "PLANS AND SPECIFICATIONS"
.Add "UIC FILE CABINET"
End With
Case "Waste Cleanup"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE"
.Add "CLEANUP REMEDIATION"
.Add "DISCOVERY COMPLIANCE"
.Add "DOCUMENT REVIEW"
.Add "ELIGIBILITY"
.Add "ENFORCEMENT LEGAL"
.Add "FISCAL"
.Add "FOLDERS"
.Add "PERMITTING AUTHORIZATION"
End With
Case "Waste Cleanup - Restricted"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ENFORCEMENT LEGAL SPECIAL"
.Add "FISCAL"
.Add "PERMITTING AUTHORIZATION"
.Add "WC FILE CABINET"
End With
Case "Wastewater"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE"
.Add "CLEANUP REMEDIATION"
.Add "CONSTRUCTION OPERATION MGMT"
.Add "DISCOVERY COMPLIANCE"
.Add "ENFORCEMENT LEGAL"
.Add "FISCAL"
.Add "PERMITTING AUTHORIZATION"
.Add "SAMPLING"
End With
Case "Wastewater - -Restricteed"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add "ENFORCEMENT LEGAL SPECIAL WW"
.Add "FISCAL"
.Add "PLANS AND SPECIFICATIONS"
.Add "WW FILE CABINET"
End With
Case "_"
With ActiveDocument.FormFields("ddProfile").DropDown.ListEntries
.Clear
.Add " "
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
End With
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
End With
With ActiveDocument.FormFields("ddFacilitytype2").DropDown.ListEntries
.Clear
End With
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
End With
End Select
End Sub

****************************************************************

Module 2
************************************************************************
Sub PopulateddDocumenttype()
Select Case ActiveDocument.FormFields("ddCatalog").Result & ActiveDocument.FormFields("ddProfile").Result
Case "Air" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ALTERNATE PROCEDURE RELATED "
.Add "ANNUAL REPORTS RELATED"
.Add "CLOSURE RELATED"
.Add "COMPLAINT RELATED"
.Add "HISTORICAL INSPECTIONS RECORDS"
.Add "INCIDENT OR MALFUNCTION REPORTING RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MEETING RELATED"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERIODIC SITE REPORTS"
.Add "SITE PHOTOS"
End With
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "N/A"
End With
Case "Air" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED"
.Add "CONSENT Order"
.Add "Final JUDGEMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "REFERRAL PACKET RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "VARIANCE RELATED"
.Add "WARNING LETTER"
End With
Case "Air" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ACID RAIN RELATED"
.Add "COMPLETENESS REVIEW RELATED"
.Add "HISTORICAL PERMIT RECORDS"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT - AMENDMENT RELATED"
.Add "PERMIT - DRAFT RELATED"
.Add "PERMIT -Final"
.Add "PERMIT - INTENT TO ISSUE - DENY RELATED"
.Add "PERMIT - PROPOSED RELATED"
.Add "PERMIT APPLICATION RELATED"
.Add "PUBLIC INTEREST REQUEST"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "REVIEW Comments"
End With
Case "Air - Restricted" & "AIR FILE CABINET"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
End With
Case "Air - Restricted" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ALTERNATE PROCEDURE RELATED"
.Add "ANNUAL REPORTS RELATED"
.Add "CLOSURE RELATED"
.Add "COMPLAINT RELATED"
.Add "HISTORICAL INSPECTIONS RECORDS"
.Add "INCIDENT OR MALFUNCTION REPORTING RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MEETING RELATED"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERIODIC SITE REPORTS"
.Add "SITE PHOTOS"
End With
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add " "
End With
Case "Air - Restricted" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED"
.Add "CONSENT Order"
.Add "Final JUDGEMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "REFERRAL PACKET RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "VARIANCE RELATED"
.Add "WARNING LETTER"
End With
Case "Air - Restricted" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ACID RAIN RELATED"
.Add "COMPLETENESS REVIEW RELATED"
.Add "HISTORICAL PERMIT RECORDS"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT - AMENDMENT RELATED"
.Add "PERMIT - DRAFT RELATED"
.Add "PERMIT -Final"
.Add "PERMIT - INTENT TO ISSUE - DENY RELATED"
.Add "PERMIT - PROPOSED RELATED"
.Add "PERMIT APPLICATION RELATED"
.Add "PUBLIC INTEREST REQUEST"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "REVIEW Comments"
End With
Case "Beaches And Coastal Systems" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "APPLICATION"
.Add "EMERGENCY"
.Add "Final"
.Add "N/A"
.Add "SITE"
.Add "VIOLATION"
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ANNUAL REPORTS RELATED"
.Add "CLOSURE RELATED"
.Add "COASTS MONITORING RELATED"
.Add "COMMENCEMENT RELATED"
.Add "COMPLAINT RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MEETING RELATED"
.Add "MITIGATION RELATED"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "Public NOTICES"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time Extensions"
End With
Case "Beaches And Coastal Systems" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED"
.Add "CONSENT ORDER"
.Add "EXCEPTION - VARIANCE RELATED"
.Add "Final JUDGEMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "INTERROGATORY"
.Add "JUDICIAL CONSENT DECREE"
.Add "LEGAL CASE TRACKING RELATED"
.Add "LIEN - BANKRUPTCY - COST RECOVERY RELATED"
.Add "MEETING RELATED"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "Public NOTICES"
.Add "REFERRAL PACKET RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESTRICTIVE COVENANTS - DEED RESTRICTIONS"
.Add "SITE ACCESS ORDERS"
.Add "SITE VISIT RELATED"
.Add "TEMPORARY USE RELATED"
.Add "Time EXTENSION"
.Add "WARNING LETTER"
End With
Case "Beaches And Coastal Systems" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "AUDIT RELATED"
.Add "COLLECTION- REFUND - WRITE OFF RELATED"
.Add "CONTRACT RELATED"
.Add "FEE REDUCTION RELATED"
.Add "FEE RELATED"
.Add "GRANT RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INVOICE RELATED"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
End With
Case "Beaches And Coastal Systems" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE ORDER RELATED"
.Add "ALTERNATE DESIGN RELATED"
.Add "ALTERNATE PROCEDURE RELATED"
.Add "COMPLETENESS REVIEW RELATED"
.Add "EASEMENT - CONSERVATION RELATED"
.Add "EASEMENT - LEASE RELATED"
.Add "ENGINEERING REPORTS"
.Add "EXEMPTION - VARIANCE RELATED"
.Add "GEOPHYSICAL LOGGING RELATED"
.Add "HISTORICAL PERMIT RECORDS"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MODIFICATION RELATED"
.Add "OBJECTION RELATED"
.Add "OPERATIONS RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT - CLOSURE RELATED"
.Add "PERMIT - DRAFT RELATED"
.Add "PERMIT - EXPIRED RELATED"
.Add "PERMIT -Final"
.Add "PERMIT - INTENT TO ISSUE -DENY RELATED"
.Add "PERMIT - ISSUED - DENIED -TERMINATED RELATED"
.Add "PERMIT - POST ISSUANCE RELATED"
.Add " "
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
.Add "PERMIT APPLICATION RELATED"
.Add "PUBLIC INTEREST RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "REVIEW Comments"
.Add "Revision RELATED"
.Add "SITE VISIT RELATED"
.Add "Time EXTENSION"
.Add " "
End With
Case "Beaches And Coastal Systems" & "PLANS AND SPECIFICATIONS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "AS - BUILTS "
.Add "PLANS"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "SPECIFICATIONS"
End With
Case "Beaches And Coastal Systems" & "SAMPLING"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "COMPLETENESS REVIEW"
.Add "GEOTECHNICAL RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MONITORING - ANALYTICAL RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time EXTENSION"
End With
Case "Beaches And Coastal Systems - Restricted" & "BCS FILE CABINET"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
End With
Case "Beaches And Coastal Systems - Restricted" & "ENFORCEMENT LEGAL SPECIAL BCS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE PETITIONS - HEARING RELATED"
.Add "ATTORNEY - CLIENT PRIVILEGE RELATED"
.Add "Case REPORT"
.Add "CIVIL COMPLAINT RELATED"
.Add "SETTLEMENT AGREEMENT - NEGOTIATION - STIPULATION"
End With
Case "Beaches And Coastal Systems - Restricted" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ABILITY TO PAY RELATED"
.Add "FEE REDUCTION RELATED"
.Add "FEE RELATED"
.Add "Financial RESPONSIBILITY"
.Add "PENALTY RELATED"
End With
Case "ERP" & "ADMINISTRATIVE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CERTIFIED AND E - MAIL RECEIPT "
.Add "DELEGATION RELATED EDUCATIONAL INFORMATION RELATED"
.Add "FACILITY - SITE INFORMATION"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PUBLIC INFORMATION REQUEST RELATED"
.Add "REQUESTS FOR ADDITIONAL INFORMATION"
End With
Case "ERP" & "CONSTRUCTION OPERATION MGMT"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CONSTRUCTION COMMENCEMENT RELATED"
.Add "DRILLING REPORTS"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OPERATION AND MAINTENANCE MANUAL"
.Add "OPERATION TESTING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "REPAIRS - MAINTENANCE RELATED"
.Add "REPORTS RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "TRANSFER TO OPERATION RELATED"
End With
Case "ERP" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "COMPLAINT INSPECTION - CI "
.Add "COMPLIANCE EVALUATION INSPECTION - CEI"
.Add "FINAL MITIGATION INSPECTION - FMI"
.Add "INSPECTION -INSP"
.Add "MINE RECLAMATION INSPECTION - MRI"
.Add "MITIGATION INSPECTION - MIT"
.Add "N/A"
.Add "STORMWATER INSPECTION - SI"
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CLOSURE RELATED"
.Add "COMMENCEMENT RELATED"
.Add "COMPLAINT RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MEETING RELATED"
.Add "MITIGATION RELATED"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "Public NOTICES"
.Add "REQUESTS FOR ADDITIONAL INFORMATION"
.Add "REVIEW Comments"
.Add "Time EXTENSION"
End With
Case "ERP" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED"
.Add "CONSENT Order"
.Add "EXCEPTION - VARIANCE RELATED"
.Add "Final JUDGEMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "INTERROGATORY"
.Add "JUDICIAL CONSENT DECREE"
.Add "LEGAL CASE TRACKING RELATED"
.Add "LIEN - BANKRUPTCY - COST RECOVERY RELATED"
.Add "MEETING RELATED"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "Public NOTICES"
.Add "REFERRAL PACKET RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESTRICTIVE COVENANTS - DEED RESTRICTIONS"
.Add "SITE ACCESS ORDERS"
.Add "SITE VISIT RELATED"
.Add "TEMPORARY USE RELATED"
.Add "Time EXTENSION"
.Add "WARNING LETTER"
End With
Case "ERP" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "COLLECTION - REFUND - WRITE OFF RELATED"
.Add "FEE REDUCTION RELATED"
.Add "FEE RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
End With
Case "ERP" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE ORDER RELATED"
.Add "ALTERNATE PROCEDURE - VARIANCE RELATED"
.Add "COMPLETENESS REVIEW RELATED"
.Add "EASEMENT - CONSERVATION RELATED"
.Add "EASEMENT - LEASE RELATED"
.Add "ENGINEERING REPORTS"
.Add "EXCEPTION - VARIANCE RELATED"
.Add "GEOPHYSICAL LOGGING RELATED"
.Add "HISTORICAL PERMIT RECORDS"
.Add "INCOMING CORRESPONDENCE"
.Add "JURISDICTION DELINEATION RELATED"
.Add "LEASE RELATED"
.Add "MEETING RELATED"
.Add "MODIFICATION RELATED"
.Add "OBJECTION RELATED"
.Add "OPERATIONS RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT - DRAFT RELATED"
.Add "PERMIT - EXPIRED RELATED"
.Add "PERMIT -Final"
.Add "PERMIT - INTENT TO ISSUE - DENY RELATED"
.Add "PERMIT - ISSUED - DENIED - TERMINATED RELATED"
.Add "PERMIT APPLICATION RELATED"
.Add " "
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
.Add "PUBLIC INTEREST RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION "
.Add "REVIEW Comments"
.Add "Revision RELATED"
.Add "SITE VISIT RELATED"
.Add "Time EXTENSION"
.Add " "
End With
Case "ERP" & "PLANS AND SPECIFICATIONS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "AS - BUILTS "
.Add "PLANS"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "SPECIFICATIONS"
.Add "STORMWATER POLLUTION PREVENTION PLAN"
End With
Case "ERP" & "SAMPLING"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ANNUAL REPORTS RELATED"
.Add "BACKGROUND ANALYSIS RELATED"
.Add "COMPLETENESS REVIEW"
.Add "COMPLIANCE RELATED"
.Add "DISCHARGE MONITORING REPORTS RELATED"
.Add "GROUNDWATER MONITORING RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MONITORING RELATED"
.Add "MONTHLY OPERATION REPORTS"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time EXTENSION"
End With
Case "ERP - RESTRICTED" & " "
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add " '"
End With
Case "ERP - RESTRICTED" & "ENFORCEMENT LEGAL SPECIAL ERP"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE PETITIONS - HEARINGS RELATED"
.Add "ATTORNEY - CLIENT PRIVILEGE RELATED"
.Add "Case REPORT"
.Add "CIVIL COMPLAINT RELATED"
.Add "SETTLEMENT AGREEMENT - NEGOTIATION - STIPULATION"
End With
Case "ERP - RESTRICTED" & "ERP FILE CABINET "
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
End With
Case "ERP - RESTRICTED" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ABILITY TO PAY RELATED "
.Add "FEE REDUCTION RELATED"
.Add "FEE RELATED"
.Add "Financial RESPONSIBILITY"
.Add "PENALTY RELATED"
End With
Case "ERP - RESTRICTED" & "PLANS AND SPECIFICATIONS "
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "AS - BUILTS "
.Add "PLANS"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "SPECIFICATIONS"
.Add "STORMWATER POLLUTION PREVENTION PLAN"
End With
Case "Hazardous Waste" & "ADMINISTRATIVE"
With ActiveDocument.FormFields("ddDocumnettype").DropDown.ListEntries
.Clear
.Add "CERTIFIED AND EMAIL - RECEIPT "
.Add "FACILITY - SITE INFORMATION"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "OFFSITE NOTICE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERFORMANCE TRACK"
.Add "PUBLIC INFORMATION REQUEST RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SITE ACCESS RELATED"
.Add "SITE CHRONOLOGY"
End With
Case "Hazardous Waste" & "AUTHORIZATION SOURCE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "HAZARDOUS WASTE GENERATOR RELATED "
.Add "HAZARDOUS WASTE TRANSPORTER RELATED"
.Add "MERCURY HANDLER RELATED"
.Add "REGISTRATION RELATED"
.Add "USED OIL HANDLER RELATED"
End With
Case "Hazardous Waste" & "CLEANUP REMEDIATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ALTERNATE PROCEDURE RELATED "
.Add "APPROVAL RELATED"
.Add "AS - BUILTS"
.Add "CERCLA SITE EVALUATIONS"
.Add "COMMUNITY RELATIONS"
.Add "COMPLETION RELATED"
.Add "DOCUMENT LATE NOTICE"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "OPERATION AND MAINT - REMEDIAL ACTION RPT RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMITS - PERMIT VARIANCES"
.Add "POTABLE WELL SURVEY - SAMPLING"
.Add "QUALITY ASSURANCE RELATED"
.Add "REMEDIAL ACTION PLAN RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESCISSION RELATED"
.Add "REVIEW Comments"
.Add "RISK ASSESSMENT"
.Add "SIS REPORT"
.Add "SIS REQUEST FOR ASSISTANCE"
.Add " "
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
.Add "SITE ASSESSMENT RELATED "
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "SITE VISIT RELATED"
.Add "SOURCE REMOVAL RELATED"
.Add "TARGETED BROWNFIELDS ASSESSMENT"
.Add "Time EXTENSION"
.Add "WELL ABANDONMENT RELATED"
.Add " "
End With
Case "Hazardous Waste" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "N/A"
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CLOSURE RELATED"
.Add "COMPLAINT RELATED"
.Add "DISCHARGE REPORTING RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERIODIC SITE REPORTS"
.Add "POTABLE WELL SURVEY - SAMPLING"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "Time EXTENSION"
.Add "WASTE MANIFESTS"
.Add "N/A"
.Add " "
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
.Add "HAZARDOUS WASTE GENERATOR (HWG)"
.Add "HAZARDOUS WASTE ONE TIME GENERATOR (HWOTG)"
.Add "PERMITTED-CONSENTED TSD (PCTSD)"
.Add "REGISTERED HAZARDOUS WASTE TRANSPORTER (RHWT)"
.Add "REGISTERED MERCURY HANDLER (RMH)"
.Add "REGISTERED USED OIL HANDLER (RUOH)"
.Add "SQG RELATED"
.Add "UNIVERSAL WASTE HANDLER (UWH)"
.Add " "
End With
Case "Hazardous Waste" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED "
.Add "CONSENT Order"
.Add "Final JUDGMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "INTERROGATORY"
.Add "JUDICIAL CONSENT DECREE"
.Add "LEGAL CASE TRACKING RELATED"
.Add "LIEN - BANKRUPTCY - COST RECOVERY RELATED"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "REFERRAL PACKET RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESTRICTIVE COVENANTS - DEED RESTRICTIONS"
.Add "SITE ACCESS ORDERS"
.Add "Time EXTENSION"
.Add "VOLUNTARY CLEANUP AGREEMENT RELATED"
.Add "WARNING LETTER"
End With
Case "Hazardous Waste" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "COLLECTION - REFUND -WRITE OFF RELATED "
.Add "COST ESTIMATE RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "OUTGOING CORRESPONDENCE"
End With
Case "Hazardous Waste" & "GREEN YARDS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ANNUAL RENEWAL "
.Add "INSPECTION WORKSHEET"
.Add "MODULE 1"
.Add "MODULE 2"
.Add "MODULE 3"
.Add "MODULE 4"
.Add "MODULE 5"
.Add "MODULE 6"
.Add "NPDES PERMIT"
.Add "OTHER PERTINENT DOCUMENT"
.Add "RTC LETTER"
.Add "RTC PLAN"
.Add "SPCC"
.Add "STATEMENT OF INTENT"
End With
Case "Hazardous Waste" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ALTERNATE PROCEDURE - VARIANCE RELATED"
.Add "HAZARDOUS WASTE GENERATOR RELATED"
.Add "HAZARDOUS WASTE TRANSPORTER RELATED"
.Add "INCOMING -CORRESPONDENCE"
.Add "INTENT TO ISSUE - DENY RELATED"
.Add "MEETING RELATED"
.Add "MERCURY HANDLER RELATED"
.Add "MISCELLANEOUS"
.Add "OPERATIONS RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT APPLICATION RELATED"
.Add "PERMIT ISSUED - DENIED RELATED"
.Add "REGISTRATION RELATED - TO FIX"
.Add "USED OIL HANDLER RELATED"
End With
Case "Hazardous Waste - Restricted" & "ENFORCEMENT LEGAL SPECIAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE PETITIONS - HEARINGS RELATED "
.Add "ATTORNEY - CLIENT PRIVILEGE RELATED"
.Add "Case REPORT"
.Add "CIVIL COMPLAINT RELATED"
.Add "REFERRAL PACKET RELATED"
.Add "SETTLEMENT AGREEMENT - NEGOTIATION - STIPULATION"
End With
Case "Hazardous Waste - Restricted" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ABILITY TO PAY RELATED "
.Add "Financial RESPONSIBILITY"
.Add "PENALTY RELATED"
End With
Case "Hazardous Waste - Restricted" & "HW FILE CABINET"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
End With
Case "Hazardous Waste - Restricted" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "OPERATIONS HANDLER "
.Add "USED OIL HANDLER RELATED"
End With
Case "NPDES Storm Water" & "ADMINISTRATIVE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CERTIFIED AND E - MAIL RECEIPT "
.Add "DELEGATION RELATED"
.Add "FACILITY - SITE INFORMATION"
.Add "FIELD WORK NOTIFICATION"
.Add "FILE QA"
.Add "IMMINENT THREAT INFORMATION"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PUBLIC INFORMATION REQUEST RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SITE ACCESS RELATED"
.Add "SITE CHRONOLOGY"
.Add "Time EXTENSION"
End With
Case "NPDES Storm Water" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "N/A"
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ANNUAL REPORT RELATED "
.Add "CLOSURE RELATED"
.Add "COMPLAINT RELATED"
.Add "DISCHARGE REPORTING RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MEETING RELATED"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "Public NOTICES"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time EXTENSION"
.Add "TOTAL MAXIMUM DAILY LOAD (TMDL) RELATED"
End With
Case "NPDES Storm Water" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED "
.Add "CONSENT Order"
.Add "EXCEPTION - VARIANCE RELATED"
.Add "Final JUDGEMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "INTERROGATORY"
.Add "JUDICIAL CONSENT DECREE"
.Add "LEGAL CASE TRACKING RELATED LIEN - BANKRUPTCY - COST RECOVERY RELATED"
.Add "MEETING RELATED"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "Public NOTICES"
.Add "REFERRAL FOR ADDITIONAL INFORMATION RESTRICTIVE COVENANTS - DEED RESTRICTIONS"
.Add "SITE ACCESS ORDERS"
.Add "SITE VISIT RELATED"
.Add "Time EXTENSION"
.Add "WARNING LETTER"
End With
Case "NPDES Storm Water" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "BID PROJECT RELATED "
.Add "COLLECTION - REFUND - WRITE OFF RELATED"
.Add "FEE REDUCTION RELATED"
.Add "FEE RELATED"
.Add "GRANT RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INVOICE RELATED"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
End With
Case "NPDES Storm Water" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "COMPLETENESS REVIEW RELATE "
.Add "HISTORICAL PERMIT RECORDS"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MODIFICATION RELATED"
.Add "OPERATIONS RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT - DRAFT RELATED"
.Add "PERMIT - EXPIRED RELATED"
.Add "PERMIT - INTENT TO ISSUE - DENY RELATED"
.Add "PERMIT -ISSUED - DENIED - TERMINATED"
.Add "PERMIT APPLICATION RELATED"
.Add "SITE VISIT RELATED"
.Add "STORMWATER MANAGEMENT PROGRAM RELATED"
.Add "Time EXTENSION"
End With
Case "NPDES Storm Water" & "PLANS AND SPECIFICATIONS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "AS - BUILTS "
.Add "MS4 MONITORING PLANS"
.Add "PLANS"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "SPECIFICATIONS"
.Add "STORM SEWER MAPS"
.Add "STORMWATER POLLUTION PREVENTION PLAN"
End With
Case "NPDES Storm Water" & "SAMPLING"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "COMPLETENESS REVIEW "
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MONITORING - ANALYTICAL RELATED"
.Add "MONITORING - COMPLIANCE RELATED"
.Add "MONITORING - MS4 RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time EXTENSION"
End With
Case "NPDES STORM WATER - RESTRICTED" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ABILITY TO PAY RELATED "
.Add "FEE RELATED"
.Add "Financial RESPONSIBILITY"
.Add "PENALTY RELATED"
End With
Case "NPDES STORM WATER - RESTRICTED" & "PLANS AND SPECIFICATIONS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add PLANS
.Add SPECIFICATIONS
End With
Case "Potable Water" & "CONSTRUCTION OPERATION MGMT"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "EQUIPMENT APPROVAL RELATED "
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OPERATION AND MAINTENANCE MANUAL"
.Add "OPERATIONAL TESTING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "POTABLE WATER WELL DRILLING RELATED"
.Add "REPAIRS - MAINTENANCE RELATED"
.Add "SITE STAFFING RELATED"
End With
Case "Potable Water" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "BREACH OF SECURITY "
.Add "CAPACITY DEVELOPMENT ASSESSMENT"
.Add "COMPREHENSIVE PERFORMANCE EVAL"
.Add "EMERGENCY Assistance"
.Add "Follow -UP"
.Add "FOR CAUSE OR COMPLAINT"
.Add "N/A"
.Add "PERMIT (PLANT OR LINE CLEARANCE)"
.Add "ROUTINE COMPLIANCE"
.Add "SANITARY SURVEY"
.Add "TECHNICAL ASSISTANCE SITE VISIT"
.Add "WATERSHED EVALUATION"
.Add "WELLHEAD PROTECTION PROGRAM"
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "4 - LOG VIRAL INACTIVATION RELATED "
.Add "CLOSURE RELATED"
.Add "COMPLAINT RELATED"
.Add "CONSUMER CONFIDENCE REPORT RELATED"
.Add "CROSS CONNECTION CONTROL RELATED"
.Add "INCIDENT OR MALFUNCTION REPORTING RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MEETING RELATED"
.Add "MONITORING RELATED"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCES"
.Add "Public NOTICES"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time EXTENSION"
End With
Case "Potable Water" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED "
.Add "CONSENT Order"
.Add "EXCEPTION - VARIANCE RELATED"
.Add "Final JUDGEMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "INTERROGATORY"
.Add "JUDICIAL CONSENT DECREE"
.Add "LEGAL CASE TRACKING RELATED"
.Add "LEGAL CASE TRACKING RELATED LIEN - BANKRUPTCY - COST RECOVERY RELATED"
.Add "MEETING RELATED"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "Public NOTICES"
.Add "REFERRAL PACKET RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESTRICTIVE COVENANTS - DEED RESTRICTIONS"
.Add "SITE ACCESS ORDERS"
.Add "SITE VISIT RELATED"
.Add "Time EXTENSION"
.Add "WARNING LETTER"
End With
Case "Potable Water" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "COLLECTION - REFUND - WRITE OFF RELATED "
.Add "FEE RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
End With
Case "Potable Water" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CAPACITY RELATED "
.Add "CLEARANCE RELATED"
.Add "ENGINEERING REPORTS"
.Add "EXEMPTION - VARIANCE RELATED"
.Add "HISTORICAL PERMIT RECORDS"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT -Final"
.Add "PERMIT - INTENT TO ISSUE - DENY RELATED"
.Add "PERMIT - ISSUED -DENIED RELATED"
.Add "PERMIT APPLICATION RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SITE VISIT RELATED"
End With
Case "Potable Water" & "SAMPLING"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "BACTERIOLOGICAL RELATED "
.Add "CHEMICAL AND RADIOLOGICAL RELATED"
.Add "DISINFECTION BYPRODUCTS RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "LEAD AND COPPER RELATED"
.Add "MEETING RELATED"
.Add "MONITORING RELATED"
.Add "MONTHLY OPERATIONS REPORTS"
.Add "OUTGOING CORRESPONDENCE"
.Add "Public NOTICES"
.Add "Time EXTENSION"
End With
Case "Potable Water - Restricted" & "ENFORCEMENT LEGAL SPECIAL PWS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE PETITIONS - HEARINGS RELATED "
.Add "ATTORNEY - CLIENT PRIVILEGE RELATED"
.Add "Case REPORT"
.Add "CIVIL COMPLAINT RELATED"
.Add "SETTLEMENT AGREEMENT - NEGOTIATION - STIPULATION"
End With
Case "Potable Water - Restricted" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ABILITY TO PAY RELATED "
.Add "Financial RESPONSIBILITY"
.Add "PENALTY RELATED"
End With
Case "Potable Water - Restricted" & "PLANS AND SPECIFICATIONS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ENGINEERING REPORTS"
.Add "PLANS"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "SPECIFICATIONS"
End With
Case "Potable Water - Restricted" & "PWS FILE CABINET"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add " "
End With
Case "Solid Waste" & "ADMINISTRATIVE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CERTIFIED AND E - MAIL RECEIPT "
.Add "DELEGATION RELATED"
.Add "FACILITY - SITE INFORMATION"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "OFFSITE NOTICE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PUBLIC INFORMATION REQUEST RELATED"
.Add "SITE ACCESS RELATED"
.Add "SITE CHRONOLOGY"
End With
Case "Solid Waste" & "AUTHORIZATION SOURCE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "SOURCE - SEPARATED ORGANICS (SOPF) REGISTRATION"
.Add "WASTE TIRE AUTHORIZATION RELATED"
End With
Case "Solid Waste" & "CLEANUP REMEDIATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ALTERNATE PROCEDURE RELATED "
.Add "APPROVAL RELATED"
.Add "AS -BUILTS"
.Add "CERCLA SITE EVALUATIONS"
.Add "COMMUNITY RELATIONS"
.Add "COMPLETION RELATED"
.Add "DOCUMENT LATE NOTICE"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "OPERATION AND MAINT - REMEDIAL ACTION RPT RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PILOT - FEASIBILITY STUDY"
.Add "POTABLE WELL SURVEY - SAMPLING"
.Add "REMEDIAL ACTION PLAN RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESCISSION RELATED"
.Add "REVIEW Comments"
.Add "RISK ASSESSMENT"
.Add "SIS REPORT"
.Add "SIS REQUEST FOR ASSISTANCE"
.Add "SITE ASSESSMENT RELATED"
.Add " "
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
.Add "SITE MAPS - SKETCHES - DRAWINGS "
.Add "SITE PHOTOS"
.Add "SITE VISIT RELATED"
.Add "SOURCE REMOVAL RELATED"
.Add "TARGETED BROWNFIELDS ASSESSMENT"
.Add "WELL ABANDONMENT RELATED"
End With
Case "Solid Waste" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "N/A"
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CLOSURE RELATED "
.Add "COMMENCEMENT RELATED"
.Add "COMPLAINT RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MEETING RELATED"
.Add "MITIGATION RELATED"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCES"
.Add "Public NOTICES"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "REVIEW Comments"
.Add "Time EXTENSION"
End With
Case "Solid Waste" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED "
.Add "CONSENT Order"
.Add "Final JUDGMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "INTERROGATORY"
.Add "JUDICIAL CONSENT DECREE"
.Add "LEGAL CASE TRACKING RELATED"
.Add "LIEN - BANKRUPTCY - COST RECOVERY RELATED"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "REFERRAL PACKET RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESTRICTIVE COVENANTS - DEED RESTRICTIONS"
.Add "SITE ACCESS ORDERS"
.Add "Time EXTENSION"
.Add "VOLUNTARY CLEANUP AGREEMENT RELATED"
.Add "WARNING LETTER"
End With
Case "Solid Waste" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "COST ESTIMATE RELATED "
.Add "GRANT APPLICATORS AGREEMENTS"
.Add "GRANT REIMBURSEMENT REQUESTS"
.Add "INCOMING CORRESPONDENCES"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "OUTGOING CORRESPONDENCES"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "WASTE TIRE CONTRACTS"
.Add "WORK ORDER - TASK ASSIGNMENT RELATED"
End With
Case "Solid Waste" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ALTERNATE INITIAL COVER RELATED "
.Add "ALTERNATE PROCEDURE - VARIANCE RELATED"
.Add "AUTOMATED E - NOTIFICATION"
.Add "BENEFICIAL USE RELATED"
.Add "DISASTER DEBRIS MANAGEMENT SITE RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INTENT TO ISSUE - DENY RELATED"
.Add "LANDFILL REUSE RELATED"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT APPLICATION RELATED"
.Add "PERMIT ISSUED - DENIED RELATED"
.Add "SOURCE - SEPARATED ORGANICS (SOPF) REGISTRATION"
.Add "WASTE TIRE AUTHORIZATION RELATED"
End With
Case "Solid Waste - Restricted" & "ENFORCEMENT LEGAL SPECIAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE PETITIONS - HEARINGS RELATED "
.Add "ATTORNEY - CLIENT PRIVILEGE RELATED"
.Add "Case REPORT"
.Add "CIVIL COMPLAINT RELATED"
.Add "DEPT OF REVENUE (DOR) CORRESPONDENCE"
.Add "SETTLEMENT AGREEMENT - NEGOTIATION - STIPULATION"
End With
Case "Solid Waste - Restricted" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ABILITY TO PAY RELATED "
.Add "Financial RESPONSIBILITY"
.Add "PENALTY RELATED"
End With
Case "Solid Waste - Restricted" & "SW FILE CABINET"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add " "
End With
Case "Storage Tanks" & "ADMINISTRATIVE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CERTIFIED AND E - MAIL RECEIPT "
.Add "CONTRACTOR DESIGNATION RELATED"
.Add "CONTRACTOR PERFORMANCE EVALUATION"
.Add "CONTRACTOR QUALIFICATION RELATED"
.Add "FACILITY - SITE INFORMATION"
.Add "FIELD WORK NOTIFICATION"
.Add "FILE QA"
.Add "IMMINENT THREAT INFORMATION"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "OFFSITE NOTICE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PUBLIC INFORMATION REQUEST RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SCORING CHECKLIST - PACKET"
.Add "SITE ACCESS RELATED"
.Add "SITE CHRONOLOGY"
.Add "Time EXTENSION"
End With
Case "Storage Tanks" & "CLEANUP REMEDIATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ALTERNATE PROCEDURE RELATED "
.Add "APPROVAL RELATED"
.Add "AS - BUILTS"
.Add "CLEANUP REFERRAL PACKET"
.Add "COMMUNITY RELATIONS"
.Add "COMPLETION RELATED"
.Add "DOCUMENT LATE NOTICE"
.Add "INCOMING CORRESPONDENCE"
.Add "LAB ANALYTICAL REPORTS"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "NPDES RELATED"
.Add "OPERATION AND MAINT - REMEDIAL ACTION RPT RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERFORMANCE BASED CLEANUP (PBC) RELATED"
.Add "PILOT - FEASIBILITY STUDY"
.Add "QUALITY ASSURANCE RELATED"
.Add "REMEDIAL ACTION PLAN RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESCISSION RELATED"
.Add "REVIEW Comments"
.Add "RISK ASSESSMENT"
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
.Add "SIS REPORT "
.Add "SIS REQUEST FOR ASSISTANCE"
.Add "SITE ASSESSMENT RELATED"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "SITE VISIT RELATED"
.Add "SOURCE REMOVAL RELATED"
.Add "Time EXTENSION"
.Add "WELL ABANDONMENT RELATED"
.Add " "
End With
Case "Storage Tanks" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "N/A"
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ALTERNATE PROCEDURE RELATED "
.Add "CLEANUP INITIATION RELATED"
.Add "CLOSURE RELATED"
.Add "COMPLAINT RELATED"
.Add "DISCHARGE REPORTING RELATED"
.Add "ETHANOL -BIODIESEL"
.Add "FUEL AVAILABILITY"
.Add "HISTORICAL INSPECTION RECORDS"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "INSTALLATION RELATED"
.Add "LEAKY AUTOPSY RELATED"
.Add "MINERAL ACID RELATED"
.Add "MISCELLANEOUS"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "POTABLE WELL SURVEY"
.Add "RELEASE DETECTION RELATED"
.Add "REPAIRS - MAINTENANCE RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "TANK SYSTEM EQUIPMENT APPROVAL"
.Add " "
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
.Add "TANK SYSTEM HAZARDOUS SUBSTANCE RELATED "
.Add "TERMINAL - BUNKERING RELATED"
.Add "Time EXTENSION"
End With
Case "Storage Tanks" & "DOCUMENT REVIEW"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "LAB ANALYTICAL REPORTS "
.Add "SITE ACCESS RELATED"
End With
Case "Storage Tanks" & "ELIGIBILITY"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "DECISION"
.Add "ELIGIBILITY PACKET RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time EXTENSION"
End With
Case "Storage Tanks" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED "
.Add "CONSENT Order"
.Add "Final JUDGMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "INTERROGATORY"
.Add "JUDICIAL CONSENT DECREE"
.Add "LEGAL CASE TRACKING RELATED"
.Add "LIEN - BANKRUPTCY - COST RECOVERY RELATED"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "REFERRAL PACKET RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESTRICTIVE COVENANTS - DEED RESTRICTIONS"
.Add "SITE ACCESS ORDERS"
.Add "Time EXTENSION"
.Add "VARIANCE RELATED"
.Add "VOLUNTARY CLEANUP AGREEMENT RELATED"
.Add "WARNING LETTER"
End With
Case "Storage Tanks" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "BID PROJECT RELATED "
.Add "COLLECTION - REFUND - WRITE OFF RELATED"
.Add "COST SHARE AGREEMENT RELATED"
.Add "DEDUCTIBLE INFORMATION"
.Add "INCOMING CORRESPONDENCE"
.Add "INVOICE RELATED"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "NPDES PAYMENT RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERFORMANCE BASED CLEANUP (PBC) RELATED"
.Add "PETROLEUM CLEANUP EQUIPMENT - PROPERTY FORM"
.Add "PETROLEUM CLEANUP PARTICIPATION PROGRAM"
.Add "PRE - APP ADVANCE CLEANUP RELATED"
.Add "PROPERTY NUMBER INFORMATION"
.Add "PROPOSAL RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "UTILITY RELATED"
.Add "WORK ORDER- TASK ASSIGNMENT RELATED"
End With
Case "Storage Tanks" & "MIS - INDEXED"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "DECISION "
.Add "MISCELLANEOUS"
.Add "MO"
.Add "OPERATION AND MAINT - REMEDIAL ACTION RPT RELATED"
.Add "REMEDIAL ACTION PLAN RELATED"
.Add "SITE ASSESSMENT RELATED"
.Add "SOURCE REMOVAL RELATED"
.Add "TECHNICAL Document"
End With
Case "Storage Tanks" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "HISTORICAL REGISTRATION RECORDS "
.Add "TANK REGISTRATION RELATED"
End With
Case "Storage Tanks" & "REIMBURSEMENT"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "APPLICATION INSUFFICIENCY LETTER "
.Add "APPLICATION REVIEW ROUTING SLIP"
.Add "AUDIT INFORMATION"
.Add "FINAL REIMBURSEMENT ORDER"
.Add "FINANCIAL AND ACCOUNTING DOCUMENT"
.Add "INTEREST AND PAYMENT MATERIALS"
.Add "MISCELLANEOUS"
.Add "REIMBURSEMENT APPLICATION - CORRECTED PAGES"
.Add "REVIEW - CHECKLIST MATERIALS"
.Add "SETTLEMENT INFORMATION"
.Add "SITE INSPECTION RELATED"
.Add "SUPPLEMENTAL PAYMENT REQUEST"
.Add "Time EXTENSION"
End With
Case "Storage Tanks - Restricted" & "DISCOVERY LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "LEAK AUTOPSY RELATED "
End With
Case "Storage Tanks - Restricted" & "ENFORCEMENT LEGAL SPECIAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE PETITION - HEARINGS RELATED "
.Add "ATTORNEY - CLIENT PRIVILEGE RELATED"
.Add "Case REPORT"
.Add "CIVIL COMPLAINT RELATED"
.Add "MEETING RELATED"
.Add "SETTLEMENT AGREEMENT - NEGOTIATION - STIPULATION"
End With
Case "Storage Tanks - Restricted" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ABILITY TO PAY RELATED "
.Add "Financial RESPONSIBILITY"
.Add "PENALTY RELATED"
End With
Case "Storage Tanks - Restricted" & "PRP CONTRACT DOCUMENTS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add " "
End With
Case "Storage Tanks - Restricted" & "ST FILE CABINET"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add " "
End With
Case "UIC" & "ADMINISTRATIVE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CERTIFIED AND E - MAIL RECEIPT "
.Add "FACILITY - SITE INFORMATION"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PUBLIC INFORMATION REQUEST RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SITE ACCESS RELATED"
.Add "SITE CHRONOLOGY"
.Add "Time EXTENSION"
End With
Case "UIC" & "CLEANUP REMEDIATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "INCOMING CORRESPONDENCE "
.Add "INJECTION WELL NOTIFICATION RELATED"
.Add "MEETING RELATED"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "OUTGOING CORRESPONDENCES"
.Add "PERMITS - PERMIT VARIANCES"
.Add "REMEDIAL ACTION PLAN RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "WELL ABANDONMENT RELATED"
End With
Case "UIC" & "CONSTRUCTION OPERATION MGMT"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASING SEAT RELATED "
.Add "DRILLING REPORTS"
.Add "GEOPHYSICAL LOGGING RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INJECTION TEST RELATED"
.Add "MEETING RELATED"
.Add "OPERATION AND MAINTENANCE MANUAL"
.Add "OPERATIONAL TESTING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "REPAIRS - MAINTENANCE RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
End With
Case "UIC" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "COMPLIANCE"
.Add "MECHANICAL INTEGRITY"
.Add "N/A"
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CLOSURE RELATED "
.Add "COMPLAINT RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MECHANICAL INTEGRITY TESTING & REPORTING RELATED"
.Add "MEETING RELATED"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time EXTENSION"
End With
Case "UIC" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED "
.Add "CONSENT Order"
.Add "Final JUDGEMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "INTERROGATORY"
.Add "JUDICIAL CONSENT DECREE"
.Add "LEGAL CASE TRACKING RELATED"
.Add "MEETING RELATED"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "REFERRAL PACKET RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESTRICTIVE COVENANTS - DEED RESTRICTIONS"
.Add "SITE ACCESS ORDERS"
.Add "SITE VISIT RELATED"
.Add "Time EXTENSION"
.Add "VOLUNTARY CLEANUP AGREEMENT RELATED"
.Add "WARNING LETTER"
End With
Case "UIC" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "FEE RELATED "
.Add "INCOMING CORRESPONDENCE"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
End With
Case "UIC" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE ORDER RELATED "
.Add "ALTERNATE DESIGN RELATED"
.Add "ALTERNATE PROCEDURE - VARIANCE RELATED"
.Add "AQUIFER EXEMPTION RELATED"
.Add "ENGINEERING REPORTS"
.Add "GEOPHYSICAL LOGGING RELATED"
.Add "HISTORICAL PERMIT RECORDS"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MODIFICATION RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT - DRAFT RELATED"
.Add "PERMIT -Final"
.Add "PERMIT - INTENT TO ISSUE - DENY RELATED"
.Add "PERMIT - ISSUED - DENIED RELATED"
.Add "PERMIT APPLICATION RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Revision RELATED"
.Add "Time EXTENSION"
.Add "WATER QUALITY EXEMPTION RELATED"
End With
Case "UIC" & "SAMPLING"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ANNUAL REPORT RELATED "
.Add "BACKGROUND ANALYSIS RELATED"
.Add "COMPLIANCE RELATED"
.Add "EFFLUENT ANALYSIS RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MONTHLY OPERATION REPORTS"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time EXTENSION"
End With
Case "UIC - Restricted" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE PETITIONS - HEARINGS RELATED "
.Add "ATTORNEY - CLIENT PRIVILEGE RELATED"
.Add "Case REPORT"
.Add "CIVIL COMPLAINT RELATED"
.Add "SETTLEMENT AGREEMENT - NEGOTIATION - STIPULATION"
End With
Case "UIC - Restricted" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "FEE EDUCATION RELATED "
.Add "FEE RELATED"
.Add "Financial RESPONSIBILITY"
.Add "PENALTY RELATED"
End With
Case "UIC - Restricted" & "PLANS AND SPECIFICATIONS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "AS - BUILTS "
.Add "ENGINEERING REPORTS"
.Add "OPERATION AND MAINTENANCE MANUAL"
.Add "PLANS"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "SPECIFICATIONS"
End With
Case "UIC - Restricted" & "UIC FILE CABINET"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add " "
End With
Case "Waste Cleanup" & "ADMINISTRATIVE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CERTIFIED AND E - MAIL RECEIPT "
.Add "FACILITY - SITE INFORMATION"
.Add "FIELD WORK NOTIFICATION"
.Add "FILE QA"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "OFFSITE NOTICE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERFORMANCE TRACK"
.Add "PUBLIC INFORMATION RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SITE ACCESS RELATED"
.Add "SITE CHRONOLOGY"
.Add "VOLUNTARY CLEANUP TAX CREDIT TRANSFER RELATED"
End With
Case "Waste Cleanup" & "CLEANUP REMEDIATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ALTERNATE PROCEDURE RELATED "
.Add "APPROVAL RELATED"
.Add "AS - BUILTS"
.Add "CERCLA SITE EVALUATIONS"
.Add "COMMUNITY RELATIONS"
.Add "COMPLETION RELATED"
.Add "DECISION MEMO ROD"
.Add "DOCUMENT LATE NOTICE"
.Add "INCOMING CORRESPONDENCE"
.Add "LAB ANALYTICAL REPORTS"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "NPDES RELATED"
.Add "OPERATION AND MAINT - REMEDIAL ACTION RPT RELATED"
.Add "OUTGOING CORRESPONDENCES"
.Add "PERMITS - PERMIT VARIANCES"
.Add "PILOT - FEASIBILITY STUDY"
.Add "POTABLE WELL SURVEY - SAMPLING"
.Add "QUALITY ASSURANCE RELATED"
.Add "REMEDIAL ACTION PLAN RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESCISSION RELATED"
.Add " "
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
.Add "REVIEW COMMENTS "
.Add "RISK ASSESSMENT"
.Add "SIS REPORT"
.Add "SIS REQUEST FOR ASSISTANCE"
.Add "SIRTE ASSESSMENT RELATED"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "SITE SPECIFIC ACTIVITY RELATED"
.Add "SITE VISIT RELATED"
.Add "SOURCE REMOVAL RELATED"
.Add "TARGETED BROWNFIELDS ASSESSMENT"
.Add "Time EXTENSION"
.Add "WASTE MANIFESTS"
.Add "WELL ABANDONMENT RELATED"
.Add " "
End With
Case "Waste Cleanup" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "N/A"
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CLEANUP INITIATION RELATED "
.Add "COMPLAINT RELATED"
.Add "DISCHARGE REPORTING RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "POTABLE WELL SURVEY - SAMPLING"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "Time EXTENSION"
End With
Case "Waste Cleanup" & "DOCUMENT REVIEW"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "LAB ANALYTICAL REPORTS"
End With
Case "Waste Cleanup" & "ELIGIBILITY"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "APPLICATION INSUFFICIENCY RELATED "
.Add "BROWNFIELDS AGREEMENTS"
.Add "DECISION"
.Add "DSCP APPLICATION FORM"
.Add "ELIGIBILITY PACKET RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INVOICE POCKETS"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "OUTGOING CORRESPONDENCE"
.Add "PROFESSIONAL SERVICES AGREEMENT"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "REVIEW - CHECKLIST MATERIALS"
.Add "REVIEW Comments"
.Add "SITE SCORE SHEETS"
.Add "SITE SCREENING REPORT"
.Add "STATE INITIATION PACKAGE"
.Add "TAX CREDIT APPLICATION RELATED"
.Add "VOLUNTARY CLEANUP TAX CREDIT CERTIFICATE"
End With
Case "Waste Cleanup" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED "
.Add "CONSENT Order"
.Add "Final JUDGMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "INTERROGATORY"
.Add "JUDICIAL CONSENT DECREE"
.Add "LEGAL CASE TRACKING RELATED"
.Add "LIEN - BANKRUPTCY - COST RECOVERY RELATED"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "REFERRAL PACKET RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "RESTRICTIVE COVENANTS - DEED RESTRICTIONS"
.Add "SITE ACCESS ORDERS"
.Add "SITE VISIT RELATED"
.Add "Time EXTENSION"
.Add "VARIANCE RELATED"
.Add "VOLUNTARY CLEANUP AGREEMENT"
.Add "WARNING LETTER"
End With
Case "Waste Cleanup" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "COLLECTION - REFUND - WRITE OFF "
.Add "DEDUCTIBLE INFORMATION"
.Add "INCOMING CORRESPONDENCE"
.Add "INVOICE RELATED"
.Add "MEETING RELATED"
.Add "MISCELLANEOUS"
.Add "NPDES PAYMENT RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PROPERTY NUMBER INFORMATION"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SSC - COOPERATIVE AGREEMENT"
.Add "UTILITY RELATED"
.Add "WORK ORDER RELATED - TASK ASSIGNMENT RELATED"
End With
Case "Waste Cleanup" & "FOLDERS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add " "
End With
Case "Waste Cleanup - Restricted" & "ENFORCEMENT LEGAL SPECIAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE PETITIONS - HEARINGS RELATED "
.Add "ATTORNEY - CLIENT PRIVILEGE RELATED"
.Add "Case REPORT"
.Add "CIVIL COMPLAINT RELATED"
.Add "ELIGIBILITY REVOCATION"
.Add "SETTLEMENT AGREEMENT - NEGOTIATION - STIPULATION"
End With
Case "Waste Cleanup - Restricted" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "FINANCIAL RESPONSIBILITY "
.Add "PENALTY RELATED"
.Add "REVIEW FEE RELATED"
.Add "TAX CREDIT CERTIFICATE"
End With
Case "Waste Cleanup - Restricted" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "EPA GENERATOR ID LETTER"
End With
Case "Waste Cleanup - Restricted" & "WC FILE CABINET"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add " "
End With
Case "Wastewater" & "ADMINISTRATIVE"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CERTIFIED AND E - MAIL RECEIPT "
.Add "FACILITY - SITE INFORMATION"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OFFSITE NOTICE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PUBLIC INFORMATION RELATED"
.Add "REGULATORY AUTHORITY RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SITE ACCESS RELATED"
End With
Case "Wastewater" & "CLEANUP REMEDIATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "INCOMING CORRESPONDENCE "
.Add "MEETING RELATED"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "MONITORING WELL RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT RELATED"
.Add "QUALITY ASSURANCE RELATED"
.Add "REMEDIAL ACTION PLAN RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "SITE ASSESSMENT RELATED"
.Add "SITE VISIT RELATED"
.Add "Time EXTENSION"
End With
Case "Wastewater" & "CONSTRUCTION OPERATION MGMT"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "INCOMING CORRESPONDENCE "
.Add "MEETING RELATED"
.Add "OPERATION AND MAINTENANCE MANUAL"
.Add "OPERATIONAL TESTING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PILOT STUDY RELATED"
.Add "REPORTS RELATED"
.Add "SITE STAFFING RELATED"
End With
Case "Wastewater" & "DISCOVERY COMPLIANCE"
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add "5TH YEAR INSPECTION "
.Add "BIOSOLIDS SITE INSPECTION"
.Add "CAFO NON-SAMPLING INSPECTION"
.Add "CAFO SAMPLING INSPECTION"
.Add "COMPLAINT INSPECTION"
.Add "COMPLIANCE ASSISTANCE SITE VISIT"
.Add "COMPLIANCE BIOMONITORING INSPECTION"
.Add "COMPLIANCE EVALUATION INSPECTION"
.Add "COMPLIANCE SAMPLING INSPECTION"
.Add "DAM COMPLIANCE INSPECTION"
.Add "ENFORCEMENT RECONNAISSANCE INSPECTION"
.Add "FOLLOW UP INSPECTION"
.Add "IMPACT BIOASSESSMENT INSPECTION"
.Add "N/A"
.Add "OFFICE FILE INVESTIGATION"
.Add "RECONNAISSANCE INSPECTION"
.Add "RESIDUAL SITE INSPECTION"
.Add "SAMPLING RECONNAISSANCE INSPECTION"
.Add "SANITARY SEWER OVERFLOW - LAND SURFACE INSPECTION"
.Add "SANITARY SEWER OVERFLOW - PREVENTATIVE INSPECTION"
.Add "SANITARY SEWER OVERFLOW - SURFACE WATER INSPECTION"
.Add "SITE VISIT"
.Add "TOXIC SAMPLING INSPECTION"
.Add "WATER QUALITY INSPECTION"
End With
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CLOSURE RELATED "
.Add "COMPLAINT RELATED"
.Add "CROSS CONNECTION CONTROL RELATED"
.Add "INCIDENT OR MALFUNCTION REPORTING RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "INSPECTION RELATED"
.Add "MECHANICAL INTEGRITY TESTING & REPORTING RELATED"
.Add "MEETING RELATED"
.Add "MONITOR WELL RELATED"
.Add "MONITORING PLANS AND REPORTS RELATED"
.Add "NONCOMPLIANCE RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "Public NOTICES"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time EXTENSION"
End With
Case "Wastewater" & "ENFORCEMENT LEGAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CASE CLOSURE RELATED "
.Add "CONSENT Order"
.Add "Final JUDGEMENT"
.Add "Final ORDERS"
.Add "INCOMING CORRESPONDENCE"
.Add "INTERROGATORY"
.Add "JUDICIAL CONSENT DECREE"
.Add "LEGAL CASE TRACKING RELATED"
.Add "LIEN - BANKRUPTCY - COST RECOVERY RELATED"
.Add "MEETING RELATED"
.Add "NOTICE OF VIOLATION"
.Add "OUTGOING CORRESPONDENCE"
.Add "PENALTY AUTHORIZATION RELATED"
.Add "Public NOTICES"
.Add "SITE ACCESS ORDERS"
.Add "SITE VISIT RELATED"
.Add "Time EXTENSION"
.Add "WARNING LETTER"
End With
Case "Wastewater" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "COLLECTION - REFUND - WRITE OFF RELATED "
.Add "FEE REDUCTION RELATED"
.Add "FEE RELATED"
.Add "GRANT RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "LOAN RELATED"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
End With
Case "Wastewater" & "PERMITTING AUTHORIZATION"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "CLEARANCE RELATED "
.Add "EXEMPTION - VARIANCE RELATED"
.Add "HISTORICAL PERMIT RECORDS"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "PERMIT - DRAFT RELATED"
.Add "PERMIT - EXPIRED RELATED"
.Add "PERMIT -Final"
.Add "PERMIT - INTENT TO ISSUE - DENY RELATED"
.Add "PERMIT - PRETREATMENT RELATED"
.Add "PERMIT APPLICATION RELATED"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Revision RELATED"
.Add "SITE VISIT RELATED"
.Add "Time EXTENSION"
.Add "TOTAL MAXIMUM DAILY LOAD (TMDL) RELATED"
End With
Case "Wastewater" & "SAMPLING"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "AMBIENT MONITORING RELATED "
.Add "COMPLETENESS REVIEW"
.Add "DISCHARGE MONITORING REPORTS RELATED"
.Add "EFFLUENT ANALYSIS RELATED"
.Add "GROUNDWATER MONITORING RELATED"
.Add "INCOMING CORRESPONDENCE"
.Add "MEETING RELATED"
.Add "OUTGOING CORRESPONDENCE"
.Add "REQUEST FOR ADDITIONAL INFORMATION"
.Add "Time EXTENSION"
End With
Case "Wastewater - Restricted" & "ENFORCEMENT LEGAL SPECIAL WW"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ADMINISTRATIVE PETITIONS - HEARINGS RELATED "
.Add "ATTORNEY - CLIENT PRIVILEGE RELATED"
.Add "Case REPORT"
.Add "CIVIL COMPLAINT RELATED"
.Add "SETTLEMENT AGREEMENT - NEGOTIATION - STIPULATION"
End With
Case "Wastewater - Restricted" & "FISCAL"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "ABILITY TO PAY RELATED "
.Add "FEE RELATED"
.Add "Financial RESPONSIBILITY"
.Add "PENALTY RELATED"
End With
Case "Wastewater - Restricted" & "PLANS AND SPECIFICATIONS"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add "AS - BUILTS "
.Add "ENGINEERING REPORTS"
.Add "PLANS"
.Add "SITE MAPS - SKETCHES - DRAWINGS"
.Add "SITE PHOTOS"
.Add "SPECIFICATIONS"
End With
Case "Wastewater - Restricted" & "WW FILE CABINET"
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add " "
End With
Case " " & " "
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
End With
Case "_" & " "
With ActiveDocument.FormFields("ddDocumenttype").DropDown.ListEntries
.Clear
.Add " "
End With
With ActiveDocument.FormFields("ddDocumenttype2").DropDown.ListEntries
.Clear
.Add " "
End With

End Select
End Sub

*************************************************************************** *

Module 3

Sub PopulateddFacilitytype()
Select Case ActiveDocument.FormFields("ddCatalog").Result
Case "Air"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Add " "
.Clear
.Add "N/A"
End With
Case "Air - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add " "
End With
Case "Beaches And Coastal Systems"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "BCS"
End With
Case "Beaches And Coastal Systems - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "BCS"
End With
Case "ERP"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "ERP"
End With
Case "ERP - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "ERP"
End With
Case "Hazardous Waste"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "HAZARDOUS WASTE GENERATOR (HWG)"
.Add "HAZARDOUS WASTE ONE TIME GENERATOR (HWOTG)"
.Add "PERMITTED-CONSENTED TSD (PCTSD)"
.Add "REGISTERED HAZARDOUS WASTE TRANSPORTER (RHWT)"
.Add "REGISTERED MERCURY HANDLER (RMH)"
.Add "REGISTERED USED OIL HANDLER (RUOH)"
.Add "SQG RELATED"
.Add "UNIVERSAL WASTE HANDLER (UWH)"
End With
Case "Hazardous Waste - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "HAZARDOUS WASTE GENERATOR (HWG)"
.Add "HAZARDOUS WASTE ONE TIME GENERATOR (HWOTG)"
.Add "PERMITTED-CONSENTED TSD (PCTSD)"
.Add "REGISTERED HAZARDOUS WASTE TRANSPORTER (RHWT)"
.Add "REGISTERED MERCURY HANDLER (RMH)"
.Add "REGISTERED USED OIL HANDLER (RUOH)"
.Add "SQG RELATED"
.Add "UNIVERSAL WASTE HANDLER (UWH)"
End With
Case "NPDES STORM WATER"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "CONSTRUCTION GENERIC PERMIT (CGP)"
.Add "CONSTRUCTION GENERIC PERMIT WITH DEWATERING OPTION (CGD)"
.Add "MULTI-SECTOR GENERIC PERMIT (MSP)"
.Add "MUNICIPAL SEPARATE STORM SEWER SYSTEM (MS4)"
.Add "NO EXPOSURE CERTIFICATION (NEX)"
End With
Case "NPDES STORM WATER - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "CONSTRUCTION GENERIC PERMIT (CGP)"
.Add "CONSTRUCTION GENERIC PERMIT WITH DEWATERING OPTION (CGD)"
.Add "MULTI-SECTOR GENERIC PERMIT (MSP)"
.Add "MUNICIPAL SEPARATE STORM SEWER SYSTEM (MS4)"
.Add "NO EXPOSURE CERTIFICATION (NEX)"
End With
Case "Potable Water"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "COMMUNITY "
.Add "NONCOMMUNITY"
.Add "NONTRANSIENT NONCOMMUNITY"
.Add "OTHER PUBLIC WATER SYSTEM"
End With
Case "Potable Water - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "COMMUNITY "
.Add "NONCOMMUNITY"
.Add "NONTRANSIENT NONCOMMUNITY"
.Add "OTHER PUBLIC WATER SYSTEM"
End With
Case "solid Waste"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "ASBESTOS DISPOSAL FACILITY (410) "
.Add "BIOHAZARDOUS WASTE STORAGE (753)"
.Add "BIOHAZARDOUS WASTE TREATMENT (631)"
.Add "CLASS I LANDFILL (100)"
.Add "CLASS II LANDFILL (200)"
.Add "CLASS III LANDFILL (300)"
.Add "COAL ASH MONOFILL (421)"
.Add "COAL FIRED POWER PLANT (430)"
.Add "COMPOSTING FACILITY(740)"
.Add "CONSTRUCTION/DEMOLITION DEBRIS (540)"
.Add "CONTAINER TO CONTAINER OPERATION (705)"
.Add "DISASTER DEBRIS MANAGEMENT SITE (910)"
.Add "DISASTER DEBRIS MANAGEMENT SITE (DEEPWATER HORIZON) (915)"
.Add "DISASTER DEBRIS OIL SPILL SATELLITE ACCUMULATION (916)"
.Add "ENERGY RECOVERY(821)"
.Add "MATERIAL RECOVERY FACILITY - C & D (545)"
.Add "MATERIAL RECOVERY FACILITY - CLASS I & III (810)"
.Add "OLD DUMP(520)"
.Add "OTHER DISPOSAL/PROCESSING FACILITY (500)"
.Add "OTHER ORGANICS COMPOSTING FACILITY (749)"
.Add "RE-INDEX FACILITY TYPE"
.Add "RECOVERED MATERIALS PROCESSING FACILITY (RMPF) (900)"
.Add "RESOURCE RECOVERY FACILITY (800)"
.Add " "
End With
With ActiveDocument.FormFields("ddFacilitytype2").DropDown.ListEntries
.Clear
.Add "SLUDGE MANAGEMENT SITE (400) "
.Add "SOIL TREATMENT(632)"
.Add "SOLID WASTE COMBUSTOR (610)"
.Add "SOPF -REGISTERED / PERMITTED(330)"
.Add "SPECIAL WASTE(510)"
.Add "TIRE DISPOSAL(511)"
.Add "TRANSFER STATION(750)"
.Add "TREATMENT FACILITY(600)"
.Add "UNAUTHORIZED DISPOSAL/PROCESSING COMPLAINT (595)"
.Add "USED OIL RECYCLING (811)"
.Add "VOLUME REDUCTION / SHREDDER(700)"
.Add "WASTE TIRE COLLECTION CENTER (751)"
.Add "WASTE TIRE COLLECTOR (754)"
.Add "WASTE TIRE MOBILE PROCESSOR (722)"
.Add "WASTE TIRE PROCESSING FACILITY (710)"
.Add "WASTE TIRE SITE - UNAUTHORIZED (592)"
.Add "WASTE TO ENERGY (820)"
.Add "WTE ASH MONOFILL (420)"
.Add "YARD TRASH COMPOSTING W/DISPOSAL - 62-701 (320)"
.Add "YARD TRASH DISPOSAL FACILITY (310)"
.Add " "
End With
Case "solid Waste - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "ASBESTOS DISPOSAL FACILITY (410) "
.Add "BIOHAZARDOUS WASTE STORAGE (753)"
.Add "BIOHAZARDOUS WASTE TREATMENT (631)"
.Add "CLASS I LANDFILL (100)"
.Add "CLASS II LANDFILL (200)"
.Add "CLASS III LANDFILL (300)"
.Add "COAL ASH MONOFILL (421)"
.Add "COAL FIRED POWER PLANT (430)"
.Add "COMPOSTING FACILITY(740)"
.Add "CONSTRUCTION/DEMOLITION DEBRIS (540)"
.Add "CONTAINER TO CONTAINER OPERATION (705)"
.Add "DISASTER DEBRIS MANAGEMENT SITE (910)"
.Add "DISASTER DEBRIS MANAGEMENT SITE (DEEPWATER HORIZON) (915)"
.Add "DISASTER DEBRIS OIL SPILL SATELLITE ACCUMULATION (916)"
.Add "ENERGY RECOVERY(821)"
.Add "MATERIAL RECOVERY FACILITY - C & D (545)"
.Add "MATERIAL RECOVERY FACILITY - CLASS I & III (810)"
.Add "OLD DUMP(520)"
.Add "OTHER DISPOSAL/PROCESSING FACILITY (500)"
.Add "OTHER ORGANICS COMPOSTING FACILITY (749)"
.Add "RE-INDEX FACILITY TYPE"
.Add "RECOVERED MATERIALS PROCESSING FACILITY (RMPF) (900)"
.Add "RESOURCE RECOVERY FACILITY (800)"
.Add " "
End With
With ActiveDocument.FormFields("ddFacilitytype2").DropDown.ListEntries
.Clear
.Add "SLUDGE MANAGEMENT SITE (400) "
.Add "SOIL TREATMENT(632)"
.Add "SOLID WASTE COMBUSTOR (610)"
.Add "SOPF -REGISTERED / PERMITTED(330)"
.Add "SPECIAL WASTE(510)"
.Add "TIRE DISPOSAL(511)"
.Add "TRANSFER STATION(750)"
.Add "TREATMENT FACILITY(600)"
.Add "UNAUTHORIZED DISPOSAL/PROCESSING COMPLAINT (595)"
.Add "USED OIL RECYCLING (811)"
.Add "VOLUME REDUCTION / SHREDDER(700)"
.Add "WASTE TIRE COLLECTION CENTER (751)"
.Add "WASTE TIRE COLLECTOR (754)"
.Add "WASTE TIRE MOBILE PROCESSOR (722)"
.Add "WASTE TIRE PROCESSING FACILITY (710)"
.Add "WASTE TIRE SITE - UNAUTHORIZED (592)"
.Add "WASTE TO ENERGY (820)"
.Add "WTE ASH MONOFILL (420)"
.Add "YARD TRASH COMPOSTING W/DISPOSAL - 62-701 (320)"
.Add "YARD TRASH DISPOSAL FACILITY (310)"
.Add " "
End With
Case "Storage Tanks"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "STCM FACILITY"
End With
Case "Storage Tanks - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "STCM FACILITY"
End With
Case "UIC"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "CLASS I"
.Add "CLASS II"
.Add "CLASS III"
.Add "CLASS IV"
.Add "CLASS V - ASR"
.Add "CLASS V - NON ASR"
End With
Case "UIC - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "CLASS I"
.Add "CLASS II"
.Add "CLASS III"
.Add "CLASS IV"
.Add "CLASS V - ASR"
.Add "CLASS V - NON ASR"
End With
Case "WASTE CLEANUP"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "BROWNFIELDS"
.Add "BROWNFIELDS_SRP"
.Add "DOD"
.Add "DOE"
.Add "DRYCLEANING"
.Add "ERIC"
.Add "FUDS"
.Add "HWC STATE FUNDED"
.Add "NASA"
.Add "RP CLEANUP"
.Add "SIS"
.Add "SOLCUP"
.Add "SUPERFUND"
.Add "SUPERFUND ALTERNATIVE"
End With
Case "WASTE CLEANUP - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "BROWNFIELDS"
.Add "BROWNFIELDS_SRP"
.Add "DOD"
.Add "DOE"
.Add "DRYCLEANING"
.Add "ERIC"
.Add "FUDS"
.Add "HWC STATE FUNDED"
.Add "NASA"
.Add "RP CLEANUP"
.Add "SIS"
.Add "SOLCUP"
.Add "SUPERFUND"
.Add "SUPERFUND ALTERNATIVE"
End With
Case "Wastewater"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "AGRICULTURAL"
.Add "ANIMAL FEEDING OPERATION"
.Add "BIOSOLIDS OUT OF STATE"
.Add "CONCENTRATED ANIMAL FEEDING OPERATION"
.Add "CONCRETE BATCH PLANT"
.Add "DEWATERING"
.Add "DOMESTIC WASTEWATER"
.Add "GAMBLING VESSEL"
.Add "GROUNDWATER REMEDIATION"
.Add "INDIVIDUAL STORMWATER"
.Add "INDUSTRIAL WASTEWATER"
.Add "PESTICIDE TREATMENT AREA"
.Add "PETROLEUM 8 HOUR CLEANUP"
.Add "PETROLEUM LONG TERM CLEANUP"
.Add "PETROLEUM SHORT TERM CLEANUP"
.Add "RESIDUAL APPLICATION FACILITY"
.Add "RESIDUAL /SEPTAGE MANAGEMENT FACILITY"
.Add "REUSE/DISTRIBUTION SYSTEM"
End With
Case "Wastewater - Restricted"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add "AGRICULTURAL"
.Add "ANIMAL FEEDING OPERATION"
.Add "BIOSOLIDS OUT OF STATE"
.Add "CONCENTRATED ANIMAL FEEDING OPERATION"
.Add "CONCRETE BATCH PLANT"
.Add "DEWATERING"
.Add "DOMESTIC WASTEWATER"
.Add "GAMBLING VESSEL"
.Add "GROUNDWATER REMEDIATION"
.Add "INDIVIDUAL STORMWATER"
.Add "INDUSTRIAL WASTEWATER"
.Add "PESTICIDE TREATMENT AREA"
.Add "PETROLEUM 8 HOUR CLEANUP"
.Add "PETROLEUM LONG TERM CLEANUP"
.Add "PETROLEUM SHORT TERM CLEANUP"
.Add "RESIDUAL APPLICATION FACILITY"
.Add "RESIDUAL /SEPTAGE MANAGEMENT FACILITY"
.Add "REUSE/DISTRIBUTION SYSTEM"
End With
Case "_"
With ActiveDocument.FormFields("ddFacilitytype").DropDown.ListEntries
.Clear
.Add " "
End With
With ActiveDocument.FormFields("ddFacilitytype2").DropDown.ListEntries
.Clear
.Add " "
End With
With ActiveDocument.FormFields("ddInspectiontype").DropDown.ListEntries
.Clear
.Add " "
End With
End Select
End Sub

**********************************************************************

**User#13347** · 11-14-2016, 12:56 PM

Maybe my Phrasing is bad? If I am unclear about anything please feel free to comment and I will try my best to clarify.

Thanks

**gmaxey** · 11-14-2016, 01:58 PM

When you get the error and select "Debug," this line is highlighted:

Select Case ActiveDocument.FormFields("ddCatalog").Result & ActiveDocument.FormFields("ddProfile").Result

Your template does not have a formfield named ddCatalog or ddProfile. Apparently if it ever did then you have intentionally or inadvertently deleted them.

**User#13347** · 11-14-2016, 02:31 PM

Greg,
Thank you very much for your response, I appreciate you taking time to help me out. I specified ddCatalog by writing "ddCatalog" in the drop down properties textbox labeled bookmark was this correct? I did the same with ddProfile.... I noticed my Macros that were set to run on exit have vanished as well. I'll have to look into that

Everyone else out there,

So I've set dd(Catalog,profile,Documenttype1,Documenttype2,facilitytype,facilitytype2,a nd inspectiontype) all to their respective bookmarks. I've loaded my macros according to the 2nd and third photos. Any idea why ERP - Restricted as a ddcatalog selection won't populate an item in ddProfile? If anyone has any more helpful hints or tips I'd really appreciate it.
Again thanks,
~B

**gmaxey** · 11-14-2016, 03:42 PM

Because your code doesn't have a case for ERP - Restricted

Case "ERP - Restricted" '"ERP - RESTRICTED"

Note: I may have been incorrect earlier. Your select case statements will error if something isn't selected (displayed) in the formfields so add an error handler:

On Error GoTo lbl_Exit
Select Case ActiveDocument.FormFields("ddCatalog").Result & ActiveDocument.FormFields("ddProfile").Result
'all the other mash of code
End Select
lbl_Exit:
On Error GoTo 0
Exit Sub
End Sub

**User#13347** · 11-15-2016, 12:20 PM

Ahh! That's it! I didn't realize my specified strings weren't matching and the error message wasn't cluing me in! This is the first thing I have written in VBA so it's been an interesting process lol.

It looks like the code you provided me is almost like error suppression? Either way it works wonders and I can continue on with my work. I would say you have successfully solved my issue Greg, thanks!

Cheers!

~Brandon

Side Note* I just noticed you have a website, maybe some things there will be handy to me in future!

Thread: Created Legacy Drop Down boxes to Auto Populate; Script has bugs

Thread Tools

Display

Created Legacy Drop Down boxes to Auto Populate; Script has bugs

Tags for this Thread

Posting Permissions