ࡱ> ;<Tahoma,FW{0,Z335Tahoma,FW{0,Z325Tahoma,FW{0,Z315Tahoma,FW{0,Z305Tahoma,FW{0,Z295Tahoma,FW{0,Z285Tahoma,FW{0,Z275Tahoma,FW{0,Z265Tahoma,FW{0,Z255Tahoma,FW{0,Z245Tahoma,FW{0,Z235Tahoma,FW{0,Z225Tahoma,FW{0,Z215Tahoma,F f2ɀ\pLaDonna Cooley Ba= ThisWorkbook=x9Y8X@"1Arial1Arial1Arial1Arial1( Arial Narrow1Arial1 Arial1$Arial1(x Arial Narrow1h8Cambria1,8Calibri18Calibri18Calibri1Calibri1Calibri1<Calibri1>Calibri1?Calibri14Calibri14Calibri1 Calibri1 Calibri1Arial1Calibri1Calibri1 Calibri1Calibri"$"#,##0_);\("$"#,##0\)!"$"#,##0_);[Red]\("$"#,##0\)""$"#,##0.00_);\("$"#,##0.00\)'""$"#,##0.00_);[Red]\("$"#,##0.00\)7*2_("$"* #,##0_);_("$"* \(#,##0\);_("$"* "-"_);_(@_).))_(* #,##0_);_(* \(#,##0\);_(* "-"_);_(@_)?,:_("$"* #,##0.00_);_("$"* \(#,##0.00\);_("$"* "-"??_);_(@_)6+1_(* #,##0.00_);_(* \(#,##0.00\);_(* "-"??_);_(@_)83_(* #,##0.000_);_(* \(#,##0.000\);_(* "-"??_);_(@_)=8_("$"* #,##0.0_);_("$"* \(#,##0.0\);_("$"* "-"??_);_(@_)"Yes";"Yes";"No""True";"True";"False""On";"On";"Off"],[$ -2]\ #,##0.00_);[Red]\([$ -2]\ #,##0.00\) #,##0.0$[$-409]dddd\,\ mmmm\ dd\,\ yyyy[$-409]h:mm:ss\ AM/PM yyyy0.0                                                                      ff + ) , *      P  P         `            a>  1 ,@ @  1(  1"  1#  1  1<@ @ 1 <@ @  1<@ @ 1"<@ @  1"<@  1(<@  1"<@  1#<@  1(<@  1#<@  1#<a@ @  1#<@ @ ||Q䳪[}-}= yyyy_)}A}2 yyyy_)[$ -}A}3 yyyy_)?[$ -}A}4 yyyy_)23[$ -}-}5 yyyy_)}A}1 ayyyy_)[$ -}A}( yyyy_)[$ -}A}9 eyyyy_)[$ -}}7 ??vyyyy_)̙[$ -##0.  }}; ???yyyy_)[$ -???##0.??? ??? ???}}) }yyyy_)[$ -##0.  }A}8 }yyyy_)[$ -}}* yyyy_)[$ -???##0.??? ??? ???}-}? yyyy_)}x}:yyyy_)[$???## ??? ???}-}/ yyyy_)}U}> yyyy_)[$## }A}" yyyy_)[$}A} yyyy_)ef[$}A} yyyy_)L[$}A} yyyy_)23[$}A}# yyyy_)[$}A} yyyy_)ef[$}A} yyyy_)L[$}A} yyyy_)23[$}A}$ yyyy_)[$}A} yyyy_)ef[$}A} yyyy_)L[$}A} yyyy_)23[$}A}% yyyy_)[$}A} yyyy_)ef[$}A} yyyy_)L[$}A} yyyy_)23[$}A}& yyyy_)[$}A} yyyy_)ef[$}A} yyyy_)L[$}A}  yyyy_)23[$}A}' yyyy_) [$}A} yyyy_)ef [$}A} yyyy_)L [$}A}! yyyy_)23 [$ 20% - Accent1M 20% - Accent1 ef % 20% - Accent2M" 20% - Accent2 ef % 20% - Accent3M& 20% - Accent3 ef % 20% - Accent4M* 20% - Accent4 ef % 20% - Accent5M. 20% - Accent5 ef % 20% - Accent6M2 20% - Accent6  ef % 40% - Accent1M 40% - Accent1 L % 40% - Accent2M# 40% - Accent2 L渷 % 40% - Accent3M' 40% - Accent3 L % 40% - Accent4M+ 40% - Accent4 L % 40% - Accent5M/ 40% - Accent5 L % 40% - Accent6M3 40% - Accent6  Lմ % 60% - Accent1M 60% - Accent1 23 % 60% - Accent2M$ 60% - Accent2 23ږ % 60% - Accent3M( 60% - Accent3 23כ % 60% - Accent4M, 60% - Accent4 23 % 60% - Accent5M0 60% - Accent5 23 %! 60% - Accent6M4 60% - Accent6  23 % "Accent1AAccent1 O % #Accent2A!Accent2 PM % $Accent3A%Accent3 Y % %Accent4A)Accent4 d % &Accent5A-Accent5 K % 'Accent6A1Accent6  F %(Bad9Bad  %) Calculation Calculation  }% * Check Cell Check Cell  %????????? ???+ Comma,( Comma [0]-&Currency.. Currency [0]/Explanatory TextG5Explanatory Text %0 : Followed Hyperlink 1Good;Good  a%2 Heading 1G Heading 1 I}%O3 Heading 2G Heading 2 I}%?4 Heading 3G Heading 3 I}%235 Heading 49 Heading 4 I}%6( Hyperlink 7InputuInput ̙ ??v% 8 Linked CellK Linked Cell }% 9NeutralANeutral  e%"Normal :Noteb Note   ;OutputwOutput  ???%????????? ???<$Percent =Title1Title I}% >TotalMTotal %OO? Warning Text? Warning Text %XTableStyleMedium2PivotStyleLight16` ^Sch4" _*Federal Funds: Legislative Branch! Architect Of The Capitol:01X4296 8,314,249.80 5,794,963.96 2,519,285.84K Capitol Visitor Center Revolving Fund, Architect Of The Capitol Library Of Congress:03X5075 35,826.37 50,781.97 -14,955.60B Oliver Wendell Holmes Devise Fund, Library Of Congress2 Legislative Branch Boards And Commissions:00X5509 467,909.77 467,446.84462.93A Senate Preservation Fund, Library Of Congress, Senate Department Of Agriculture3 National Institute Of Food And Agriculture:12X5205141,777,496.16134,097,085.07 7,680,411.097 Native American Institutions Endowment Fund+ Department Of Defense-Military Programs Defense Agencies:0 Defense Cooperation Account, Defense97X5187 7,529,609.48 7,517,873.88 11,735.60 Department Of Energy Energy Programs:89X522749,552,478,168.0948,610,651,630.29941,826,537.80@ Nuclear Waste Disposal Fund, Energy Programs, Energy89X52314,021,665,000.004,372,476,000.00-350,811,000.00` Uranium Enrichment Decontamination And Decommissioning Fund, Energy Programs, Energy' Power Marketing Administration:89X4045394,878,971.90290,832,559.94104,046,411.96X Bonneville Power Administration Fund, Power Marketing Administration, Energy+ Department Of Health And Human Services3 Centers For Medicare And Medicaid Services:75X55512,095,783,353.682,093,343,550.48 2,439,803.20t Child Enrollment Contingency Fund, Centers For Medicare And Medicaid Services, Health And Human Services/ Department Of Housing And Urban Development Housing Programs:86X02362,774,261,365.334,157,265,983.03-1,383,004,617.7086X4072 3,475,671.47 3,472,662.073,009.401 Government National Mortgage Association:86X42382,117,420,000.002,133,670,000.00-16,250,000.00 Guarantees Of Mortgage-Backed Securities Fund, Government National Mortgage Association, Housing And Urban Development Department Of The Interior" Bureau Of Land Management:14X5232841,465,945.311,128,497,642.06-287,031,696.75M Southern Nevada Public Land Management, Bureau Of Land Management14X5469 39,725,816.58 37,023,396.57 2,702,420.01> Lincoln County Land Act, Bureau Of Land Management= Office Of Surface Mining Reclamation And Enforcement:14X50152,752,011,939.882,707,694,527.03 44,317,412.85a Abandoned Mine Reclamation Fund, Office Of Surface Mining Reclamation And Enforcement Bureau Of Reclamation:14X4079567,444,175.53N Lower Colorado River Basin Development Fund, Bureau Of Reclamation Central Utah Project:14X5174153,461,229.41178,692,614.76-25,231,385.35J Utah Reclamation Mitigation And Conservation Account, Interior0 United States Fish And Wildlife Service:14X5029735,011,395.29913,294,056.35-178,282,661.06X Federal Aid To Wildlife Restoration, United States Fish And Wildlife Service@ Bureau Of Indian Affairs And Bureau Of Indian Education:14X5240 30,354,000.00 32,080,000.00 -1,726,000.00^ Operation And Maintenance, Indian Irrigation Systems, Bureau Of Indian Affairs (T)14X5648 23,243,000.00 21,084,000.00 2,159,000.00O Power Systems, Indian Irrigation Projects, Bureau Of Indian Affairs Departmental Offices:14X54251,269,678,474.831,229,944,953.20 39,733,521.63i Environmental Improvement And Restoration Fund, Office Of Natural Resources Revenue, Interior; Office Of The Special Trustee For American Indians:14X5265 66,228,217.80115,905,086.02-49,676,868.22S Tribal Special Fund, Office Of The Special Trustee For American Indians! Department-Wide Programs:14X5198134,135,380.67443,820,140.26-309,684,759.59\ Natural Resource Damage Assessment And Restoration Fund, Office Of The Secretary Department Of Justice+ Legal Activities And U.S. Marshals:+ Assets Forfeiture Fund, Justice15X50424,093,229,891.642,404,640,140.681,688,589,750.9615X5073223,586,579.83215,985,641.71 7,600,938.126 United States Trustee System Fund, Justice Federal Prison System:15X4500272,300,000.00270,700,000.00 1,600,000.009 Prison Industries Fund, Department Of Justice Department Of Labor- Pension Benefit Guaranty Corporation:0 Pension Benefit Guaranty Corporation16X420416,076,072,015.7115,730,572,050.52345,499,965.191 Office Of Workers' Compensation Programs:16X5155 56,926,860.78 62,673,770.65 -5,746,909.875 Panama Canal Commission Compensation Fund Department Of Transportation( Federal Aviation Administration:69X41201,818,209,411.891,630,563,749.44187,645,662.45= Aviation Insurance Revolving Fund, Transportation Maritime Administration:69X4302 28,735,219.19 44,120,505.29-15,385,286.10V War-Risk Insurance Revolving Fund, Maritime Administration, Transportation96X88636,886,251,945.696,202,749,606.25683,502,339.44< Harbor Maintenance Trust Fund - Treasury Managed Military Retirement:97X8097376,438,946,304.18326,040,254,879.7550,398,691,424.43: Department Of Defense Military Retirement Fund Educational Benefits:97X80981,891,094,174.222,008,118,598.24-117,024,424.02: Department Of Defense, Education Benefits Fund- American Battle Monuments Commission:74X8569 4,368,931.88? Contributions, American Battle Monuments Commission% Armed Forces Retirement Home:( Armed Forces Retirement Home84X8522111,638,683.80158,297,575.23-46,658,891.43# Environmental Protection Agency68X81453,250,200,439.683,509,383,600.72-259,183,161.04< Hazardous Substance Superfund - Treasury Managed68X81531,259,445,073.223,450,097,105.95-2,190,652,032.73J Leaking Underground Storage Tank Trust Fund - Treasury Managed1 National Aeronautics And Space Administration80X8550 340,000.00a Endeavor Teacher Fellowship Trust Fund, National Aeronautics And Space Administration80X8978 14,771,493.32 14,587,460.56 184,032.76m Science, Space And Technology Education Trust Fund, National Aeronautics And Space Administration24X8135826,555,026,085.31803,812,819,085.3122,742,207,000.00X Civil Service Retirement And Disability Fund, Office Of Personnel Management24X842441,249,778,977.6739,677,942,694.231,571,836,283.44J Employees' Life Insurance Fund, Office Of Personnel Management24X844021,258,614,277.5519,191,403,057.252,067,211,220.30K Employees' Health Benefits Fund, Office Of Personnel Management24X8445 2,467,690.93 2,465,532.022,158.91S Retired Employees' Health Benefits Fund, Office Of Personnel Management" Social Security Administration28X80062,586,697,075,000.002,492,531,188,000.0094,165,887,000.00Q Federal Old-Age And Survivors Insurance Trust Fund - Treasury Managed28X8007132,344,811,000.00161,965,321,000.00-29,620,510,000.00f Federal Disability Insurance Trust Fund - Treasury Managed, Social Security AdministrationK Barry Goldwater Scholarship And Excellence In Education Foundation:95X8281 66,756,331.03 64,847,395.52 1,908,935.51X Trust Fund, The Barry Goldwater Scholarship And Excellence In Education Fund7 Corporation For National And Community Service:95X8267636,757,375.52604,539,347.25 32,218,028.27R National Service Trust, Corporation For National And Community Service< $ District Of Columbia Courts:20X8212135,774,372.91131,937,441.88 3,836,931.03Z District Of Columbia Judicial Retirement And Survivor's Annuity Fund, Treasury/ Harry S. Truman Scholarship Foundation:95X8296 53,467,633.33 47,594,959.00 5,872,674.33c Harry S. Truman Memorial Scholarship Trust Fund, Harry S. Truman Scholarship Foundation5 James Madison Memorial Fellowship Foundation:95X8282 37,339,000.008 James Madison Memorial Fellowship Trust Fund2 Japan-United States Friendship Commission:95X8025 38,248,743.71 38,731,715.69 -482,971.98` Japan-United States Friendship Trust Fund, Japan-United States Friendship Commission8 Morris K. Udall And Stewart L. Udall Foundation:95X8615 27,416,000.00 32,166,000.00 -4,750,000.00l Morris K. Udall And Stewart L. Udall Trust Fund, Morris K. Udall And Stewart L. Udall Foundation5 National Archives And Records Administration:88X8127 5,349,191.31 2,951,697.59 2,397,493.72U National Archives Gift Fund, National Archives And Records Administration88X8436 9,175,711.20 6,251,903.52 2,923,807.68V National Archives Trust Fund, National Archives And Records Administration( National Endowment For The Arts:59X8040 842,506.06 -842,506.06@ Gifts And Donations, National Endowment For The Arts6 Patient Centered Outcomes Research Trust Fund: 95101982991,808.81 41,118,020.74-41,116,211.939 Patient-Centered Outcomes Research Trust Fund" Railroad Retirement Board:60X8010926,882,000.00795,547,000.00131,335,000.00Q Social Security Equivalent Benefit Account, Railroad Retirement Board' Railroad Retirement Account60X8011703,531,000.00696,280,000.00 7,251,000.0060X8118772,581,700.00665,180,200.00107,401,500.00T National Railroad Retirement Investment Trust, Railroad Retirement Board 4,830,000.00 5,930,000.00 -1,100,000.00; United States Court Of Appeals For Veterans Claims:95X8290 27,384,439.92 23,530,300.94 3,854,138.98N United States Court Of Appeals For Veterans Claims Retirement Fund4,377,570,606,667.344,256,166,485,582.57121,404,121,084.77& Total, Agency Securities Total, Trust Funds4,377,575,436,667.344,256,172,415,582.57121,403,021,084.77 Grand Total4,791,849,650,253.074,658,307,385,427.28133,542,264,825.79 Department Of The Treasury. Treasury Forfeiture Fund, Treasury20X56971,631,299,369.351,584,974,000.00 46,325,369.3520X444422,680,148,964.5422,721,203,868.12-41,054,903.58J Exchange Stabilization Fund, Office Of The Secretary, Treasury Federal Financing Bank:20X4521493,446,476.89493,254,356.23 192,120.66" Department Of Veterans Affairs Benefits Programs:36X4009 605,000.00 591,000.00 14,000.00D Servicemen's Group Life Insurance Fund, Veterans Affairs36X4010253,069,000.00280,966,000.00-27,897,000.00> Veterans Reopened Insurance Fund, Veterans Affairs Other Defense Civil Programs Retiree Health Care:97X5472176,112,821,909.54161,741,286,746.8314,371,535,162.71L Department Of Defense Medicare-Eligible Retiree Health Care Fund$ International Assistance Program0 Overseas Private Investment Corporation:71X41845,241,619,889.845,111,073,014.40130,546,875.44[ Overseas Private Investment Corporation Insurance And Equity Non Credit Account" Office Of Personnel Management24X539145,347,233,000.0043,707,633,000.001,639,600,000.00d Postal Service Contributions For Retiree Health Benefits, Office Of Personnel Management Independent Agencies6 Bureau Of Consumer Financial Protection Board:95X5577186,700,000.00 80,300,000.00106,400,000.00a Bureau Of Consumer Financial Protection Fund, Bureau Of Consumer Financial Protection- Commodity Futures Trading Commission:95X4334 77,135,900.77o Commodity Futures Trading Commission Customer Protection Fund, Commodity Futures Trading Commission: District Of Columbia General And Special Payments:20X55113,643,451,037.483,658,671,360.65-15,220,323.17? District Of Columbia Federal Pension Fund, Treasury# Farm Credit Administration:78X4131 39,101,400.93 36,318,708.13 2,782,692.80R Revolving Fund For Administrative Expenses, Farm Credit Administration1 Farm Credit System Insurance Corporation:78X41363,094,658,709.903,211,542,090.50-116,883,380.60g Farm Credit Insurance Fund, Capital Corporation Investment Fund, Farm Credit Administration* Federal Communications Commission:27X51836,540,681,000.005,815,120,000.00725,561,000.00 Deposit Insurance:51X44571,103,573,000.007,301,201,000.00-6,197,628,000.00W Senior Unsecured Debt Guarantee Fund, Federal Deposit Insurance Corporation51X459636,498,109,500.0034,925,553,500.001,572,556,000.00I Deposit Insurance Fund, Federal Deposit Insurance Corporation51X40653,424,464,000.003,374,370,000.00 50,094,000.00' Federal Housing Finance Agency:95X5532 77,420,028.95 78,252,179.00 -832,150.05C Administrative Expenses, Federal Housing Finance Agency- National Credit Union Administration:25X4056 55,744,000.00 52,049,000.00 3,695,000.00@ Operating Fund, National Credit Union Administration25X446810,297,272,000.0010,732,613,000.00-435,341,000.00\ National Credit Union Share Insurance Fund, National Credit Union Administration25X44701,941,566,609.962,096,109,993.03-154,543,383.07L Central Liquidity Facility, National Credit Union Administration25X4472 13,250,000.00 7,500,000.00 5,750,000.00[ Community Development Revolving Loan Fund, National Credit Union Administration25X4477483,879,902.432,186,462,163.44-1,702,582,261.01e Temporary Corporate Credit Union Stabilization Fund, National Credit Union Administration Postal Service: Postal Service Fund 18X4020.21,533,400,000.001,207,400,000.00326,000,000.0018X42941,057,049,990.21607,298,501.68449,751,488.53D Postal Service Competitive Products Fund, Postal Service Presidio Trust:95X4331 72,985,000.00 77,246,000.00 -4,261,000.00+ Securities And Exchange Commission:50X5567450,502,940.78450,877,550.63 -374,609.85H Investor Protection Fund, Securities And Exchange Commission# Tennessee Valley Authority:+ Tennessee Valley Authority Fund64X4110 25,000,777.77 25,000,000.00777.772 United States Enrichment Corporation Fund:95X40541,598,117,000.001,593,170,000.00 4,947,000.005 United States Enrichment Corporation Fund+ Total, Public Debt Securities414,274,213,585.73402,134,969,844.7112,139,243,741.02" Total, Federal Funds Trust Funds:03X8031 17,104,211.99 14,354,783.64 2,749,428.35> Library Of Congress Gift Fund, Library Of Congress03X8032 25,752,958.63 25,700,595.58 52,363.05? Library Of Congress Trust Fund, Library Of Congress United States Tax Court:3 Tax Court Judges Survivors Annuity Fund23X8115 10,787,315.63 10,518,983.38 268,332.253 Open World Leadership Center Trust Fund09X8148 6,034,000.00 7,333,000.00 -1,299,000.0009X8275 15,815,000.00 15,296,000.00 519,000.00N John C. Stennis Center For Public Service Training And Development09X8300 10,482,853.05 10,473,367.329,485.73K Capitol Preservation Fund, U.S. Capitol<6 Preservation Commission Judicial Branch" Judicial Retirement Funds:10X8110500,474,693.19497,874,340.48 2,600,352.71: Judicial Survivors Annuity Fund, The Judiciary10X8122435,940,277.71397,538,457.49 38,401,820.22< Judicial Officers Retirement Fund, The Judiciary10X8124 24,136,468.40 22,293,305.44 1,843,162.96> Claims Court Judges Retirement Fund, The Judiciary Department Of The Army:21X8063 23,684.25 -23,684.25] Bequest Of Major General Fred C. Ainsworth, Library, Walter Reed General Hospital4 Department Of The Army General Gift Fund21X8927 2,136,228.02 3,153,834.55 -1,017,606.53 Department Of The Navy:4 Department Of The Navy General Gift Fund17X8716 1,195,131.19 2,243,861.34 -1,048,730.1517X8733 6,747,000.00 6,971,000.00 -224,000.009 United States Naval Academy General Gift Fund$ Department Of The Air Force:57X8928 1,059,031.149 Department Of The Air Force General Gift Fund2 National Security Education Trust Fund97X8168 5,192,603.04 5,181,499.23 11,103.8197X8335311,935,884.84358,252,625.98-46,316,741.148 Voluntary Separation Incentive Fund, Defense97X8337 13,011,244.19 14,220,051.18 -1,208,806.99G Host Nation Support For U.S. Relocation Activities, Defense97X8358803,441,970.20825,860,740.37-22,418,770.17C Support For U.S. Relocation To Guam Activities, Defense5 Health Resources And Services Administration:75X81753,194,358,487.783,108,160,273.67 86,198,214.11E Vaccine Injury Compensation Trust Fund - Treasury Managed. Federal Hospital Insurance Trust Fund:75X8005228,292,287,000.00245,939,363,000.00-17,647,076,000.00D Federal Hospital Insurance Trust Fund - Treasury Managed; Federal Supplementary Medical Insurance Trust Fund:75X800469,324,408,000.0070,446,253,000.00-1,121,845,000.00P Federal Supplementary Medical Insurance Trust Fund- Treasury Managed Program Support Center:75X8248 24,541,133.88 23,805,707.01 735,426.87A National Institutes Of Health Unconditional Gift Fund75X8253 108,703.23 1,444,109.59 -1,335,406.36? National Institutes Of Health Conditional Gift Fund75X8254 2,864,263.92 -2,864,263.92O Conditional Gift Fund, Health Resources And Services Administration75X8888 250,322.61 250,044.24278.37A Patients' Benefit Fund, National Institutes Of Health# Department Of Homeland Security/ Departmental Management And Operations:70X8244 2,195,063.36W Gifts And Donations, Department Management, Department Of Homeland Security" United States Coast Guard:70X81471,942,324,523.461,882,183,192.39 60,141,331.079 Sport Fish Restoration And Boating Trust Fund70X81852,553,359,003.722,224,550,084.04328,808,919.688 Inland Oil Spill Programs - Treasury Managed70X8533 1,145,000.00 National Park Service:14X8052 51,000.00N Preservation, Birthplace Of Abraham Lincoln, National Park Service14X8030 40,157,475.44 58,089,910.53-17,932,435.09U Tribal Trust Fund, Office Of The Special Trustee For The American Indians Unemployment Trust Fund:16X804220,672,578,000.0016,030,410,000.004,642,168,000.006 Unemployment Trust Fund - Treasury Managed16X8130 55,656,000.00 58,170,000.00 -2,514,000.00m Relief And Rehabilitation, Longshoremen's And Harbor Workers' Compensation Act, As Amended, Labor16X8134 2,914,000.00 4,042,000.00 -1,128,000.00w Relief And Rehabilitation, Workmen's Compensation Act, Within The District Of Columbia, Department Of Labor Department Of State* Administration Of Foreign Affairs:19X818616,892,542,000.0016,396,663,000.00495,879,000.00A Foreign Service Retirement And Disability Fund, State1 Conditional Gift Fund, General, State19X8822 7,557,555.57 Other:3 Israeli Arab Scholarship Program, State19X8271 3,974,462.71 4,301,604.66 -327,141.9519X8813 15,569,310.38 16,163,109.43 -593,799.05H Center For Middle Eastern-Western Dialogue Trust Fund, State95X8276 7,611,373.42 7,621,866.67 -10,493.25= Eisenhower Exchange Fellowship Program Trust Fund69X810310,424,961,000.008,640,889,000.001,784,072,000.00< Airport And Airway Trust Fund - Treasury Managed' Federal Highway Administration:1 Highway Trust Fund - Treasury Managed69X81029,970,173,444.5616,301,908,648.98-6,331,735,204.42( Gifts And Bequests, Treasury20X8790 1,115,981.39 1,116,100.23-118.8420X8207 16,789,327.32 16,324,690.62 464,636.70a Lower Brule Sioux Tribe Terrestrial Wildlife Habitat Restoration Trust Fund, Treasury20X8209 50,877,314.00 50,414,932.69 462,381.31d Cheyenne River Sioux Tribe Terrestrial Wildlife Habitat Restoration Trust Fund, Treasury20X8902 310,000.006 Esther Cattell Schmitt Gift Fund, Treasury$ Comptroller Of The Currency:20X84131,359,154,426.491,171,322,145.65187,832,280.84Q Assessment Funds, Office Of The Comptroller Of The Currency, Treasury' Veterans Health Administration:36X8180 62,758,313.57 81,357,793.66-18,599,480.09? General Post Fund, National Homes, Veterans Affairs36X81326,911,878,000.007,540,776,000.00-628,898,000.00B National Service Life Insurance Fund, Veterans Affairs36X8150 12,848,000.00 17,071,000.00 -4,223,000.00J United States Government Life Insurance Fund, Veterans Affairs36X84551,953,361,000.001,981,360,000.00-27,999,000.00X Veterans Special Life Insurance Fund, Trust Revolving Fund, Veterans Affairs Corps Of Engineers96X8217127,071,345.16131,726,482.41 -4,655,137.25L South Dakota Terrestrial Wildlife Habitat Restoration Trust Fund96X8861 48,977,842.88 42,276,289.66 6,701,553.22: Inland Waterways Trust Fund - Treasury ManagedAgencySymbolOutstanding September 30, 2006Outstanding September 30, 20053Net Change September 30, 2005 To September 30, 20060.00a FHA- Mutual Mortgage Insurance Capital Reserve Account, Housing and Urban Developmentm FHA-General And Special Risk Insurance Fund Liquidating Account, Housing And Urban Development; Federal Financing Bank Revolving Fund, TreasuryE Universal Service Fund, Federal Communications Commission FSLIC Resolution:% The FSLIC Resolution Fund$ Expenses, Presidio TrustD General Gift Fund, USCG, Department Of Homeland Security% Financial Management Service:2;. //01y<2 X3)g48~5O637 O8 /9 ]:. S;$ _<0s=DK>d?5@ AABC]VD'bE3 >5Kq`ݙyߝ?ξog(uɤJdz/ v^ikm`Y<:Omqn\U,>莈q:/:ξ8Kvz*2X}Y\eׄTkSV˸5N#ƱHLڎS3\tDoG"D¹pۘ !p9/ ?%<%]E/EjmNmk]Lj#3gcEqdq-lG) !=JnnHG6vnJ~n7ûJS)rTL$c[r:ߞh'},#/%o{um|9ĺ +Q\6ǝ_(0O_˕ft"|P_,.̺ _y\|4s@շ_]f\ܽnbߙsͼB!Bq q\< "dXX??&U} )A} B}  C} $ D@     JJJJJJ G G E E EFHHH@ MINNN MINNN MINNN M I N N N MINNN M I N N N MINNN M I N N N M INNN M INNN M I N N N M INNN MINNN M I N N N! M"INNN M#INNN M( I$ N% N& N' M- I) N* N+ N, M.INNN M3 I/ N0 N1 N2 M4INNN M5INNN M: I6 N7 N8 N9 M;INNN M<INNN M! I= N> N? N@ M" IA NB NC ND MEINNN MJ IF NG NH NI MKINNNDblF F F F F F FF F F FF F !J"#$J%&J'()*J+,J-./J0123J456789:;<=>? ML INNN !MQ !IM !NN !NO !NP "MV "IR "NS "NT "NU #MW#INNN $M\ $IX $NY $NZ $N[ %M]%INNN &M` &I^ &N_ &N  &N_ 'Ma'INNN (Mf (Ib (Nc (Nd (Ne )Mg)INNN *Ml *Ih *Ni *Nj *Nk +Mm+INNN ,Mr ,In ,No ,Np ,Nq -Mw -Is -Nt -Nu -Nv .Mx.INNN /M} /Iy /Nz /N{ /N| 0M~0INNN 1M 1I 1N 1N 1NW{0,Z205Tahoma,FW{0,Z195Tahoma,FW{0,Z185Tahoma,FW{0,Z175Tahoma,FW{0,Z165Tahoma,FW{0,Z155Tahoma,FW{0,Z145Tahoma,F 2M2INNN 3M 3I 3N 3N 3N 4M4INNN 5M5INNN 6M 6I 6N 6N 6N 7M 7I 7N 7N 7N 8M8INNN 9M 9I 9N 9N 9N :M:INNN ;M;INNN <M <I <N <N <N =M=INNN >M >I >N >N >N ?M?INNNDl FF F F F F FF F F F FF F F F@ABCJDEFGHIJKLMNOPQRSJTUJVWXJYZJ[\]^J_ @M@INNN AM AI AN AN AN BMBINNN CM CI CN CN CN DMgDINNN EMxEINNN FMh FIi FNj FNk FNl GMq GIm GNn GNo GNp HMrHINNN IM# IIs INt INu INv JMwJINNN KMxKINNN LM} LIy LNz LN{ LN| MM MI~ MN MN MN NMNINNN OMOINNN PM PI PN PN PN QMQINNN RMRINNN SM SI SN SN SN TMTINNN UM UI UN UN UN VMVINNN WMWINNN XM XI XN XN XN YMYINNN ZM ZI ZN ZN  ZN [M[INNN \M \I \N \N \N ]M]INNN ^M ^I ^N ^N ^N _M_INNNDl F F FF F FF F F F F F F F`JabcdJefghijklJmnJoJpqrstuvwxyz{| }~ `M `I `N `N `N aMaINNN bM$ bI bN bN bN cMcINNN dM dI dN dN dN eM eI eN eN eN fM%fINNN gM& gI gN gN gN hMhINNN iM iI iN iN iN jMjINNN kM kI kN kN kN lM lI lN lN lN mM mI mN mN mN nM nI nN nN nN oM oI oN oN oN pMpINNN qM qI qN qN qN rM rI rN rN rN sMsINNN tM' tI tN tN tN uMuINNN vM vI vN vN vN wMwINNN xM xI xN xN xN yMyINNN zM  zI zN zN zN{MINNN |M |I |O  |O  |O }MIPPP~MINNN MI O  O  O D& lF F FF F F FFFFF FF F F F FBJMIPPP MINNN MINNN MINNN M I N N N M I N N N MINNN M I N N N MINNN M  I! N" N# N$ M) I% N& N' N( M. I* N+ N, N- M/INNN M0INNN M5 I1 N2 N3 N4 M: I6 N7 N8 N9 M? I; N< N= N> MINNN M@INNN MD IA N  NB NC ME IF NG NH NI MJINNN MK IL NM NN NO MT IP NQ NR NS MUINNN MX IV NW NW N  MINNN MY IZ N[ N\ N] Mb I^ N_ N` Na Mg Ic Nd Ne Nf Ml Ih Ni Nj Nk M4INNND l FF F FFF FFF FF FF F FFFFJJJJJ MmINNN Mr In No Np Nq MsINNN Mx It Nu Nv Nw MyINNN M~ Iz N{ N| N} MINNN M I N N N M I N N N M I N  N N M I N N N MINNN MINNN M I N N  N MINNN M I N N N M I N N N M( I N N N  MKINNN MINNN M I N N N  M~INNN M I N N N MINNN MINNN M I N N N MINNN M I N N N M I N N N MINNN MINNN M I N N ND l F F F FFFF F FFF F F F FF JJJJ M I N N N  MINNN M I N N N M I N N N M I N N N MINNN MINNN M I N N N MINNN M I N N N MgINNN MxINNN M I N N N M)INNN M I N N N M I N N N M I N N N  MINNN M I N N N MwINNN MINNN M I N N N MxINNN M I N N N M  I N N N  M I  N  N  N MINNN M I N N N M I N N N M I N N N MINNN MINNND, lF FFF F F F FFF F F FFF FFF JJJJJJJJJJ M I N N N MINNN M I N N N MINNN M I N N N  MINNN M I N N N MINNN M I N N N M I N N N MINNN M I N N N  M I N N N MINNN M I N N N M I N N N M I N N N M I N N N MINNN M I N N N M I N N N MINNN MINNN M  I N N N M INNN M I  N  N  N MINNN M I N N N MINNN M I N N N MINNN M I N N N DR lF F F F FF FF FFFF FF F F F F JJJJ     JJ     M INNN M% I! N" N# N$ M&INNN M+ I' N( N) N* M,INNN M1 I- N. N/ N0 M6 I2 N3 N4 N5 M7INNN M; I8 N  N9 N: M< INNN MA I= N> N? N@ MB INNN MG IC ND NE NF MH II NJ NK NL MQ IM NN NO NP MQ IM NR NS NT MUINNN MZ IV NW NX NYMINNN M I O[ O\ O]MIPPPMINNN M^I OR OS OTMIPPPMINNN M_I O` Oa ObMIPPP McI Od Oe OfMIPPPJKLLL@D F F FF F F FFFF FBBBB>@LJ?7 Sheet6ggD ThisWorkbookfrmFootnotes9Sheet6 frmMain\W{0,Z135Tahoma,FW{0,Z125Tahoma,FW{0,Z115Tahoma,FW{0,Z105Tahoma,FW{0,Z95Tahoma,FW{0,Z85Tahoma,FW{0,Z75#xME (SLSS<N0{00020819-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "ThisWorkbook" Bas0{00020P819-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2P`h "px     "   ( "08 HX `px "         ( "08 HX `px "   "   " ( 8H P`h "px   "   " (8 @PX "`h x  "   "    (  0 @ H "P X  h x    "       "      0 8 "@ H  X h  p   "       "       ( "0 8  H X  ` p x "         "       ( 8  @  P  ` p x "       "       " (  8 H  P ` h "p x      "      " (8 @PX "`h x  "     " ( 8H P`h "p &x     8H`hpx 8H`x (@Xp0HP h@x  0 8H`LSpxME(S<S<S<S<0{7417688A-B49C-496B-B5B7-D041A7C2841F}{9AB12967-B36C-41BE-809F-9165106B7615}( (@ 2 8 > F@ N V \ f@ j r | @    @    @    @    @    @     @  $  *  0  6@  < D  J ^ @   f    %   %/ F" ( 0@H "PX hx  "   "  ( 0 @PX "`h x    "    08 "@H Xh p "       " ( 8H P`h "px     "   ( 0 @ hx   @ `x @ 0HP` hx   (8 @Php   (@HX `p BBH`hx BB 8@P XBhB( 0@@ BBBX @(@HX `BpB 0 8BHBB 8@P XBhB  (  0 @@      @ ! !(!8! @!BP!B!B!B("p"""" "@""##(# 0#@@##### #@#$ $($8$ @$@P$$$$$ $@$%0%8%H% P%@`%%%%% %@%(&@&H&X& `&@p&&&&& &@&8'P'X'h' p'@''''' '@(H(`(h(x( (@(((() ))0)8)H) P)@`))))) ))*** *0*H*P*`* h*x**** ***** *+ +(+8+ @+@P+++++ ++++, ,@ ,`,x,,, ,@,,--- -0-H-P-`- h-x---- ----- -. .(.8. @.@P..... .B.B /h//// /B/B/B@00000 0@01(101@1 H1@X11111 11122 2@(2h2222 22222 2@283P3X3h3 p33333 3@34 4(484 @4P4h4p44 4@44445 5 585@5P5 X5h5555 55555 5566(6 06@6X6`6p6 x66666 66667 770787H7 P7`7x777 7@77888 8B08Bx88888 8@9H9`9h9x9 99999 9999: : :8:@:P: X:h:::: ::::: ::;;(; 0;@;X;`;p; x;;;;; ;;;;< <<0<8<H< P<`<x<<< <<<<< <<== = (=8=P=X=h= p=====  == ==>0>4@>x>>> > > >"> ?8? X?h? "p?`x? ? ??@ "@j@ @ @ @ @ @ @ @ @ A A A 0A @A PA `A pA A A A A A A A A B B B 0B @B PB `B pB B B B B B B B B C C C 0C @C PC `C pC C C C C C C C C D D D 0D @D PD `D pD D D D D D D D D E E E 0E @E PE `E pE E E E E E E E E F F F 0F @F PF `F pF FFF "F FF *!, .(0dP .(0k8o0@ 4!, 6(0d 6(0terkho` :!,o <(0xmld0 <(0ko @!, B(0 D(0d B(0 D(0ko H!, J(0 L(0d` J(0 L(0k8o0@ P!, R(0 T(0d R(0 T(0ko X!, Z(0d Z(0kxop ^!, `(0 b(0 d(0d  `(0 b(0 d(0ko @!, h(0d h(0ko@ l!, n(0 p(0dP n(0 p(0k(o  t!, v(0 x(0 z(0d v(0 x(0 z(0ko @!, ~(0 (0dP ~(0 (0k(o  !, (0d (0ko@ !, (0d (0ko !, (0 (0 (0 (0d  (0 (0 (0 (0ko !, (0d (0ko !, (0dP (0k8o0@ !, (0d (0ko !, (0d (0ko !, (0d` (0kHo@ !, (0d (0ko@ !, (0d (0ko !, (0dp (0kXoP !, (0d  (0ko !, (0d (0ko@ !, (0d (0kho` !, (0d0 (0ko !, (0d (0ko !, (0d (0kxop@ !, (0d@ (0k(o  !, (0d (0ko !, (0d (0ko !, (0 (0d@ (0 (0ko@ !, (0 (0 (0d (0 (0 (0ko !, (0dP (0k8o0 !, (0d (0ko !, "(0d "(0ko@ &!, ((0d` ((0kHo@ ,!, .(0 d .(0ko 2!, 4(0d 4(0ko 8!, :(0dp :(0kXoP@ >!, @(0 B(0d @(0 B(0ko F!, H(0d H(0ko Cleans the second sheet for useWindows(File).ActivateSheet8$LB@H NB@H VT PB@R NB@H@ P(XA1:B1$ZB@H P(\ ` P%^ d9b h9f l9jq n P%^ d9b p9f l9jqH Footnotes r(, P!t(v P!t(x+@1:1$z(|2Paste the recurring header from sheet 1 to sheet 8Sheet1$LB@HSheet1$LB@HA51:C160$ZB@~Sheet8$LB@HA3$ZB@H rB@ !,A7:C18$ZB@H VT PB@Rk !,A3:C6$ZB@H VT PB@RA7:C14$ZB@H VT PB@Rkp !,A3:C10$ZB@H VT PB@RA7:C10$ZB@H VT PB@Rk !,A3:C14$ZB@H VT PB@Rk A7$ZB@H * r%!,xx .!,$ r%(, r%B@Hd( r!B@Rk  r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@HdP r!B@Rk8  r%B@Hd r!B@Rk 4 r%!,xx 6!,$ r%(, r%B@Hd r!B@Rkh : r%!,xx <!,$ r%(, r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@Hdh r!B@RkP  r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@Hd r!B@Rkx  r%B@HdH r!B@Rk0  r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@Hdp r!B@RkX @ r%!,xx1 B!,$ r%(, r%!,xx2 D!,$ r%(, r%B@Hd r!B@Rk H r%!,xx1 J!,$ r%(, r%!,xx2 L!,$ r%(, r%B@Hd r!B@Rk P r%!,xx1 R!,$ r%(, r%!,xx2 T!,$ r%(, r%B@Hd r!B@Rk X r%!,xx Z!,$ r%(, r%B@Hd` r!B@RkH ^ r%!,xx1 `!,$ r%(, r%!,xx2 b!,$ r%(, r%!,xx3 d!,$ r%(, r%B@Hd@ r!B@Rk(  r%!,xx h!,$ r%(, r%B@Hd r!B@Rk l r%!,xx1 n!,$ r%(, r%!,xx2 p!,$ r%(, r%B@Hd r!B@Rk t r%!,xx1 v!,$ r%(, r%!,xx2 x!,$ r%(, r%!,xx3 z!,$ r%(, r%B@Hd r!B@Rk  r%!,xx1 ~!,$ r%(, r%!,xx2 !,$ r%(, r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@Hd` r!B@RkH  r%!,xx !,$ r%(, r%B@Hd r!B@Rk  r%!,xx1 !,$ r%(, r%!,xx2 !,$ r%(, r%!,xx3 !,$ r%(, r%!,xx4 !,$ r%(, r%B@Hdp r!B@RkX  r%!,xx !,$ r%(, r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@Hd` r!B@RkH  r%!,xx !,$ r%(, r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@HdP r!B@Rk8  r%!,xx !,$ r%(, r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@Hd@ r!B@Rk(  r%!,xx !,$ r%(, r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@Hd0 r!B@Rk  r%!,xx !,$ r%(, r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@Hd  r!B@Rk  r%!,xx !,$ r%(, r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@Hd@ r!B@Rk(  r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@Hdh r!B@RkP  r%B@Hd  r!B@Rk  r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@HdP r!B@Rk8  r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@Hd r!B@Rkh  r%!,xx !,$ r%(, r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@Hdh r!B@RkP  r%B@Hd  r!B@Rk  r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@HdP r!B@Rk8  r%!,xx1 !,$ r%(, r%!,xx2 !,$ r%(, r%B@Hdx r!B@Rk`  r%!,xx1 !,$ r%(, r%!,xx2 !,$ r%(, r%!,xx3 !,$ r%(, r%B@HdX r!B@Rk@  r%!,xx !,$ r%(, r%B@Hd r!B@Rk  r%!,xx !,$ r%(, r%B@HdH r!B@Rk0  r%B@Hd r!B@Rk  r%!,xx "!,$ r%(, r%B@Hdx r!B@Rk`  r%B@Hd0 r!B@Rk & r%!,xx (!,$ r%(, r%B@Hd r!B@Rk  r%B@Hd` r!B@RkH , r%!,xx .!,$ r%(, r%B@Hd r!B@Rk  r%B@Hd r!B@Rkx 2 r%!,xx 4!,$ r%(, r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@Hdx r!B@Rk`  r%B@Hd0 r!B@Rk  r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@HdX r!B@Rk@  r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@Hd r!B@Rkh 8 r%!,xx :!,$ r%(, r%B@Hd r!B@Rk > r%!,xx1 @!,$ r%(, r%!,xx2 B!,$ r%(, r%B@Hd  r!B@Rk F r%!,xx H!,$ r%(, r%B@Hd r!B@Rk  r%B@HdP r!B@Rk8  r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@Hdx r!B@Rk`  r%B@Hd0 r!B@Rk  r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@HdX r!B@Rk@  r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@Hd r!B@Rkh  r%B@Hd8 r!B@Rk   r%B@Hd r!B@Rk  r%B@Hd r!B@Rk  r%B@Hd` r!B@RkH r!'A2:A160$ZB@H Fix NumbersA3$ZB@H r%(, r!,a r%!,  r%(, r%B@HhB2$Z(,Selection.DeleteA3:A  $ZB@H PB@R A3:A  $Z( A1:B1$Z(A1:B $ZB@H A@ro :Are you sure you don't want to add footnotes at this time? Cancel Footnotes$ '   A@rko?@ ?Are you sure you want to reset selected footnotes at this time? Reset Footnotes Form$ '   (, *(, (, (, (, (, 4(, :(, (, (, (, (, (, (, (, (, (, @(, H(, P(, X(, ^(, (, l(, t(, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (, &(, (, ,(, (, 2(, (, (, (, (, (, (, (, (, (, 8(, >(, F(, (, (, (, (, (, (, (, (, (, (, (, (, (, (, (,kh9o`9 oP9H9Attribute VB_Name = "frmFootnotes" Bas0{7417688A-B49C-496B-B5B7-D041A7C2841F}{9AB1296 7-B36J1BE-809F-9165106B7615} dGlobalSpacAoFalse CreatablPredeclaIdTru BExpose0Template DerivCu@stomizDP Sub chkZ5_Change() If .Valu`N ThentxtZ5.pVisir` E?e End If E L10&|10&A"' l'1}T'1^'@c' k'2T'2u21ARvs21Bd~K/%,82/22/222 A[+ J r23333* J  44 h`2 25h5/5/b5ClO* G I i c߳Z267_6_ cefm2f7 n27%m27F7o qq288 8A1bM8*2Z2*b*29g*299Z233 T  883/   Z3  ) !33DQ}3y*Z325 ))#-  Z3   0~VYϣ  Z3  z3}36.Visible = Fal se En@d If 8Sub Pr@ivate 8 chkZ37_Change()fIf..Valu Tr Then@txtr#]E}(,88N N9N>9NN N40S'40]'Ab' l'1T'1^'@c' l'2T'2^'@c' l'z3T'3 {4 )444  6@49 5N5E!'`' 4;51 6_y'A 53;55N!'a'@ 66! _W6XR6 Tǟ}}61AoQ61Bo 5s5l62 V 2CZ66Oe`/ b= G GG 6 Oe Oe Oe  O 1Bo 7Q 7QQ  C C  y Z7 8; 8   Z E `@ 3?W?W8 3OIDVF5  (b Private Sub cmdDone_Click() 'Cleans the second sheet for useJWindows(File).Act8"S^s("8").Select8Cells `ion.D'shift:=xlUp3NumberFormat = "@"3Range("A1: B1 8MergFeHTrunWith Borders(xlEdgeTop.LineStyle xlContinuousBAWeighNxlTh ColorIndexAutocicEEJBot:Ln,%BQ .ValuB"Footnotes DcSF@H.Boldc___xx2VBQ@ue) ActiveCell.Offset(1, 0).S electElseEntir@eRow.D\tHEnd If`If chkZ22 = True` ThenK}0, 2).Val+= Replace(', "xx1", txtiA=222B2Ҥ33RGkFR3R ȇ4RK84s8.58;n5Et(#{`b{fE5E 圭5355C5￤?R65c?)")E6???7??խ8&R7?REuE&R7?R?꿗0~8?)?)w"8 { =eR8_/߁1]!=8=_{tQ=qZ29???9____xx9_?TR30 ?)?)3)TR30_R7Ot/110a 0Z3YE?X,K320*00K320_'___xxK32K____xx4e/2D_!_!_!_!_!le_ R3_!f _!_!%31 K??ǖ">l.Offset(1, 0).Select aElseH4ActiveCell.EntireRow.DtH@End If`If chkZ35 = True 0Then0, 2).Val+= Replac e(s', "xx", txth;)cR6p6p78čp78 r88c888s898{?p9???.4>0??)40???/1??yp41???/2???Z42??;?/3???Z4>3??44܃' u:z84 4?tM?a ?Z4?yY0j4Nq4? ?Z4®4zAz5?tmg5555g5-----5gaKrK5aa'ueo55/ooehl.EntireRow.Dele te End IfXIf chkZ56 = True Th enhActiveCell.Offset(1, 0).SctqNEls b'7z}8>9>60e0, 2).Val= Repl0ace(χ , "xx", txtZ60)B618KM8181A8H&Q2F:BR 6?)d62?)cbE&)2?)t $ &)2?) 墭 352C5￪55355i{mE3???64???Z64???/5?#|${_Z6_Co?6 _M_2e8$64Z}r6ce$7ؙ:w81 5Hߍ_7ߍߍѯ7ߍߍ"ߣ2++++e:@ $?tm"gߦo7gaaj ActiveCell.EntireRow.Delete  End If,If chkZ79 = True Then4TOffset(1, 0).SctNEls b&}80z}1>2>0, 2).Val= Repl0ace( , "xx", txtZ82)w떼838ijĠM8183A8H&Q2FBRr84R;)E4??85? 86{78ρj>9Ͽ!9g?0h1Z9aY0_}]9T_C_eq?49N?/V9NNNNcend@^2Range("A2:A160"k'Fix N@umbers3W;-P10Do Uly ""3 + 1яEaELoopB2 '3ion53:A" & - IHorizontalAli@gnmentPx0lLefd 1:\B1 Ce:r A  kUnload M [Sub Private cmdExit_Click(cancelFootnotes @MsgBox%re you sudon't wa to add ffat this time?vbOKC F"U? ioeRe{r!oo4 seelϰrmfınotes = vbOK Then F1. ValuetTrue`chkZ5lFals 868*788910123V4111U122J2UJ2J2J2J2UJ2J2J2J3UJ3J3J3J3UJ3J3J3J3Uz%3z%4z%4z%4Uz%4z%4z%4z%4Uz%4z%4z%4z%5Uz%5z%5z%5z%5Uz%5z%5z%5z%5Uz%5z%6z%6z%6Uz%6z%6z%6z%6Uz%6z%6z%6z%7uz%7z%7!789End If qSub Private  UserForm_Click ()o#xME (SLSS<N0{00020820-0000-0000-C000-000000000046}8(%HxAttribute VB_Name = "She@et6" Bast0{00020820- C$0046} |Global!SpacFalse dCreatablPre declaIdTru BExposeTemplateDeriv$Bustom izD2      !"#$%&'()*+,-./0123456789:=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~HD` B  J p ,860 Ph*B,Hx*>( 8BH,DPX`Bh,* >P B,(@Hhhp D (088XD>(@XH B,8h*>  ( B8 B ,  !!8!@!TH!!!!,!>!B(",p"""""4" H # Dh#####8#> $>`$$$Z$ %(%0%48%>p%B%,%(&@&H&h&p&& & T& "'('@'`'h'p' x''0''' ''(( (((@(X( V`( &( (())) ) 4()8`) ) ))$)**0* 8*H*P*X*`*>h*,**  *++, +P+h+p+ x+>++ +,,@, X,x, ,,,, ,-0-8-  N@- - - --,-. 0. @.`.h. . ..,.. / /0/8/ P/ `//,// /(/0,0@0`000000 0 T0 "81`1x111.1>1,2H2  `2p2x2,2222 2>3H3 `3,3  xMEPS<S<S<S<<<<< 2 &0{29973C76-B5FB-4AED-AFF6-96B476CD742C}{4F232ED5-459A-4B1B-B5EB-DD12E9FDAAC0} ``<`>x`@`B b v8 xx ?` d-  "h % $ %`(TPu`cel $p i g CRi. I`s an`> p`T `<acro`>d in`@x`BT `" bili`$ ure `( Exc +` mys L` `< `D ` `@ `B `" ican`$ `( jQ`<en t`> tab`@T `Bapte rh=`< `> `@ `B`" 1.2`$ rol `(.doc |h` `< `>`@`B `" `$ `(vert `s im`<a da`>le c`@T `B `" `$ `(T   h %   %0h h )" Z Z` Z Z  Z Z Z@ Z Z Z` Z Z  Z Z Z@ Z Z Z` Z Z  Z Z Z@ Z Z Z` Z Z Z Z Z@ Z Z Z` Z Z Z Z Z@ Z " L X `  p L 60  .8h   &j^H 6B @ P&`        &(8 P` x  0Pp 046 3 33 4, 4P4 h4444  N4 5 5 05P5,X55 5 555 5 6 6,(6X6 p6 666 6 66,6(7 @7(P7x7,77R7 (888X8`8h8 p8 88.8 88 999. 9P9 `9p9>x9,99  : :>0:Bp:: :B:8; P;Bp;; ;B;8< P<Bp<<<B<B =h===  = ==== = => >(> @> P>p>x>> > >>>> > ? ?(?0? H?(X???? H? *? ,(@ 6X@ >@ :@ FA <XA <A <A `B :xB bB C L@C 8C 2C PD bPD 0D <D N(E 0xE <E NE 08F <hF NF 0F <(G NhG 0G <G (H PHH <H PH <(I PhI <I I 2J PPJ J ,J 8J 4(K P`K K ,K 8L 48L PpL L ,L 8M 4HM PM M ,M 8 N 4XN PN N ,O 80O 4hO `O P , P :PP P jP f Q ,QQ :R pR 6hS ^S 8T 8T @T 0PT 8TT dT (U 8UXU`U hU xU U .U U U U VV .V HV XVhV>pV,VV  V>WBXWW WBW X 8XBXXX XBX Y 8YBXYY YYY YZ Z 8ZXZ`Z xZZZ ZZZ(Z [([ JH[ [ [ X[D\ X\ h\\ \ \ \ \ \B\ ]0]$H]Rp]:]P^>X^  Z^ Z^ @X__ __ ___`  `0`P`p```  ``aa0a  Ha`a xaa a a aaa a a aaab b0b 8Pbbbbb  4b c@c`c xccccc Lcdddd  d,0d8`ddPd Dd8eHeXeDxeeeeee f  DfPfXf hf,ff f,f g 8g,Xgg g,gg h,(hXh ph,hh h,h(i @i,`ii i,ii j,0j`jj j  0j j j0k k 8k Bk @l Hl Pl Xl`lhl4l l 8l Lm`mhmpm xm m 0m 8m LnPnXn`n hn pn ^n8nB ohopoxooo o oo Jo J(p:xp*p>p (q  @q  ZPq  Dq q r r (r 8r Hr HXr trs s (s 0s L8s*s s "s sFs t(t0t8tH@tttttt "t tFtuu u(uF0uxuuuuRuuuvvHvXv`vhvpvxv "v<v,vvw@w<XwFw w w wwHx Hx Px Xx`xHhx x x xxxx0x y "(yF0y xy2y >yDz Hz RXz Rz{:{ P{ h{ { {{ {{^{ | 8|H| JP| || (|D|< } H`}Z}:~ PH~~ ~ ~~~B~ V8 @@  4 *0 $` : >Ȁ  *  *P  4Ё   *0 &` \ \ @H &ȃ؃  (@ ^`       8 0H.x.؅   0>@  * І :؆&@P` p X  N NH6 ؈ B 8 P H`  ȉVЉ ( HX B`  8 FH 6X26ȋ    @HBh@2 ( L@ $  4Ѝ * ,8 h >؎  * 0 J8 &ȏ؏ H 0X 4   $ ( 8@ x , 4( @ PH 0Ȓ  * 0 J8 &ȓؓ  N(  Nx NȔ  8@HPh xV  R8P   R   @ HH X  6BH    \^  Vؙ  0 2@x    2Ț   2( ` p  0 ,   6 "@ h x   6  "  ( 8 2@ 0x < ,2 Xx  4 0 8P"p 20 (0 68Bp  (Р 2 0 "@ 2h 0С >ء  f d J P "JXJ@H8H Ȥ 2 ,0` Ph THNXL .(@ H P P` THNPL .  8 @ F` TH(HPp ȪتL .0` x  "2    0 @ P` 2hD* F>` &ȭVTH  V H @PV` *Я ذ   (08@HPX`hp x*   ȱб *ر L(x ,>> @`*Hг *0*` P h  HH`hpx 4 ж ض      @H  XP  *ȷ&0&X   ȸ и ($@  Xh  *H*X 6 ,>0>H >$Ȼ*H h2  ȼ м (ؼ**8 h( @ X HpȾоؾH8@HPX `h  Bp Z ^ Dx > < 8@ x ( 2 * * @P 4  *H0x  n T l` l(@ j h   H>*@p*    @ b8 @ F V8 6@ x       <H P " X`Nh <B  h " R    L( x@  .(  @ &PJx 6 0 @ P&`       &(8 P` x  0Pp 046 HD` B  J p ,80 ,@ 8p,86  PX*   @ HXx   > `  2(H2P***8*@px 2 .>(h  2*  0.@>p > (08 &@ h x6>(>8x" (0 H>h >( 20h > 0 8X>` > $8`hp >$(08Xx  "  20P X h.x> >(hp > >(h 2p > (>@ >$@HP h>$8X`hpx &  20P X h x 26 >X(>  0@.X6 > 8@X `>$ < X>h >H$` >$(PX` H :P > @ ^ p ^ 4 *H .x * . * .8 *h . $  > 48 *p . * . *0 .` * . $ (08 @ @H 0 : : 88 :p 8 : :( .h  0  F 0P 8  $ 6 $8 p` 8 . 88 "p 8  6 *( DX * ( , 2( @` " J > X x * D * (H ,p 2 @ " J@ >   * D@ * ( , 2 @H " J > @ ` * D * (( ,P 2 @ " J  >p   2 :( *h 8 : * 8@ :x F *  :0  p    0  8     8  H@             0  8( `  Hh     * (  0  8 :X :     $ 0( 8X  : : ::X   8@ Ppx    08 X` x  D  D  ( 8 H HX t  (@HP X  6` N* F>`&VT8  V H 0@VP  F8Ph x           \ ^x D     (08@HPX`hp x*    * L(x T> DH R( <  H>8*x*  @ bH @   L*  @  "H 4h    > ! !T(! !! !!!! ! "" ("8"H"X" h" "" """" 0" # 8#H# P# @X#*# # "# N# ($ 0$  @$P$ L`$ $6$%  .%8%X%  p% %d%\&  6`&&0& & &&'  (' 8'  H'h'p'x''' '' ''0'6( @(X(p(((( ((  ),()8X)) ,) 8)*>*>P*,*>*>+,@+@p+@+ "+ ,,H,P,*p,0, ,,- -@-`-  ----,-8.8. ,H. 8x.. ...h/./.// ,0@0.0.1.81h1 ,1~1 02@2 X2x22 ,22.`3.3.33 ,484.4.5.05`5 ,x55.@6.p6.66 $67 ,(7X7.7.8.H8x8 ,88.X9.9.99 ,:0:.:.:.(;X; ,p;;.8<.h<.< << ,< 8 =X=,`== = = .H> .x> .> > ,> ? (?H?  h???? ? 2?8?*@ P@@>@ @&@ VA ThA VA HB `B pB  B VB B C  (C 8C PC BpC C C C CDD D(D0D8D@DHDPD XD `D  TD >DDER`E(E<`F F F F  HF >G *HG xG *G  G @GbH H  @HH pIxI 0I I III I @I 68JpJ "xJ NJ  J JJ LK PK ThKK  .KKL  0L &@L\hL 6L M0M @M PM&`M  M M  MMMMM MM  &N(N8N PN`N xNNN  NNNO  O08O4hO2O ODO8P BPPP  JPQ  Q,8Q8hQ6Q *Q,R 8R F@R R <R RR R "R NS  PS `SpS LS S TS@T  .HTxTT  T &TdT 6PU U0U U U&U  V V  0VPVXV`VhV pVxV  &VVV VV WW W  0WHWhWW W0W4W2(X `XDxXX BX Y  J8YY Y,Y8Y@(Z ,hZZ,Z8Z6[ P@["[ [>[\0\8\P\X\x\ \\\ \\] ]]8] @]P]p]x]*]>]]^^(^0^2P^^ ^.^>^(_"@_6h_>___`` `6@`x`&`6`>`8aPapa a.a>ab(b2Hb>bbb@b c(c @c`chc ccc ccc&d0dHdPdhdpd4d>de e(e@e Hehepe eee eeef(f0fHfPfpf6f>fg g(g@g Hghgpg ggg gggh(h0hHhPhphhHhhhhhhi i , i 8Piii  iiii i 2iD j*hj Rj>j 0k&Hk Vpk Tk V l Hxl l l Vl  8m Hm `m &m mmmmmnn n  n \0n ^n *n o o  op p(p0p8p@pHpPpXp`phpppxpppp p *pppp p  *p  q L@q q q  ,q >q >8r rxr Xr pHs ps((t nu hv "v v  Hv >w *Hw xw *w  w @w Zx xx x  @xx yyyy "y4y y y  zz L z pz:zz  .z{ {  8{ &H{\p{ 6{ |0| H| X|&h|  | |  ||||| ||  &}0}@} X}h} }}}  }}}~(~ H~0`~4~2~ D` Bx  J( HPX`hpx,86 P0 Ё ؁  @ HXx  Ȃ>( HX`x 22PX*`*Ȅ*Є*8@HPX 2x .>0 P` 2h  ؆ .>(h p>Ї؇  (68>p(>(08@HPXHp> >8x 2"؊ (0H 2P  .Ћ>@ H>hȌЌ  8 2@x  .؍6H P>`؎ >@H(P x>ȏ >(hp 2xА 2Hhx   (0 8HPX`hpx  @ 0 :0 :p 8 : 8( :` : .  00 ` F 0ȕ 8 0 $P 6x $ pؖ 8H . 8 " 8 H 6h * DИ * (H ,p 2 @ؙ " J@ > К  * D@ * ( , 2 @H " J > @ ` * D * (( ,P 2 @ " J  >p  П * D  *h ( , 2 @( "h J >   @ 2` : *آ 8 :@ * 8 : F( *p :   0 8H  H  (0 NP  D     H( tp   ( 20Dh* F>(h&VT  VX H V pB0 @ P ` h p x     Ȭ \ ^@ D   Юخ (08 @H*P    *Я L@X ,x>>  T(> D R( `<H P` Hh>* *@  p@ b( @0 p ( 0 L8*  "4ȶ    ( L8 :  .8  P &`\ 6 00 ` p&     ȹ   & HX p   Ⱥ  082h4 ػD8 BP  J  @,X8 ,ؽ (,0,`> о > ,0 ` x , ȿ  , 0 H ,h , (8H 8 8(`x , ,,TH  ,   ,( ,X , 88 P8pJ0  Phpx  D* F>H & V T  Vx H  ( V8   \ ^ Dh  P  *h  L     T@ >DR (x<  ` h x  H > * 8 *X   @b @  @H 08@H P LX*  T-----------------------------------------------------------------------------------'TTitle: FundConverter.xls ' <(TAuthor: Jonathan Pavlik 'T -GWA 'TVersion: 2.2.3 'TVersion Date: 06.20.2007 'T ' (TPurpose: This excel macro is designed to replace the current process of 'T creating CRCs of the Combined Statement. If functions solely as an 'T excel vba macro with a small section manipulating word from the 'T excel macro. The macro is coded in hopes that it should prevent 'T compatability problems with future versions of Word and Excel. Any ' (T problems with the code should be addressed with myself or a 'T qualified VBA/Excel Macro coder.       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ '@T 'TSignificant Updates: 'T 1.1.2 - Sub ConvertText was given the ability to create table 1 for ' (T each chapter. '(T 'T 1.2.1 - Excel will control the creation of the .doc version of the 'T chapters. '@T ' T 1.2.2 - Sub ConvertText was given the ability to apply proper case ' T to words immediately following a dash/hyphen in the title column. ' T ' T 2.1.1 - Part 1 capabilities were added. Sheet5 holds a template ' T for data from the ar1.txt and arb.txt files to be inserted into. ' T ' T 2.1.2 - Part 1 outputs to word file with tabbed leaders for each ' T data and total row. It is also in 1 column now instead of 2. 'T ' T 2.2.1 - Schedule 3 and 4 capabilities were added. Sheet6 will hold ' T this data. ' T ' T 2.2.2 - Table J capabilities were added. Sheet7 will hold this ' T data. ' T ' T 2.2.3 - Deposit Funds Table capabilites were added. Sheet 2 (which ' T holds the chapters before they are exported) will hold this data. 'T-----------------------------------------------------------------------------------' FOn Error GoTo errorhandler 'If an error occurs go to the error handlerx]@ "!' (" !,FIf checked, a notation is created to indicate the time and duration of the process text file conversion started at $& A$k'Displays the relevant image on the form ((0 Is working *(0Is Done .!', Find the Account Statement file Text Files,*.txt9Department Appropriation, Outlays, and Balances Text File 2%4'0 Text Files,*.txt-Cooresponding Table-I for Selected Department 2%4'6/If the user clicks cancel don't throw and error 0 67You cancelled opening one or both of the required filesA@ 8 ((0 ("d Else the automation commences 2(8 2(:Variable declaration]X]p]] 'D 0 DCleans the second sheet for use ,$FB@HSheet2$LB@H NB@H VT PB@R NB@H@ P(XFix Column WidthsRF@A:A$J(L)\(@B:B$J(LzG@C:C$J(LRQ @D:D$J(L)\(@E:E$J(L (\@F:F$J(L Gz$@G:L$J(LA:A$JB@H P(N" Makes the first column wrap text PB:L$J(5Right aligns columns B-L C:F$J(6Center aligns columns C-FSheet1$LB@HA14:L17$ZB@~&Copies the header from the first sheetBSheet2$LB@H<Pastes the header from the first sheet into the second sheetB RA1$ZB@DFix the row height of the header rows to eliminate unnecessary space @1:2$z(|(0@3:3$z(|A4$ZB@H D <*Read a line from a textfileB <$$V'T0Look for row indicator D$Xa#Loop until the end of the text file T!DThe first four chars on each line of the text file comprise DataTypeH001KTDepartment level headerB'Z'\'^ ` $)Goes through cells that never cotain dataBAb) Adds left and right cell borders r%B@Hh  r%B@H < < $$V r(, Ad%2ConvertText applies Proper Case to the select cell P!t(v  P(! ` $)Goes through cells that never cotain data"Ab) Adds left and right cell borders# r%B@H   r%B@H'fH051KH091KH071KT,DataType of secondary Headers($'Z'\'^ ` $)Goes through cells that never cotain data$Ab) Adds left and right cell borders8% r%B@H  r%B@H < < $$V r(,Ad%2ConvertText applies Proper Case to the select cell P!t(v  P( ` $)Goes through cells that never cotain dataAb) Adds left and right cell borders r%B@H  r%B@H@'fH092KH093KH072KT,BThese DataTypes wrap back to the previous line b/c the description,>was too long in the original datafile to fit on one line thereH)'Z'\'^ r%B@H r!,  < < $$V'B B r(,02Attaches the rest of the line to the first portionAd%2ConvertText applies Proper Case to the select cell P!t(v r%B@H'fH10KKT@These DataTypes are the primary headers for individual DataLines'Z \+ r%B@Hk '\'^ ` $)Goes through cells that never cotain dataAb) Adds left and right cell borders  r%B@Hx  r%B@H- < < $$V r(,P-Ad%2ConvertText applies Proper Case to the select cell P!t(v  P( `#)Goes through cells that never cotain data h ()Goes through cells that never cotain dataAb- Adds left and right cell borders r%B@H  r%B@H'fH111KTBThese DataTypes are the secondary headers for individual DataLines'Z'\'^ < < $ r(,Ad%2ConvertText applies Proper Case to the select cell ` $)Goes through cells that never cotain dataAb) Adds left and right cell borders r%B@H@  r%B@H'fH112KH113KH114KH115KH116KTBThese DataTypes wrap back to the previous line b/c the description>was too long in the original datafile to fit on one line there'Z'\'^ r%B@H r!,  < < $$V'B B r(,0,Appends the current line to the previos lineAd%2ConvertText applies Proper Case to the select cell r%B@H'fH121KTHIs the tertiary DataType (tabbed twice) headers for individual DataLines'Z'\'^ < < $$V r(,Ad%2ConvertText applies Proper Case to the select cell ` $)Goes through cells that never cotain dataAb) Adds left and right cell borders r%B@H  r%B@H'fD 1KT Data Lines'Z <'@MSometimes a Total Line is disguised as a DataLine so it has to be manipulatedbased on the previous lines \ @0  r%B@Hk'\'^ <+$$V r(,'j r%!, j$ a j 'j f j 'ld j 'lk n l r!, r(,OSometimes a Header Line is disguised as a DataLine1 so it has to be manipulatedbased on the length of the line @0  r!, r(,'fd'fk.Sometimes we need to wrap to the previous line <$  TD 1 p r!,'r r(, r%B@H r!,  r$V r(, r!, r!, $ r(,k @0 'pd'pkAd%2ConvertText applies Proper Case to the select cellAb% Adds left and right cell borders r%B@H @0 'Z `Ab- Adds left and right cell borders r%B@Hd <4 $$V r(,Ad)2ConvertText applies Proper Case to the select cell r%B@H <0$$V r(,Ab) Adds left and right cell borders r%B@H <2$$V r(, r%B@H <?$$V r(,Ab) Adds left and right cell borders r%B@H <D$$V r(, r%B@H'ZkHDetermines if additional lines exist, if so display them and add bordersif not, just add borders @\ <F$$V r(,kAb% Adds left and right cell borders r%B@H @s <]$$V r(,k r%B@H @ <t$$V r(,kHAb% Adds left and right cell borders r%B@H @ <$$V r(,k r%B@H @ <$$V r(,kxAb% Adds left and right cell borders r%B@H @ < @ $$V r(,kAb% Adds left and right cell borders  r%B@HDKT Data Lines t1 ^ r%B@Hk@'Z'^ <'@MSometimes a Total Line is disguised as a DataLine so it has to be manipulatedbased on the previous lines \ @0  r%B@Hk`'\ <+$$V r(,Ad%2ConvertText applies Proper Case to the select cellAb% Adds left and right cell borders r%B@H @0 'Z `Ab- Adds left and right cell borders r%B@H d <4 $$V r(,Ad)2ConvertText applies Proper Case to the select cell r%B@H <0$$V r(,Ab) Adds left and right cell borders r%B@H <2$$V r(, r%B@H <?$$V r(,Ab) Adds left and right cell borders r%B@H <D$$V r(, r%B@H'ZkP HDetermines if additional lines exist, if so display them and add bordersif not, just add borders @\ <F$$V r(,k Ab% Adds left and right cell borders r%B@H @s <]$$V r(,k(  r%B@H @ <t$$V r(,k Ab% Adds left and right cell borders r%B@H @ <$$V r(,kX  r%B@H @ <$$V r(,k Ab% Adds left and right cell borders r%B@H @ < @ $$V r(,kAb% Adds left and right cell borders  r%B@HTKSKT:A Data type line that requires major additional formatting \ r%B@Hk'\'^ <'@ Z r%B@H r!,  <+$$V'B B r(, P!t(v  P('Zd <+$$V r(, P!t(v  P(kAd%2ConvertText applies Proper Case to the select cellAb% Adds left and right cell borders r%B@H @0 <4 $$V r(,Ad)2ConvertText applies Proper Case to the select cellAv+5Adds regular borders along with special total borders r%B@H <0$$V r(,Av+5Adds regular borders along with special total borders r%B@H <2$$V r(,Av+5Adds regular borders along with special total borders r%B@H <?$$V r(,Av+5Adds regular borders along with special total borders r%B@H <D$$V r(,Av+5Adds regular borders along with special total borders r%B@Hd( `')Goes through cells that never cotain dataAv/5Adds regular borders along with special total borders r%B@Hxkp @\ <F$$V r(,k8Av r%B@H @s <]$$V r(,kAv r%B@H @ <t$$V r(,kAv r%B@H @ <$$V r(,k0Av r%B@H @ <$$V r(,kAv r%B@H @ < @ $$V r(,kxAv  r%B@HB Case "S" 'Like Total but without the extra borders# isTotal = False% tempIsH10 = False/ If linelengthforS < 49 Then7 ActiveCell.Offset(-1, 0).Select3 tempRowNum = ActiveCell.Row@ Selection.EntireRow.Insert shift:=xlDown6 Range("A" & tempRowNum).Select6 ActiveCell.Offset(1, 0).Select5 LineLength = Len(InputString)Y TempLine = ActiveCell.Value & " " & Trim(Mid(InputString, 5, 43))3 ActiveCell.Value = TempLine\ Call ConvertText 'ConvertText applies Proper Case to the select cell End IfF Call DrawBorders 'Adds left and right cell borders2 ActiveCell.Offset(0, 1).Select+ If LineLength > 48 ThenI ActiveCell.Value = Trim(Mid(InputString, 52, 11))\ Call ConvertText 'ConvertText applies Proper Case to the select cell* Call TotalsBorders6 ActiveCell.Offset(0, 1).SelectH ActiveCell.Value = Trim(Mid(InputString, 48, 2))* Call TotalsBorders6 ActiveCell.Offset(0, 1).SelectH ActiveCell.Value = Trim(Mid(InputString, 50, 2))* Call TotalsBorders6 ActiveCell.Offset(0, 1).SelectH ActiveCell.Value = Trim(Mid(InputString, 63, 4))* Call TotalsBorders6 ActiveCell.Offset(0, 1).SelectH ActiveCell.Value = Trim(Mid(InputString, 68, 2))* Call TotalsBorders6 ActiveCell.Offset(0, 1).Select ElseJ Call DrawBorders 'Adds left and right cell borders6 ActiveCell.Offset(0, 2).SelectJ Call DrawBorders 'Adds left and right cell borders6 ActiveCell.Offset(0, 2).SelectJ Call DrawBorders 'Adds left and right cell borders6 ActiveCell.Offset(0, 1).Select End If, If LineLength >= 92 ThenI ActiveCell.Value = Trim(Mid(InputString, 70, 23)) End If& Call TotalsBorders2 ActiveCell.Offset(0, 1).Select- If LineLength >= 115 ThenI ActiveCell.Value = Trim(Mid(InputString, 93, 23)) End If& Call TotalsBorders2 ActiveCell.Offset(0, 1).Select- If LineLength >= 138 ThenJ ActiveCell.Value = Trim(Mid(InputString, 116, 23)) End If& Call TotalsBorders2 ActiveCell.Offset(0, 1).Select- If LineLength >= 161 ThenJ ActiveCell.Value = Trim(Mid(InputString, 139, 23)) End If& Call TotalsBorders2 ActiveCell.Offset(0, 1).Select- If LineLength >= 185 ThenJ ActiveCell.Value = Trim(Mid(InputString, 162, 23)) End If& Call TotalsBorders2 ActiveCell.Offset(0, 1).Select- If LineLength >= 186 ThenZ ActiveCell.Value = Trim(Mid(InputString, 185, (LineLength - 184))) End If& Call TotalsBorders4 ActiveCell.Offset(1, -11).Select Case Elsed 'For all other DataTypes that are not included in the above sections are treated` 'as a wrapping DataType and a message will inform the user of this occurence% tempIsH10 = FalseJ MsgBox "The LineID " & DataType & " does not exist in the converter. " &' "It will be treated as a repeating header line.", vbInformation,' "Converter Irregularity"3 ActiveCell.Offset(-1, 0).Selecti TempLine = ActiveCell.Value & " " & Trim(Mid(InputString, 5, (Len(InputString) - 4)))/ ActiveCell.Value = TempLineX Call ConvertText 'ConvertText applies Proper Case to the select cell2 ActiveCell.Offset(1, 0).Selectn+ <'t D <.Read a new line from a textfile <$$V'T4Look for row indicator@+]This next part does the same thing as above, but for the Total line at the bottom of the file \ r%B@Hk*'\ <'@ Z r%B@H r!,  <+$$V'B B r(, P!t(v  P('Zd) <+$$V r(, P!t(v  P(k)Ad2ConvertText applies Proper Case to the select cellAb Adds left and right cell borders r%B@H <4 $$V r(,Ad2ConvertText applies Proper Case to the select cellAv5Adds regular borders along with special total borders r%B@H <0$$V r(,Av5Adds regular borders along with special total borders r%B@H <2$$V r(,Av5Adds regular borders along with special total borders r%B@H <?$$V r(,Av5Adds regular borders along with special total borders r%B@H <D$$V r(,Av5Adds regular borders along with special total borders r%B@H <F$$V r(,Av r%B@H <]$$V r(,Av r%B@H <t$$V r(,Av r%B@H <$$V r(,Av r%B@H <$$V r(,Av r%B@H < @ $$V r(,Av  r%B@HAx=BottomBorders adds a plain line across the bottom of the file r!'z r!~'|RThe chapter must be saved as an excel file here for publication, without continues'You must save a copy of the excel file. Save Excel$' DefaultExcelFile'kx# NB@H PB@~ B@ B@ 2(  0  .B@ B@BA1$ZB@H z | r%B@HAEAddContinues adds the ( - Continued) to all even pages when necessary r!'((Determines how many rows are in the fileA5$Z!,',5Stores the Department for Table-1 Footnoting purposesL $ZB@H+ Goes back to the end of the dataT-----------------------------------------------------------------------------------'TThis section creates the Table-1 part of the document ':Cleans the third sheet to prepare it for data manipulationSheet3$LB@H NB@H VT PB@R NB@H P!t(x P!t(v@ P(XFix Column Widthsq= ףp@A:A$J(LHzG @B:C$J(Lfffff&4@D:F$J(LHzG @G:I$J(Lfffff&4@J:J$J(LColumn formatting A:I$J( A:I$J( PD:F$J( PJ:J$J(Table-1 HeaderA1:J1$ZB@H P(\ ` P%^ d9b h9f l9jq@ n P%^ d9b p9f l9jq Footnotes r(, P!t(v P!t(x+@1:1$z(|2Paste the recurring header from sheet 1 to sheet 3Sheet1$LB@HA20:J21$ZB@~Sheet3$LB@H RA4$ZB@.Adjust the height of the header rows for space#@1:1$z(|@:@4:4$z(|A3:J3$Z(\A6$ZB@H' '''FInitialize the temp strings to determine when the desired section ends'''' 6   <*Read a line from a textfile <$$V':Look for row indicator <' $Xa>Read in one line at a time until you reach the end of the file 0 CHAPTER ::"Looks for the header for a chapter  ' < ' < $$V'  $:,If matches the chapter from the main section' $V -  'd'kk -4Starts reading in data to be added to the excel file' < <$$V r(,Ab% Adds left and right cell borders r%B@H < $$V r(,Ab% Adds left and right cell borders r%B@H <$$V r(,Ab% Adds left and right cell borders r%B@H <$$V r(,Ab% Adds left and right cell borders r%B@H <4$$V r(,Ab% Adds left and right cell borders r%B@H <M$$V r(,Ab% Adds left and right cell borders r%B@H <g$$V r(,Ab% Adds left and right cell borders r%B@H <k$$V r(,Ab% Adds left and right cell borders r%B@H <q$$V r(,Ab% Adds left and right cell borders r%B@H <}$$V r(,Ab% Adds left and right cell borders  r%B@Hkxkp  <.Read a new line from a textfile Skip these lines <D ------------------- ----------------------- -----------------O------ ----------------------- ------------------- -----------------------  <2Read a new line from a textfilek@ <$$V'>Look for row indicator <Assign the existing templines to a succeeding set of strings ' ' ' <' r%B@H r!,TO(Searches for any total linesTotals r(,Av+Applies borders necessary to denote a total n P%^14Changes the bottom borders to a continuous thin line d9b p9f l9jq r%B@H r(,"Makes the next cell over blankAv+Applies borders necessary to denote a total n P%^14Changes the bottom borders to a continuous thin line d9b p9f l9jq r%B@H `FGoes through the next eight cells applying the same formatting to eachAv#+Applies borders necessary to denote a total n P%^5)Changes the bottom borders to a thin line d9b p9f l9jqx r%B@H ` r%B@Hk( r!'(8Determines the total number of rows of data on the sheetA3:J3$ZB@H.Selects the cell where the table title will go  r(,*'The table title is assigned to the cell P!t(v#Bolds the table titleAd2ConvertText applies Proper Case to the select cellJ $ZB@H &B@T-----------------------------------------------------------------------------------'>Change the visibility and other variables to the correct state ((0 *(0 (" (" 2(8 2(: !,$4If true append a line of information to the log file)text files converted to excel format for A5Sheet2$L%Z!, at $& A$k k |  EIf an error occurs, display a message that does not crash the programYou have an error! ErrorA@ o@  rB@H  P%^'.Add a thin border to the left side of the cell d9b p9f l9jq   P%^(/Add a thin border to the right side of the cell d9b p9f l9jqX oP  rB@H  P%^'.Add a thin border to the left side of the cell d9b p9f l9jq  ` P%^&-Add a thin border to the top side of the cell d9b p9f l9jqh  n P%^)9Add a thick, double border to the bottom side of the cell 9b h9f l9jq   P%^(/Add a thin border to the right side of the cell d9b p9f l9jq o 8 ` #For the entire row of data, do thisAb Adds left and right cell borders r%B@H  r%B@H%Go to the start of the next row ` #For the entire row of data, do this  P%^+.Add a thin border to the left side of the cell d9b p9f l9jq n P%^-0Add a thin border to the bottom side of the cell d9b p9f l9jq  P%^,/Add a thin border to the right side of the cell d9b p9f l9jq0 r%B@H r%B@H$Go back 1 columnox]7Declare the variable to hold the path of the excel file "!''$Sets the rowCounter variable to zeroA4 r%$ZB@H0highlights the data P!z!'#.counts the number of rows in the selected data   bL---------------------------------------------------------------------------'Lthis section moves even page headers down to the next line if necessary '' {@ a#!The size, in pixels of even pages r%B@H  r!| '  '  xXkPH {@ "EForces the bottom line of data to go to the next page with this count r%B@H  'k  &8If we are at the bottom of the excel file, exit the loopxXkP'Sets the variable to zero r!'*2Assgins the bottom row variable to the current row  '0'Marks the row one after the current row';Sets the default for if the curent row is a data row or not r%B@H';Goes over six cells to where a data element should be found a$*Looks backwards until a data line is found r!,+:If the current cell is not blank, prepare to exit the loop'kX r%B@H0 r%B@H r!'+0Defines the current row number in integer formatORows to be moved down are determined by subtracting bottom row from current row   ' #-If on data rows exist at the bottom of a page r%B@H .Selects the rows of the cells to be moved down r%A $ZB@H P!B@~%Copies the rowsA $ZB@H1Selects the row to insert to 8Inserts the rows of data, shifting the current data down T P!B@A  A $ZB@H P!B@.Clears the copied dataA $ZB@H ` Adds borders when necessary  n P%^(b r%B@H `  r%B@HA  A $ZB@H'Sets row counter to zero UWhen data is moved down, excel wants to reset the row height to the default, this can Vcause problems, because the height of each page is dependent on the height of each row 9in the page. B/C of this, row height must be maintained.  !!zA   $Z!| (|  '  '  ' k{A $ZB@H r%B@H n P%^!b  XIf cell has a bottom border indicating a total line move the total line to the next page r%B@H P!B@~A $ZB@H T P!B@A $ZB@H P!B@ ` Apply formatting to each  n P%^(bCresets the borders  ` P%^(b@resets the borders r%B@HzB $ZB@H ` Apply formatting to each d ` P%^(bF"sets the top border to a thin line r%B@H`yA  A $ZB@H'  !!z;Maintains row height integrityA   $Z!| (|  '  '  ' kxxA $ZB@H  '$DIncreases the rowCounter variable by one ever time the loop iteratesH-----------------------------------------------------------------------'Hthis section moves odd page headers down to the next line if necessary '' z@ a#Height, in pixels of odd pages r%B@H ;gets the height of the current row and adds it to the total  r!| '  ' BIf the end of the file is reached, exit this loop to avoid a crash  x@vk8v0v  DIn special cases, this will move the last line down to the next page r%B@H  'ku  &0Exits the loop if the end of the file is reachedxPukHu'*Initializes the moveOrNot variable to zero r!'?Sets the rowToPasteTo variable to 1 past the current bottom row  '')This is the default state of the variable r%B@H'Go over six columns a$%The loop will run until data is found r!,'ks r%B@Hs r%B@H r!'+/Stores the current row number in integer format   '=+Determines how many rows must be moved down #If not zero, rows must be moved r%B@H r%A $ZB@HJSelects the rows to be moved P!B@~%Copies the rowsA $ZB@H T P!B@5Inserts the copied rowsA  A $ZB@H P!B@.Clears the original rowsA $ZB@H ` &Formats the rows the same with borders  n P%^(b r%B@H `A  A $ZB@H' DIf a row has a height other than the default, that must be preserved  !!zA   $Z!| (|  '  '  ' koA $ZB@H-*Select the bottom row of the previous page r%B@H'Move over 1 column .If a border exists that indicates a total line n P%^!b  r%B@H P!B@~%Copies that rowA $ZB@H T P!B@5Inserts it to the next pageA $ZB@H P!B@.Clears the original data ` Formats the row appropriatly  n P%^(b  ` P%^(b r%B@HmB $ZB@H11Selects the row of the first line of the new page ` Formats the row equally d ` P%^(b r%B@HmA  A $ZB@H' DIf a row has a height other than the default, that must be preserved  !!zA   $Z!| (|  '  '  ' kkA $ZB@H  '$9Increases the total row count towards the end of the fileH-----------------------------------------------------------------------'Hthis section adds the continues to even pages if necessary 'Initialize variables''' r%B@H  ' r!' r!,*=This indicates that the row is a data row with no description r%B@H r!,Subtotal23Moving over one column, you can test for a subtotal'!,If true, set a boolean variable that says sokpi r%B@H LGo up one row until you get a row that does not have a length of seven chars r!,b r%B@Hh r!,'.6The first row that does not have exactly 7 chars to it'k`h r!,$ 8,Go over one column if there are seven spaces r%B@H n P%^!b IIndicates a total row'#5Store a boolean IsTotal as true for future formattingkhg r%B@Hk@gVCheck to see if totals and subtotals exist along with the data and format as necessary r!,$  P'***commented out 'And tempIsSub = False r!,$ b=*Searches for a row with less than 7 spaces r%B@Hf r!,' *Searches for a row with less than 4 spaces r!,$  r!,a r%B@H`e r!,'A $ZB@H ,Sets height of rows to ensure page integrity r!|' r%B@H ,Sets height of rows to ensure page integrity r!|' r%B@H r% r%$ZB@H T P!B@5Insert a new rowA $ZB@H  - Continued r(,?Adds the continued : $z!B@ r!|   r(|kpc r%B@H  - Continued r(,@Adds the continued  ' : $z!B@ r!|   r(|kb  '(Decrease the total row counter  '"Increase the total row countdPb 6Loop this the same way as above without the first part r!,$   r!,$  r!,a r%B@Ha r!,'A $ZB@H-Maintains row height to ensure page integrity r!|' r% r%$ZB@H T P!B@A $ZB@H  - Continued r(, : $z!B@ r!|   r(|k@`  ',Decrease the total row counter  '&Increase the total row countk_k_0Checks to see if the line is a sub or total line  :&***commented out tempIsSub = False And r%B@H T P!B@5 Adds new row  - Continued r(,?Adds continues  '  : $z!B@  '(Decrease the total row counter  '"Increase the total row countk(^A  $ZB@H6Selects the first column]_Adds 2 to the master count to give 2 extra lines of blank formatted cells below the grand total  'L $ZB@H ESelects the cell of the last row and last column of the relevant data DThis is important later when we paste the data from excel into word.o\=Converts all the text in the first two columns to proper case r!,$  1-Checks to see if the data in the cell is text r!, $ r(,C Converts the text to proper case r!,''3Determines the length of the string inside the cell  /Goes through the string one character at a time r!, $' - r!,  $-  &skip this, or it will throw and error!dZJIf there is a parenthesis or dash, then the next word needs to be in Caps.MProper case does not do this, so this procedure was built to get around that. r!, $'>'The start of the string until the paren r!,  $$'L The first letter after the paren r!,      $'UThe remaining string'Concatenates the three strings together    r(,kXkX (JIf there is a parenthesis or dash, then the next word needs to be in Caps.MProper case does not do this, so this procedure was built to get around that. r!, $':'The start of the string until the paren r!,  $$'H The first letter after the paren r!,      $'QThe remaining string'Concatenates the three strings together    r(,kV .   ?If there is a period, then the last letter needs to be in caps.MProper case does not do this, so this procedure was built to get around that. r!, $':(The start of the string until the period r!,  $  r!,  $$'L!The first letter after the periodd8U 'k U r!,      $'QThe remaining string'Concatenates the three strings together    r(,kT khTo`T  'If error occurs go to the error handlerDeclare variables]P]p]*Sets the working condition on the graphics *(0 ,(0'(Sheet2$LB@HGoes to the main sheetA1 r%$ZB@H0Selects all relevant cells PB@~Copies the selected cellsWord Files,*.docSelect Word Document Converter 2%4'. ..If cancel is clicked instead of an actual file You cancelledA@  *(0d Else the automation commencesWord.Application$0."50Sets the variable to the current version of Word . "!2%.$15Sets the document to the file name opened by the userOMake the application visible. I would have prefered the application was hiddenAuntil work was completed, however I beleive this is not possible. "(0 "!6!'4 "!PB@APastes the data from sheet 2 of the excel file into the word file "!P%8B@H{Gz? "%< "!P%8(: MsgBox "You must manually add padding to the table for optimal readability. " &' "Please follow the SOPs and press OK when done", vbOKOnly, "Add Padding" "!P!z(> "!P%@ D B7^(b5^ H9F9J9L9N9P9R9T9V9X9Z9\9^C@`qNqxN "!bSets the default options D9d h9f l9jq(N "!6%8%n!ZB@H tr "!PB@pESelects the first few rows of the table and repeats them on all pages "!P!z(v zr "!PB@x "!PB@|#Selects the entire table zr "!PB@x8Moves down below the table l "!PB@~6!Creates a new page and goes to itSheet8$LB@H #Goes to the Footnotes data in excel PB@~copies the cells with data "!PB@4Pastes the Table-1 data from excel into the word doc "!P%8B@H{Gz? "%< "!P%8(:{Gz? "%< "!P%8( MsgBox "You must manually add padding to the table for optimal readability. " &' "Please follow the SOPs and press OK when done", vbOKOnly, "Add Padding" "!P!z(> "!P%@ D B7^(b5^9Sets default borders for the section (actually the table) H9F9J9L9N9P9R9T9V(:This puts the page border against the table which has none9X9Z9\9^C@`qpIqhI "!b"Sets default options for the table D9d h9f l9jqI "!PB@| "!P!99{Gz? "%<99qHQ---------------------------------------------------------------------------------2 column footnote code "!6%8%n!ZB@H zr "!PB@x r "!PB@p r  "!PB@ zr  "!PB@ l "!PB@~ "!P!!C@99@ "%<9? "%<9qF  "!P%8B@  "!P!J(? "%< "!P!J(Q--------------------------------------------------------------------------------- "!6%8%n!ZB@H tr "!PB@p "!P!z(v20Sets the first few rows as headers for each page "!6%8%n!ZB@H/wdApp.Selection.MoveDown Unit:=wdLine, Count:=1 "!PB@|#Selects the entire table r "!PB@>Moves down below the table l "!PB@~ l "!PB@~6!Creates a new page and goes to itSheet3$LB@H !Goes to the Table-1 data in excelA1 r%$ZB@H PB@~copies the cells with data "!PB@4Pastes the Table-1 data from excel into the word doc "!P%8B@H "!P!!3Remove multiple columnsC@99 !.Width = wdApp.InchesToPoints(10)qBQ? "%< "!P%8(:{Gz? "%< "!P%8( MsgBox "You must manually add padding to the table for optimal readability. " &' "Please follow the SOPs and press OK when done", vbOKOnly, "Add Padding" "!P!z(> "!P%@ D B7^(b5^9Sets default borders for the section (actually the table) H9F9J9L9N9P9R9T9V(:This puts the page border against the table which has none9X9Z9\9^C@`q@q@< wdApp.Selection.WholeStory 'Selects the entire tableS wdApp.Selection.MoveDown Unit:=wdLine, Count:=1 'Moves down below the tableX wdApp.Selection.InsertBreak Type:=wdPageBreak 'Creates a new page and goes to it> With wdApp.Options 'Sets default options for the table7 .DefaultBorderLineStyle = wdLineStyleSingle6 .DefaultBorderLineWidth = wdLineWidth050pt2 .DefaultBorderColor = wdColorAutomatic End With" wdApp.Selection.WholeStory, With wdApp.Selection.ParagraphFormat$ .SpaceBeforeAuto = False# .SpaceAfterAuto = False: .FirstLineIndent = wdApp.InchesToPoints(-0.02)- .CharacterUnitFirstLineIndent = 0 End With "!6%8%n!ZB@H tr "!PB@p "!P!z(v20Sets the first few rows as headers for each page zr "!PB@xh createPDF = MsgBox("Do you want to create a .pdf file of this report?", vbYesNo, "Create .pdf?")N If createPDF = vbYes Then 'If the user clicks yes to making a PDF filef tempActivePrinter = wdApp.ActivePrinter 'Stores the original default printer to a variablee wdApp.ActivePrinter = "Acrobat PDFWriter" 'Sets the Acrobat Writer as the default printerQ wdApp.Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:=' wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages,' ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:=' False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0,' PrintZoomPaperHeight:=0 'Prints the file to a PDFc wdApp.ActivePrinter = tempActivePrinter 'Resets the default printer to the original Else 'Do nothing End If  "%B@/.Saves the new word file as a user defined name $B@B''Closes the Word Document Fund Converter.$Sets the variable to nothing "B@ Closes word."Sets the variable to nothing *(0 ,(0] "!' !,$,If checked, data is appended to the log file 'text file converted to word format for A6$Z!, at $& A$kX6 ( !-If errors occur, display the number of errors (9 error(s) occured while creating the word document which 5may or may not effect the appearance of the document.  Error OccuredA@ kh5$Do you want to convert another file? Go Again$  AJIf the user does not want to convert another file, call the exit procedured4 0revert the user form back to it's original state (" (" ((0 *(0 *(0 ,(0 ("k4k4|4 3 ( '($'Adds 1 to the number of errors comitted3o3]@ \ConverterLog.log'0(Saves the log file in the same directory]X '> next file number  >,% creates the file if it doesn't exist > . write information at the end of the text file >V close the fileop2pK On Error GoTo errorhandler8 'If an error occurs go to the error handler] "!' (" !,FIf checked, a notation is created to indicate the time and duration of the process)Deposit Funds file conversion started at $& A$k(1'Displays the relevant image on the form (0 Is working (0Is Done .!',Find the Account Statement file Text Files,*.txtDeposit Funds source file 2%4'0/If the user clicks cancel don't throw and error 0%You cancelled opening a required fileA@  (0 ("d Else the automation commences 2(8 2(:Variable declaration]]]] 'D 0 DCleans the second sheet for use ,$FB@HSheet2$LB@H NB@H VT PB@R NB@H@ P(XFix Column WidthsRF@A:A$J(L)\(@B:B$J(LzG@C:C$J(LRQ @D:D$J(L)\(@E:E$J(L(\@F:F$J(LGz$@G:L$J(LA:A$JB@H P(N" Makes the first column wrap text PB:L$J(5Right aligns columns B-L C:F$J(6Center aligns columns C-FSheet1$LB@HA14:L17$ZB@~&Copies the header from the first sheetSheet2$LB@H<Pastes the header from the first sheet into the second sheet RA1$ZB@DFix the row height of the header rows to eliminate unnecessary space @1:2$z(|0@3:3$z(|A5$ZB@H D <*Read a line from a textfile <$$V'T0Look for row indicator T---a D <.Read a line from a textfile <$$V'T4Look for row indicatorP* D <*Read a line from a textfile <$$V'T0Look for row indicator' Ta#Loop until the end of the text file T!DThe first four chars on each line of the text file comprise DataTypeH 1KTDepartment level header  <+$$V'' e <+$$V'' e <+$$V'' e <+$$V''k@('''' r!t(v  r( <+$$V r(,Ad%2ConvertText applies Proper Case to the select cell r!,$:  r(kh' h ` Ab r%B@H',pageCount = pageCount + ActiveCell.RowHeight  r%B@H&H 2KH 3KH 4KT) Header Line KT   <+$$V'KT   <+$$V'KT   <+$$V'KT   <+$$V'n%''' r%B@H,pageCount = pageCount - ActiveCell.RowHeight r!,'B B  <+$$V r(,Ad%2ConvertText applies Proper Case to the select cell r!,$:  r(k`$,pageCount = pageCount + ActiveCell.RowHeight r%B@HC**KU**KT"Data to follow  r!,'B B  <+$$V r(,Ad)2ConvertText applies Proper Case to the select celldH# <+$$V r(,Ad)2ConvertText applies Proper Case to the select cellk"''''D**KI**KT" Data Line  r!,'B B  <+$$V# r(,Ad)2ConvertText applies Proper Case to the select cellAbd! <+$$V# r(,Ad)2ConvertText applies Proper Case to the select cellAbkx!'''' r%B@H <8$$VXNo Year r(,d <8$$V r(,k  r%B@H <2$$V r(,Ad%2ConvertText applies Proper Case to the select cellAb r%B@H <5$$V r(,Ad%2ConvertText applies Proper Case to the select cellAb,pageCount = pageCount + ActiveCell.RowHeight r%B@H <=$$V r(,Ad%2ConvertText applies Proper Case to the select cellAb r%B@H TD** <B$$V r(,d <E$$V r(,kAd%2ConvertText applies Proper Case to the select cellAb r%B@H <I$$V r(,Ad%2ConvertText applies Proper Case to the select cell r!,0.00----------------------- r(,kAb r%B@H <c$$V r(,Ad%2ConvertText applies Proper Case to the select cell r!,0.00----------------------- r(,kAb  r%(, r%B@H'S**KTTotal to follow  `Ab r%B@H,pageCount = pageCount + ActiveCell.RowHeight r%B@Hk  r!,'B B  <+$$V r(,Ad)2ConvertText applies Proper Case to the select celld r%B@H <+$$V r(,Ad)2ConvertText applies Proper Case to the select cellk r%B@H <2$$V r(,Ad%2ConvertText applies Proper Case to the select cellAb r%B@H <5$$V r(,Ad%2ConvertText applies Proper Case to the select cellAb,pageCount = pageCount + ActiveCell.RowHeight r%B@H <=$$V r(,Ad%2ConvertText applies Proper Case to the select cellAb r%B@HAd%2ConvertText applies Proper Case to the select cellAb r%B@H <I$$V r(,Ad%2ConvertText applies Proper Case to the select cell r!,0.00----------------------- r(,kAb r%B@H <c$$V r(,Ad%2ConvertText applies Proper Case to the select cell r!,0.00----------------------- r(,kAb  r%(, r%B@H'''''T**KG**KT" Total line  ` Ab r%B@H,pageCount = pageCount + ActiveCell.RowHeight  r%B@Hk  r!,'B r(, ` Ab r%B@H8,pageCount = pageCount + ActiveCell.RowHeight  r%B@H B  <+$$V# r(,Ad)2ConvertText applies Proper Case to the select cellAbdX <+$$V# r(,Ad)2ConvertText applies Proper Case to the select cellAbk  r!,'B B$- B <+$$V# r(,dp B  <+$$V# r(,k0 r!,'Ad)2ConvertText applies Proper Case to the select cell `Ab r%B@H <D$$V r(,Ad)2ConvertText applies Proper Case to the select cell r!,0.00----------------------- r(,kAvd6ActiveCell.Value = Trim(Mid(InputString, 6, 43)) & "#" r!,'Ad)2ConvertText applies Proper Case to the select cell `Ab r%B@H <I$$V r(,Ad)2ConvertText applies Proper Case to the select cell r!,0.00----------------------- r(,kpAv r%B@H <c$$V r(,Ad)2ConvertText applies Proper Case to the select cell r!,0.00----------------------- r(,kAv  r%(, r%B@H ` Ab r%B@H   r%B@HkA 'pageCount = pageCount + ActiveCell.RowHeight3 ActiveCell.Offset(1, -3).Select8 tempMatchTtoH = UCase(tempMatchTtoH): If Mid(tempMatchTtoH, 6, 1) = "," ThenW tempMatchTtoH = Mid(tempMatchTtoH, 8, (Len(tempMatchTtoH) - 7)) ElseW tempMatchTtoH = Mid(tempMatchTtoH, 7, (Len(tempMatchTtoH) - 6)) End If- Select Case tempMatchTtoH# Case tempH4' tempH4 = ""# Case tempH3' tempH3 = ""# Case tempH2' tempH2 = ""# Case tempH1' tempH1 = "" End Select7 tempMatchTtoH = tempMatchTtoH & ":"- Select Case tempMatchTtoH# Case tempH4' tempH4 = ""# Case tempH3' tempH3 = ""# Case tempH2' tempH2 = ""# Case tempH1' tempH1 = "" End Select'''''n9 If pageCount > 638 And isCTypeID = False Then) If pageCount > 646.5 Then3 ActiveCell.Offset(-1, 0).Select3 tempRowCell1 = ActiveCell.Value2 ActiveCell.Offset(0, 1).Select3 tempRowCell2 = ActiveCell.Value2 ActiveCell.Offset(0, 1).Select3 tempRowCell3 = ActiveCell.Value3 ActiveCell.Offset(0, -2).Select( tempRowExists = True Else) tempRowExists = False End If? oldpageCount = pageCount - ActiveCell.RowHeight* If oldpageCount < 634 Then2 ActiveCell.Offset(1, 0).Select End If pageCount = 0/ ActiveCell.Offset(-1, 0).Select For X = 1 To 3j With Selection.Borders(xlEdgeBottom) 'Add a thin border to the bottom side of the cell1 .LineStyle = xlContinuous( .Weight = xlThin1 .ColorIndex = xlAutomatic End With2 ActiveCell.Offset(0, 1).Select Next/ ActiveCell.Offset(1, -3).Select$ If tempH1 <> "" Then> ActiveCell.Value = tempH1 & " - Continued"$ Call ConvertText" For Y = 1 To 2& For X = 1 To 3, Call DrawBorders: ActiveCell.Offset(0, 1).Select NextD pageCount = pageCount + ActiveCell.RowHeight7 ActiveCell.Offset(1, -3).Select Next End If$ If tempH2 <> "" Then$ Call ConvertText> ActiveCell.Value = tempH2 & " - Continued"" For Y = 1 To 2& For X = 1 To 3, Call DrawBorders: ActiveCell.Offset(0, 1).Select NextD pageCount = pageCount + ActiveCell.RowHeight7 ActiveCell.Offset(1, -3).Select Next End If$ If tempH3 <> "" Then> ActiveCell.Value = tempH3 & " - Continued"$ Call ConvertText" For Y = 1 To 2& For X = 1 To 3, Call DrawBorders: ActiveCell.Offset(0, 1).Select NextD pageCount = pageCount + ActiveCell.RowHeight7 ActiveCell.Offset(1, -3).Select Next End If$ If tempH4 <> "" Then> ActiveCell.Value = tempH4 & " - Continued"$ Call ConvertText" For Y = 1 To 2& For X = 1 To 3, Call DrawBorders: ActiveCell.Offset(0, 1).Select NextD pageCount = pageCount + ActiveCell.RowHeight7 ActiveCell.Offset(1, -3).Select Next End If, If tempRowExists = True Then3 ActiveCell.Value = tempRowCell1$ Call DrawBorders2 ActiveCell.Offset(0, 1).Select3 ActiveCell.Value = tempRowCell2$ Call DrawBorders2 ActiveCell.Offset(0, 1).Select3 ActiveCell.Value = tempRowCell3@ pageCount = pageCount + ActiveCell.RowHeight$ Call DrawBorders3 ActiveCell.Offset(1, -2).Select End If End If D <.Read a new line from a textfile <$$V'T4Look for row indicator  ' ` Ab n P%^1/Add a thin border to the right side of the cell d9b p9f l9jqX r%B@H8 r%B@H T----a D <.Read a new line from a textfile <$$V'T4Look for row indicatorBLine Input #FileNum1, InputString 'Read a new line from a textfileH5$ZB@H <$$V' a n r%%^!b dxk n r%^!b   nI r!:L r!$Z%^(b d `I r!:L r!$Z%^(bk  r%!,  r%!, D <6Read a new line from a textfile <$$V'<Look for row indicatorh <$$V'5Look for column 1 value <$$V'6Look for column 2 value <7$$V'6Look for column 3 value <Q$$V'6Look for column 4 value 0.00-----------------------'k0 0.00-----------------------'k 0.00-----------------------'k 0.00-----------------------'k r%B@H  r(,Ab r%B@H  r(,Ab r%B@H  r(,Ab r%B@H  r(,Ab r%B@Hd r%B@HkxA1 r%$ZB@H4Selects all relevant cells>Change the visibility and other variables to the correct state (0 (0 2(8 2(: !,$4If true append a line of information to the log file)text files converted to excel format for A3Sheet2$L%Z!, at $& A$kkDeclare variables](]@]X'(/Sheets("Sheet2").Select 'Goes to the main sheetGRange("A1", ActiveCell.Offset(1, 0)).Select 'Selects all relevant cells PB@~Copies the selected cellsWord Files,*.docSelect Word Document Converter 2%4'. ..If cancel is clicked instead of an actual file You cancelledA@ d Else the automation commencesWord.Application$0."50Sets the variable to the current version of Word . "!2%.$15Sets the document to the file name opened by the userOMake the application visible. I would have prefered the application was hiddenAuntil work was completed, however I beleive this is not possible. "(0 "!6!'4 "!PB@APastes the data from sheet 2 of the excel file into the word file "!PB@| "!P!!B@? "%< "!6( @ "%<   "!P!!B@ "!P!B@ "!P!!B@ "!P!#9d^t5(d9 9 999999q  "!P!B@ "!P%8B@HVI can't get this to work so it is commented out, however its purpose is to put spacingXbetween the numbers and the cell borders. The currect solution is the message box below=wdApp.Selection.Tables(1).RightPadding = InchesToPoints(0.02) EYou must manually add padding to the table for optimal readability. -Please follow the SOPs and press OK when done  Add PaddingA@  "!P!z(> "!P%@ D B7^(b5^ H9F9J9L9N9P9R9T9V9X9Z9\9^C@`qqx "!bSets the default options D9d h9f l9jq( "!6%8%n!ZB@H tr "!PB@pESelects the first few rows of the table and repeats them on all pages "!P!z(v zr "!PB@x1Do you want to create a .pdf file of this report?  Create .pdf?$ '  "+If the user clicks yes to making a PDF file "!$'"41Stores the original default printer to a variableAcrobat PDFWriter "($6.Sets the Acrobat Writer as the default printer+90 (Z ,*.0 4268:<>@BD "!2B@&(Prints the file to a PDF " "($8*Resets the default printer to the originald( Do nothingk  "%B@/.Saves the new word file as a user defined name $B@B''Closes the Word Document Fund Converter.$Sets the variable to nothing "B@ Closes word."Sets the variable to nothing "!' !,$,If checked, data is appended to the log file 'text file converted to word format for A6$Z!, at $& A$kH ( !-If errors occur, display the number of errors (9 error(s) occured while creating the word document which 5may or may not effect the appearance of the document.  Error OccuredA@ kXkP|HF@EIf an error occurs, display a message that does not crash the programYou have an error! ErrorA@ opExits the formH *If an error occurs go to the error handler]Declare variables "!' !, *Makes a log notation if the box is checked A$kSheet2$LB@H8Cleans the Second and Third Sheets to allow for new data NB@H VT PB@R NB@H P!t(x P!t(v@ P(XSheet3$LB@H NB@H VT PB@R NB@H P!t(x P!t(v@ P(XSheet4$LB@H NB@H VT PB@R NB@H P!t(x P!t(v@ P(XSheet1$LB@HGo back to main page cmdRunMacro %JB@H A@r|H:Display an error message in place of a halting the programYou have an error! ErrorA@ o0HOn Error GoTo errorhandler6 'If an error occurs go to the error handler] "!' (" !,FIf checked, a notation is created to indicate the time and duration of the processPart One conversion started at $& A$k'Displays the relevant image on the form N(0 Is working P(0Is Done .!',Find the files Text Files,*.txt4ARB - Total Receipts, Outlays and Surplus or Deficit 2%4'R Text Files,*.txt,AR1 - Receipts by Source/Outlays by Function 2%4'T/If the user clicks cancel don't throw and error R T%You cancelled opening a required fileA@  N(0 ("d Else the automation commences 2(8 2(:Variable declaration] ]8]P]h] 'D R DSheet5$LB@HA:A$JB@H P(N# Makes the first column wrap text B:D$J(6Center aligns columns B:DB11:C13$ZB@A43:D44$ZB@A48:D50$ZB@A52:D52$ZB@A55:D57$ZB@A96:D115$ZB@ PB43:D59$Z( PB96:D115$Z(B11$ZB@H D <*Read a line from a textfile <$$V'T0Look for row indicator T20a D <.Read a line from a textfile <$$V'T4Look for row indicator <D$$V'V8Store the Fiscal CY receipts <[$$V'X8Store the Fiscal PY receipts D <*Read a line from a textfile <D$$V'Z7Store the Fiscal CY outlays <[$$V'\7Store the Fiscal PY outlays D <*Read a line from a textfile <D$$V'^4Store the Fiscal CY difference <[$$V'`4Store the Fiscal PY difference <$$V20a D <.Read a line from a textfile <$$V'bFiscal b r%(,Fiscal b  r%(, V r(, X r%(, Z r%(, \ r%(, ^ r%(, ` r%(,Begin the receipt section ' T A43$ZB@H  <*Read a line from a textfile <$$V'T0Look for row indicator T20a  <.Read a line from a textfile <$$V'T4Look for row indicatorHFill out the table  < 7$$V$$ < 7$$V < 7$$V $$d# r(, <C$$V r%(, <Z$$V r%(, <q$$V r%(, r%B@H  <*Read a line from a textfile  < 7$$V$$ < 7$$V < 7$$V $$d# r(, <C$$V r%(, <Z$$V r%(, <q$$V r%(, r%B@H  <*Read a line from a textfile < 7$$V$$ < 7$$V < 7$$V $$d'f f r(, f$: f f $'fk r%B@H  <*Read a line from a textfile  < 7$$V$$ < 7$$V < 7$$V $$d# r(, <C$$V r%(, <Z$$V r%(, <q$$V r%(, r%B@H  <*Read a line from a textfile  < 7$$V$$ < 7$$V < 7$$V $$d# r(, <C$$V r%(, <Z$$V r%(, <q$$V r%(, r%B@H  <*Read a line from a textfile  < 7$$V$$ < 7$$V < 7$$V $$d# r(, <C$$V r%(, <Z$$V r%(, <q$$V r%(, r%B@H f# r(, r%B@H  <*Read a line from a textfile < 7$$V$$ < 7$$V < 7$$V $$d# r(, <C$$V r%(, <Z$$V r%(, <q$$V r%(, r%B@H  <*Read a line from a textfile  < 7$$V$$ < 7$$V < 7$$V $$d# r(, <C$$V r%(, <Z$$V r%(, <q$$V r%(, r%B@H  <*Read a line from a textfile  < 7$$V$$ < 7$$V < 7$$V $$d# r(, <C$$V r%(, <Z$$V r%(, <q$$V r%(, r%B@H  <*Read a line from a textfile  < 7$$V$$ < 7$$V < 7$$V $$d# r(, <C$$V r%(, <Z$$V r%(, <q$$V r%(,A96$ZB@H T130a  <.Read a line from a textfile <$$V'T4Look for row indicator  <*Read a line from a textfile <a Fill out the table < 7$$V$$ < 7$$V < 7$$V $$d# r(, <C$$V r%(, <Z$$V r%(, <q$$V r%(, r%B@H  <.Read a line from a textfile r%B@H Total outlays# r(,Declare variables]]]'(Sheet5$LB@H Goes to the main sheetA1:D118$ZB@H Selects all relevant cells PB@~Copies the selected cellsWord Files,*.doc'Select Part One Word Document Converter 2%4'. ..If cancel is clicked instead of an actual file You cancelledA@ d Else the automation commencesWord.Application$0."90Sets the variable to the current version of Word . "!2%.$55Sets the document to the file name opened by the user OMake the application visible. I would have prefered the application was hidden Auntil work was completed, however I beleive this is not possible. "(0 "!6!'4 zr2 "!PB@x "!PB@"APastes the data from sheet 2 of the excel file into the word file "!P%8B@H "!P!z(> "!PB@| "!P!!B@?$< "!6(@$<   "!P!!B@ "!P!B@ "!P!!B@ "!P!#9d^t5(d9 9 999999q  "!P!B@1Do you want to create a .pdf file of this report?  Create .pdf?$ '  &+If the user clicks yes to making a PDF file "!$'"81Stores the original default printer to a variableAcrobat PDFWriter "($:.Sets the Acrobat Writer as the default printer+90 (Z ,*.0 4268:<>@BD "!2B@&,Prints the file to a PDF " "($<*Resets the default printer to the originaldX Do nothingk@  "%B@3.Saves the new word file as a user defined name $B@B+'Closes the Word Document Fund Converter.$ Sets the variable to nothing "B@ Closes word." Sets the variable to nothing "!' !,(,If checked, data is appended to the log file 'text file converted to word format for A6$Z!, at $& A$kx ( %-If errors occur, display the number of errors (9 error(s) occured while creating the word document which 5may or may not effect the appearance of the document.  Error OccuredA@ kkSheet1$LB@H Go back to main page cmdRunMacro %JB@H A@r|kh:Display an error message in place of a halting the program0MsgBox "You have an error!", vbCritical, "Error"oGOn Error GoTo errorhandler5 'If an error occurs go to the error handler "!' (" !,FIf checked, a notation is created to indicate the time and duration of the processNCall LogInformation("Schedule 3 file conversion started at " & Now(), varPath)k8'Displays the relevant image on the form l(0 Is working n(0Is Done .!',Find the Account Statement file Text Files,*.txt,Table A - Receipts By Source Categories File 2%4'0/If the user clicks cancel don't throw and error 0%You cancelled opening a required fileA@  p(0 ("d Else the automation commences 2(8 2(:Variable declaration] ]8]P]h 'D 0 DCleans the second sheet for use ,$FB@HSheet6$LB@H NB@H VT PB@R NB@H@ P(X N!t(xFix Column WidthsRD@A:A$J(Lq= ףp@B:B$J(L\(,@C:E$J(LA:A$JB@H P(N" Makes the first column wrap text B:B$J(6Center aligns columns B PC:E$J(5Right aligns columns CSheet1$LB@HA32:E33$ZB@~&Copies the header from the first sheetSheet6$LB@H<Pastes the header from the first sheet into the second sheet RA1$ZB@DFix the row height of the header rows to eliminate unnecessary space@@1:1$z(|A3$ZB@H D <*Read a line from a textfile <$$V'T0Look for row indicator D$Xa#Loop until the end of the text file T2a$Look for row indicator D <2Read a line from a textfile9 Obligations Guaranteed By the United States, Issued By: r(, r%B@H0 Department of Housing and Urban Development: r(,koGOn Error GoTo errorhandler6 'If an error occurs go to the error handler "!' (" !,FIf checked, a notation is created to indicate the time and duration of the processNCall LogInformation("Schedule 4 file conversion started at " & Now(), varPath)k'Displays the relevant image on the form t(0 Is working v(0Is Done .!',Find the Account Statement file Text Files,*.txt3Schedule 4 - Federal Securities Held as Investments 2%4'0/If the user clicks cancel don't throw and error 0%You cancelled opening a required fileA@  t(0 ("d Else the automation commences 2(8 2(:Variable declaration]]]] 'D 0 DCleans the second sheet for use ,$FB@HSheet6$LB@H NB@H VT PB@R NB@H@ P(X N!t(xFix Column WidthsRD@A:A$J(Lq= ףp@B:B$J(LHzG(@C:E$J(LA:A$JB@H P(N" Makes the first column wrap text B:B$J(6Center aligns columns B PC:E$J(5Right aligns columns CSheet1$LB@HA32:E33$ZB@~&Copies the header from the first sheetSheet6$LB@H<Pastes the header from the first sheet into the second sheet RA1$ZB@DFix the row height of the header rows to eliminate unnecessary space@@1:1$z(|A3$ZB@H D <*Read a line from a textfile <$$V'T0Look for row indicator <$$V---a6Loop for row indicator D <.Read a line from a textfile` D <*Read a line from a textfile <$$V'T0Look for row indicator D$Xa#Loop until the end of the text file T!DThe first four chars on each line of the text file comprise DataTypeJ 1KTFile Header Line <+$$V r(,Ad%2ConvertText applies Proper Case to the select cell `Ab r%B@H r%B@HH 1KT Header Line  <+$$V'' e <+$$V'' e <+$$V'' e <+$$V''k <+$$V r(,Ad%2ConvertText applies Proper Case to the select cell `Ab r%B@HС r%B@HH 2KH 3KH 4KT) Header Line r%B@H r!,'B B  <+$$V r(,Ad%2ConvertText applies Proper Case to the select cell r%B@HB 1KTSub-header line <+$$V: r(,Ad%2ConvertText applies Proper Case to the select cell `Ab r%B@H r%B@HB 2KB 3KB 4KT)Sub-header line r%B@H r!, r!, $'B B  <+$$V: r(,Ad%2ConvertText applies Proper Case to the select cell r%B@HC**KT Follows Data r%B@H r!,'B B  <+$$V r(,Ad%2ConvertText applies Proper Case to the select cell r%B@HD**KT Data Line <+$$V r(,Ad%2ConvertText applies Proper Case to the select cellAb r%B@H <2$$V <4 $$V$V r(,Ab r%B@H <@$$V r(,Ab r%B@H <V$$V r(,Ab r%B@H <l$$V r(,Ab r%B@HT**KG**KT" Total line `Ab r%B@H r%B@H <+$$V r(,Ad%2ConvertText applies Proper Case to the select cell `Ab r%B@H <@$$V r(,Av r%B@H <V$$V r(,Av r%B@H <l$$V r(,Av r%B@H `Ab r%B@H r%B@HI**KT Total line <+$$V r(,Ad%2ConvertText applies Proper Case to the select cell `Ab r%B@H <@$$V r(,Av r%B@H <V$$V r(,Av r%B@H <l$$V r(,Av r%B@H `Ab r%B@H r%B@H `Ab n P%^=0Add a thin border to the bottom side of the cell d9b p9f l9jq r%B@Hn D <.Read a line from a textfile <$$V'T4Look for row indicatorp r%B@HDeclare variables] ]8]P'(Sheet6$LB@H Goes to the main sheetA1 r%$ZB@H4Selects all relevant cells PB@~Copies the selected cellsWord Files,*.doc)Select Schedule 4 Word Document Converter 2%4'. ..If cancel is clicked instead of an actual file You cancelledA@ d Else the automation commencesWord.Application$0."90Sets the variable to the current version of Word . "!2%.$55Sets the document to the file name opened by the user OMake the application visible. I would have prefered the application was hidden Auntil work was completed, however I beleive this is not possible. "(0 "!6!'4 "!PB@"APastes the data from sheet 2 of the excel file into the word file "!PB@| "!P!!B@? "%< "!6( r  "!PB@ "!P!? "%<9x99? "%<99z9q "!P%8B@H VI can't get this to work so it is commented out, however its purpose is to put spacing Xbetween the numbers and the cell borders. The currect solution is the message box below{Gz? "%< "!P%8(: MsgBox "You must manually add padding to the table for optimal readability. " & "Please follow the SOPs and press OK when done", vbOKOnly, "Add Padding" "!P!z(> "!P%@ D B7^(b5^ H9F9J9L9N9P9R9T9V9X9Z9\9^C@`qhq` "!bSets the default options D9d h9f l9jq "!6%8%n!ZB@H tr "!PB@p ESelects the first few rows of the table and repeats them on all pages "!P!z(v zr "!PB@x "!PB@|'Selects the entire table zr "!PB@x<Moves down below the table l "!PB@~:!Creates a new page and goes to itl createPDF = MsgBox("Do you want to create a .pdf file of this report?", vbYesNo, "Create .pdf?")R If createPDF = vbYes Then 'If the user clicks yes to making a PDF filej tempActivePrinter = wdApp.ActivePrinter 'Stores the original default printer to a variablei wdApp.ActivePrinter = "Acrobat PDFWriter" 'Sets the Acrobat Writer as the default printerI wdApp.Application.PrintOut Filename:="", Range:=wdPrintAllDocument, Item:=' wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages,' ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:=' False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0,' PrintZoomPaperHeight:=0 'Prints the file to a PDFg wdApp.ActivePrinter = tempActivePrinter 'Resets the default printer to the original Else 'Do nothing End If  "%B@3.Saves the new word file as a user defined name $B@B+'Closes the Word Document Fund Converter.$ Sets the variable to nothing "B@ Closes word." Sets the variable to nothing "!' !,(,If checked, data is appended to the log fileSCall LogInformation("text file converted to word format for " & Range("A6").Value &" at " & Now(), varPath)k` ( %-If errors occur, display the number of errors (9 error(s) occured while creating the word document which 5may or may not effect the appearance of the document.  Error OccuredA@ kpkhk`oXh~ *If an error occurs go to the error handler] "!' (" !,FIf checked, a notation is created to indicate the time and duration of the process#Table A file conversion started at $& A$k0'Displays the relevant image on the form p(0 Is working (0Is Done .!',Find the Account Statement file Text Files,*.txt,Table A - Receipts By Source Categories File 2%4'0/If the user clicks cancel don't throw and error 0%You cancelled opening a required fileA@  p(0 ("d Else the automation commences 2(8 2(:Variable declaration]]]] 'D 0 DCleans the second sheet for use ,$FB@HSheet4$LB@H NB@H VT PB@R NB@H@ P(X N!t(xFix Column WidthsGzS@A:A$J(Lp= #!@B:B$J(LHzG&@C:C$J(L/@1:1$z(|A:A$JB@H P(N" Makes the first column wrap text B:B$J(6Center aligns columns B PC:C$J(5Right aligns columns CSheet1$LB@HA24:C25$ZB@~&Copies the header from the first sheetSheet4$LB@H<Pastes the header from the first sheet into the second sheet RA1$ZB@DFix the row height of the header rows to eliminate unnecessary space3@1:1$z(|''''''A3$ZB@H D <*Read a line from a textfile <$$V'T0Look for row indicator D$Xa#Loop until the end of the text file T!DThe first four chars on each line of the text file comprise DataTypeH 1KT Header Line  <+$$V'' e <+$$V'' e <+$$V'' e <+$$V''kx}'''' r!t(v  r( <+$$V r(,Ad%2ConvertText applies Proper Case to the select cell r!,$:  r(k| h `Ab r%B@HH|,pageCount = pageCount + ActiveCell.RowHeight r%B@H{H 2KH 3KH 4KT) Header Line KT   <+$$V'KT   <+$$V'KT   <+$$V'KT   <+$$V'nz''' r%B@H,pageCount = pageCount - ActiveCell.RowHeight r!,'B B  <+$$V r(,Ad%2ConvertText applies Proper Case to the select cell r!,$:  r(ky,pageCount = pageCount + ActiveCell.RowHeight r%B@HC**KTData to follow  r!,'B B  <+$$V r(,Ad)2ConvertText applies Proper Case to the select celldx <+$$V r(,Ad)2ConvertText applies Proper Case to the select cellk(x''''D**KT Data Line  r!,'B B  <+$$V# r(,Ad)2ConvertText applies Proper Case to the select cellAbd@w <+$$V# r(,Ad)2ConvertText applies Proper Case to the select cellAbkv'''' r%B@H <4$$V  <9 $$V$V r(,Ad%2ConvertText applies Proper Case to the select cellAb r%B@H <D$$V r(,Ad%2ConvertText applies Proper Case to the select cellAb,pageCount = pageCount + ActiveCell.RowHeight r%B@HS**KTTotal to follow  `Ab r%B@Ht,pageCount = pageCount + ActiveCell.RowHeight r%B@HkPt  r!,'B B  <+$$V r(,Ad)2ConvertText applies Proper Case to the select cellds <+$$V r(,Ad)2ConvertText applies Proper Case to the select cellkPs''''T**KT Total line  `Ab r%B@Hr,pageCount = pageCount + ActiveCell.RowHeight r%B@Hk`r  r!,'B B$- B <+$$V# r(,dq B  <+$$V# r(,kq r!,'Ad)2ConvertText applies Proper Case to the select cell `Ab r%B@H q <D$$V r(,Ad)2ConvertText applies Proper Case to the select cellAvdp <+$$V# r(, r!,'Ad)2ConvertText applies Proper Case to the select cell `Ab r%B@Ho <D$$V r(,Ad)2ConvertText applies Proper Case to the select cellAvko,pageCount = pageCount + ActiveCell.RowHeight r%B@H `Ab r%B@Hn,pageCount = pageCount + ActiveCell.RowHeight r%B@H $' $,   $'d@n   $'kn  KT' KT' KT' KT'nm :'  KT' KT' KT' KT'nhm''''n@m9 If pageCount > 638 And isCTypeID = False Then) If pageCount > 646.5 Then3 ActiveCell.Offset(-1, 0).Select3 tempRowCell1 = ActiveCell.Value2 ActiveCell.Offset(0, 1).Select3 tempRowCell2 = ActiveCell.Value2 ActiveCell.Offset(0, 1).Select3 tempRowCell3 = ActiveCell.Value3 ActiveCell.Offset(0, -2).Select( tempRowExists = True Else) tempRowExists = False End If? oldpageCount = pageCount - ActiveCell.RowHeight* If oldpageCount < 634 Then2 ActiveCell.Offset(1, 0).Select End If pageCount = 0/ ActiveCell.Offset(-1, 0).Select For X = 1 To 3j With Selection.Borders(xlEdgeBottom) 'Add a thin border to the bottom side of the cell1 .LineStyle = xlContinuous( .Weight = xlThin1 .ColorIndex = xlAutomatic End With2 ActiveCell.Offset(0, 1).Select Next/ ActiveCell.Offset(1, -3).Select$ If tempH1 <> "" Then> ActiveCell.Value = tempH1 & " - Continued"$ Call ConvertText" For Y = 1 To 2& For X = 1 To 3, Call DrawBorders: ActiveCell.Offset(0, 1).Select NextD pageCount = pageCount + ActiveCell.RowHeight7 ActiveCell.Offset(1, -3).Select Next End If$ If tempH2 <> "" Then> ActiveCell.Value = tempH2 & " - Continued"$ Call ConvertText" For Y = 1 To 2& For X = 1 To 3, Call DrawBorders: ActiveCell.Offset(0, 1).Select NextD pageCount = pageCount + ActiveCell.RowHeight7 ActiveCell.Offset(1, -3).Select Next End If$ If tempH3 <> "" Then> ActiveCell.Value = tempH3 & " - Continued"$ Call ConvertText" For Y = 1 To 2& For X = 1 To 3, Call DrawBorders: ActiveCell.Offset(0, 1).Select NextD pageCount = pageCount + ActiveCell.RowHeight7 ActiveCell.Offset(1, -3).Select Next End If$ If tempH4 <> "" Then> ActiveCell.Value = tempH4 & " - Continued"$ Call ConvertText" For Y = 1 To 2& For X = 1 To 3, Call DrawBorders: ActiveCell.Offset(0, 1).Select NextD pageCount = pageCount + ActiveCell.RowHeight7 ActiveCell.Offset(1, -3).Select Next End If, If tempRowExists = True Then3 ActiveCell.Value = tempRowCell1$ Call DrawBorders2 ActiveCell.Offset(0, 1).Select3 ActiveCell.Value = tempRowCell2$ Call DrawBorders2 ActiveCell.Offset(0, 1).Select3 ActiveCell.Value = tempRowCell3@ pageCount = pageCount + ActiveCell.RowHeight$ Call DrawBorders3 ActiveCell.Offset(1, -2).Select End If End If D <.Read a new line from a textfile <$$V'T4Look for row indicatorxZ `Ab n P%^1/Add a thin border to the right side of the cell d9b p9f l9jqY r%B@HY r%B@HGRange("A1", ActiveCell.Offset(0, 0)).Select 'Selects all relevant cells>Change the visibility and other variables to the correct state p(0 (0 2(8 2(: !,$4If true append a line of information to the log file)text files converted to excel format for A3Sheet4$L%Z!, at $& A$kXkXDeclare variables] ]8]P'(Sheet4$LB@HGoes to the main sheetA1 r%$ZB@H0Selects all relevant cells PB@~Copies the selected cellsWord Files,*.docSelect Word Document Converter 2%4'. ..If cancel is clicked instead of an actual file You cancelledA@ d Else the automation commencesWord.Application$0."50Sets the variable to the current version of Word . "!2%.$15Sets the document to the file name opened by the userOMake the application visible. I would have prefered the application was hiddenAuntil work was completed, however I beleive this is not possible. "(0 "!6!'4 "!PB@APastes the data from sheet 2 of the excel file into the word file "!PB@| "!P!!B@?$< "!6( @$<   "!P!!B@ "!P!B@ "!P!!B@ "!P!#9d^t5(d9 9 999999qXS  "!P!B@ "!P%8B@HVI can't get this to work so it is commented out, however its purpose is to put spacingXbetween the numbers and the cell borders. The currect solution is the message box below=wdApp.Selection.Tables(1).RightPadding = InchesToPoints(0.02) EYou must manually add padding to the table for optimal readability. -Please follow the SOPs and press OK when done  Add PaddingA@  "!P!z(> "!P%@ D B7^(b5^ H9F9J9L9N9P9R9T9V9X9Z9\9^C@`qPqP "!bSets the default options D9d h9f l9jq`P "!6%8%n!ZB@H tr "!PB@pESelects the first few rows of the table and repeats them on all pages "!P!z(v zr "!PB@x "!PB@|#Selects the entire table zr "!PB@x8Moves down below the table l "!PB@~6!Creates a new page and goes to it1Do you want to create a .pdf file of this report?  Create .pdf?$ '  "+If the user clicks yes to making a PDF file "!$'"41Stores the original default printer to a variableAcrobat PDFWriter "($6.Sets the Acrobat Writer as the default printer+90 (Z ,*.0 4268:<>@BD "!2B@&(Prints the file to a PDF " "($8*Resets the default printer to the originaldL Do nothingkL  "%B@/.Saves the new word file as a user defined name $B@B''Closes the Word Document Fund Converter.$Sets the variable to nothing "B@ Closes word."Sets the variable to nothing "!' !,$,If checked, data is appended to the log file 'text file converted to word format for A6$Z!, at $& A$kJ ( !-If errors occur, display the number of errors (9 error(s) occured while creating the word document which 5may or may not effect the appearance of the document.  Error OccuredA@ kIkI|I~IEIf an error occurs, display a message that does not crash the programYou have an error! ErrorA@ o@Ih *If an error occurs go to the error handler] "!' (" !,FIf checked, a notation is created to indicate the time and duration of the process#Table J file conversion started at $& A$kH'Displays the relevant image on the form (0 Is working (0Is Done .!',Find the Account Statement file Text Files,*.txt+Table J - Yearend Closing Statement Summary 2%4'0/If the user clicks cancel don't throw and error 0%You cancelled opening a required fileA@  (0 ("d Else the automation commences 2(8 2(:Variable declaration]]]] 'D 0 DCleans the second sheet for use ,$FB@HSheet7$LB@H NB@H VT PB@R NB@H@ P(X N!t(xFix Column WidthsGznD@A:A$J(L(\µ1@B:F$J(LA:F$JB@H P(N" Makes the first column wrap text A:A$J(4Left aligns columns A PB:F$J(5Right aligns columns B-FSheet1$LB@HA40:F41$ZB@~&Copies the header from the first sheetSheet7$LB@H<Pastes the header from the first sheet into the second sheet RA1$ZB@DFix the row height of the header rows to eliminate unnecessary spaceY:@1:1$z(| 1:1$z!t(xA3$ZB@H D <*Read a line from a textfile <($$V'1Look for row indicator CHAPTERa D <.Read a line from a textfile <($$V'A D <*Read a line from a textfile D <*Read a line from a textfile <($$Va4Loop until the end data <($$V r(,Ad2ConvertText applies Proper Case to the select cellAb Adds left and right cell borders r%B@H <.$$V r(,Ab Adds left and right cell borders r%B@H <F$$V r(,Ab Adds left and right cell borders r%B@H <^$$V r(, D <.Read a line from a textfile r%B@H@? D <*Read a line from a textfile Total r(, r%B@H <.$$V r(,Av+Applies borders necessary to denote a total r%B@H <F$$V r(,Av+Applies borders necessary to denote a total r%B@H <^$$V r(,Av+Applies borders necessary to denote a totalE3$ZB@H PAYABLEa D <.Read a line from a textfile <$$V'= D <*Read a line from a textfile D <*Read a line from a textfile <$$V======================aJLoop until the end data <$$V r(,Ab Adds left and right cell borders r%B@H <$$V r(,Ab Adds left and right cell borders D <.Read a line from a textfile r%B@HP; D <*Read a line from a textfile <$$V r(,Av+Applies borders necessary to denote a total r%B@H <$$V r(,Av+Applies borders necessary to denote a total r%B@HAx>Applies borders necessary to create borders on bottom of tableG:L$JB@R r%B@HDeclare variables] ]8 ]P '(A1 r%$ZB@H4Selects all relevant cells PB@~Copies the selected cellsWord Files,*.docSelect Word Document Converter 2%4'. ..If cancel is clicked instead of an actual file You cancelledA@ d Else the automation commencesWord.Application$0."90Sets the variable to the current version of Word . "!2%.$55Sets the document to the file name opened by the user OMake the application visible. I would have prefered the application was hidden Auntil work was completed, however I beleive this is not possible. "(0 "!6!'4 "!PB@"APastes the data from sheet 2 of the excel file into the word file "!P%8B@H VI can't get this to work so it is commented out, however its purpose is to put spacing Xbetween the numbers and the cell borders. The currect solution is the message box below =wdApp.Selection.Tables(1).RightPadding = InchesToPoints(0.02)EYou must manually add padding to the table for optimal readability. -Please follow the SOPs and press OK when done  Add PaddingA@  "!P!z(> "!6%8%n!ZB@H tr "!PB@p ESelects the first few rows of the table and repeats them on all pages "!P!z(v zr "!PB@x1Do you want to create a .pdf file of this report?  Create .pdf?$ '  &+If the user clicks yes to making a PDF file "!$'"81Stores the original default printer to a variableAcrobat PDFWriter "($:.Sets the Acrobat Writer as the default printer+90 (Z ,*.0 4268:<>@BD "!2B@&,Prints the file to a PDF " "($<*Resets the default printer to the originald1 Do nothingk1  "%B@3.Saves the new word file as a user defined name $B@B+'Closes the Word Document Fund Converter.$ Sets the variable to nothing "B@ Closes word." Sets the variable to nothing "!' !,(,If checked, data is appended to the log file 'text file converted to word format for A6$Z!, at $& A$k/ ( %-If errors occur, display the number of errors (9 error(s) occured while creating the word document which 5may or may not effect the appearance of the document.  Error OccuredA@ k.k.k.|..EIf an error occurs, display a message that does not crash the programYou have an error! ErrorA@ o ..]Attribute VB_Name = "frmMain" Basx0{29973C76-B5FB-4AED-AFF6-96B476CD742C}{4F232ED5-459@A-4B1B^EB-DD12E9FDAAC0} d@GlobalSpacoFalse CreatablPredeHclaIdTru BExpose0TemplateDerivCustomizD'-O' 'Title: FundConverter.xls '+AuthorJonathan Pavlik0  p-GWA V@ersion+20.2.3 D|06.20|07|&P urAThis excel m acro design@to rethe current process ,of clin`g CRCCombi St@%m@ . If funct3s solely as H vbawith a small seâ@nipu pword fro|m !  T#@f!cod!in@ hopesat it should !ev!" ! compAility&ms future  pARB$WAand E1Anya/ Ebe paddr3B myself or % aqualifiVBA/b MBB r ? S@RDcaPUpdHseX31.1.2 - Sub Text w@RgnHabC:c]e 1 f, each chap2 ? ?3 @ .1 c@wi`kcontrol3c{on'.d\oc,5+ s$_  {o A a ppK9per fcO #!Is immediatNfollowJa dash/hyphen `Gt{ column o 20 Part 1P p/iPLweKFed0 S heet5@Rld[ t$oR2a;WrapbMake#Ofirst"3w p B"HorizontalAlignB= xlRight 'aC@V B-L"CBt@xlCmZ'tC-F7z01pRange("A14:L17py 'CopiheadpfromBc?r96G0'PastpY?w Spe0cialAl>l6Qamhef o e liminD unne`sary` spac RG"1:EH= 8.25GS3:3 Y16.X4mY_J T, a'Rp a l^ ar+7 DataType%Trim(Mid(he, 1, 4)) 'LPbVo Until EOFRX1]spep Ca 'Ѓpq8fou0harsQeach#]?{X{B"H001" '8el _is|To>` |5tsIsH10oii 2sA1sX`1 To 1 2 'Go3rough ck3 ne`tain: aDr awBor=s 'Adds leftrb1At.Offset(0#ov}qN`(-<125XValơ\?-, 5, (@.) -q.4YCtBb7PaPrr+FK1 .F c.Bol۩19oaiaQ_$_$th_$t_$F _$_$s*_$F_$=_$_$ needToBzebC51 D9t7DUUw@IskAcHY K isTotal = False @tem@pIsH10i D21FFor X"1 To 12 'Goes through cell at never cin dataCall DrawBorders 'Adds left and@ right[ b%ActiveCC.Offset(0, 1).SelectNex &1, -12'ValueTrim(Mid(InputString, 5, (Len ) - 4))F)TConVtT@- ' appli@cProp^Case togxe s?PSGion.Font.Bold-u Horiz alAlignmen"t@xlCerSF}ɤaneedToBeTabbec<"H092", 372" 'The`@DoTyp Cwrap backBpr evioumin e b/cEdescriptA7#+/'waoo@ long the Cgin`filRfit on@e lArTM___T ?-50{~T5@L=& " & $Ƌ'Attac>8res,fb#,firpor7'Ap0pendcurrentoƀprevios /Call ConvertText ' applies Proper CassysG cN.VUneedToBe@TabbednT ru!"H121" 'I?t0@iary DT@ype (tCtwice) headers fordividu rsS1ΆS5 P{""?Aq|s%F +X61 To 12 'Go`Gthrough"EA5at neM c| SDrawBDor7'Ad^left and ɠhtb b#w C+$R0, 1;}N`b3 [-12 ?\4 m"D !\}AT T /Xgth-3'Sometim8a@: is di`sguis`t@abnBso @h be manipulatedt b`dÁu14rIf ɿai A A< 48 8The!,7-2޾E If_;_ O@43CharNum >1Do Until p"#[m,bq3 <>n@+ RLoop`?3aESpac ,= EOp- S/#sQRZRߖ=a/!L>HrrF>>1 >>Er'>lenHo= 92 Thens537]3L'?y??O"115?"%;9o2?"  ?? 138??a116`_P; _";61_"/_U x39/'. 3} 8*I$*16 * wxx//]/8>6Zh/*85, (R- 18@t_/g////1, -1#"D" 'Data_s^ hlbaforS < 49 AnisH121Uq? -@ 0_YOy+ ay= o9O'Sometim{a Q isqzguised aps a  |it h@be manipulatedo A'bd onpreviou0zR AtempI`0PTrqd}_F-0@Z9 vx8"" &g?d5Δll;;;d hM] oϛ3q"OFor X$qo 5 ߚlߚyϵ U.Value = Trim(Mid(InputString, 52, 11))  Call ConvertT ext ' applies Proper Case to the select cell]ActiveC#.Of@fset(0).S<"748, 2oDrawBorders 'Adds left and ridghb bf5fާ63, 4SASլHA[6]SisTotalAFalseEIfS'De@terminif additionlexist, so displayq.mBY{.'nojus_ddIf LLength >= 92 Thens537]3L'?y ??O"115?"[U9o2?"  ?? 138??a116`_P; _";61_"_"B"39_"j_ 8*kh*16 *;wxx/D1O/86y5/*85, (R- 18@t_/g////1x, -$"T", "S"@ Data type gPfat @requirimajoriformatt@o,tempIsH1~0Ҫ@db/ -'0oI_{evi 21} iq= qI_yGTr- l T`(G 8,& "& o[`_uP.Font.BoldHGHorizalAlignmentxlLOuxE" //(J1F߄߿LLL Htq_Q7Z> 4a7o3c3`I????9ó Call TotalsBorders 'Adds regu lar bTalong with special t@ ActiveCell.Offset(0, 1).@Select"7Value = Trim(Mid(InputString, 48, 2))I5rrZr63@srw6ElsewlFor X@t1 5 'Goes through cat never c@in dataW _w!\w GoNex4E`nd IfIf LineLeng>= 92 Thena;73kY/('115?e;9 2?0? /38??116__n4Op%|/6 Bo-HhO139/--_//W/8-K/c162//////W/|86-Z//#85, (Q- 184)L/g///1, -1 .'GCase "S" 'Like# but"Bopthe braNis⸠tF@w_`tempIsH10A+6l@elBeforS < 49ןt-07q RowNum h0 _Tion.Entire.Insert shift:=xlDowp/$Range("A" & G gN)= P{Iȟ TTG N& "&00p04^ S4DConItT0* 'appliPro&p.toe s"8 !8Drawleft aright?3E?+K1(>`o1s@ZB_ ۲?r?e? z s ActiveCell.Offset(0, 1).Select8 ' pValue = Trim(Mid(InputString, 48, 2))Call TotalsBorders#wT&5X 63(,JElseݤDrawD 'Adds left and right c b2 B!KI !55FE .If5If LineLength >= 92 Then׸;7a3vk?&ߚ }W"1159 2D?Ae38B116`= 161s39Ho.75﯆8o.+h㯉162x86k=)@185, (HS- 184)oN1, -1 Case z'For ѣother DataTypes thapzre not incl0udede above s@ions a`treated 'aP wrapp2fa message wi`informb$us ofis occurenc? tempIsH10pFsMsgBox "nRoID " &' &do0exis e converter. "_#P"It be b 2repAh$ea lw." , vbIat0,  "C Irregularity"2o#-p#0ߓT.c11A'ʢ1enI) - 1F? R23dText &'`&li PrLop $B0toBsbrĄBDq=yAl,S  r2 #FileNum0H 'R"@ a new# Pfromtfe</! 'Look  row=dicatorp('Th8npart b2pC sa:m`.hQ-A.A, butB `Eabott =e + [r@egular; along with speci]@tvCT@408, 2@?-rs2Z8ł@@AL?-wW!?-(N63?-bŲ°Qd6Cyvcz72/qSc9=߅Gc!6@z?x9{139d:Eo/+g?216`]  x8 8P(Leng ]- 184)?^a-1o w".BottomfaQa p@lain lacrossr{b offil(tЕRowNumx0AColSN0umأ' chaptmust bPaved asЀ ex  here for publicat,rr oupinue5fEVNamBox("PYou s a copyG.", "S""ȧIf  "" Default"F"sןC Workbooks.`gSheet.PastA.CutxMod̬3.QqAs n: =,Format:= _*xlNl, Dsw:="WriteRes[ReadOnly Recomded:= }, CreateBackupDWindow.CloRange("A1"/IA.0P=, D/-`B9@t*r"9a( -Bd)r0l even (pagw necessary s20 CouH P 'De6m>s how many row65@>deptDescrip770?E5@_'Stor` Departұ:Table-1 Foo(tno g;rpwP:L+ e 'Gob eJdataG'-'This0on cB'SUEEdocubZOClean#third  prqe it"QipqGQ"?s("r3- !-EEDe+lete shift:=xlUp Cells.SelectTA>HorizalAl@ignmenx$lCerVeprtic& ERigh/h '`Searc [*any#tal\ros"=BT"p/esEo@cessar q?oteo With ion. (xlEdgeBottomB$ng0: A co&nuouqhin { .!StylAxlFCF.We=0 xlT.ColorIndeBx0xlAu aticq11[_\ "" 'hMakn@Mov06blank"a0>a+ Q9Aq1FKX@!1 To 8 'GoroughRK&QAus aybLh@e same:matMo eacNh/oone8ao  '88t8S??U??NA7X;:- !igsheet3RowCpount0$8P h'Deum Ne numb?Pn`ssndata ^o3r2'R!:("A3:J3"e!c2wher#)tabStitPwigoW esT1T"'5 9i/|edߠ 17aFZa$ld@Trp'Bol!a(10^i0QtT'7i!`9PropCaIsU=TJyWfr@mFootnps`.Show'3_' 5<visibilityo r variqP bocorr`ate'imgWorkK1.V!@= FalsKCpheck)!gcDmdoEx . EnFa@lse cmdConvertToWord.Enabled = TruApplication.ScreenHUpdngTDisplayAl sRIf chkLog.Value) The(n 't append a line of @inform to the log filCall ]I0@("texts c{#excel , " & _U Sh@eets("2").Range("A5c&at Now(), varPath)'EiIfxit Sub err@orhand:#an occurs, dmessageBdoes not crashBKprogramMsgBox "You haHve !"-bCrit@l, "E""C -D( DrawB!ers(9ActiveCell.SelectWith  xlEdgeLeft) 'Ad|thin bz sidA~m&lh.LSt$ylxlti nuousWeightxlTHColorIndexBAutoc<.CZ1RA1r 11L8Totals8-s8ft888xFl8UQTopY8t|opiBLot`Xck ovu,kbB_EDςaBojckHkI:Kkkney= 2 k0 kFor X1 To 12 '!entire rlowݠa!6iBhBs l}@  433.5 '؀ze,pixels"dO b05'g+ 8PH2%= + 1>=r ED*B>Loop P42PSpn`&Yea&gr w1b+K >-A 1_:6@- 1 E`nd IfxHIf rowCounter >= my0 Then ' ""GIV.B@? blank, prepA@ا-7OV-1, 0V@wď @ -Fd $CӵDefPA numb zihn i@{g@`GmaB'` "=9m?@d down}deVm @=y s ubtraing[frHxs-DJ!+/'FAGF0gFonesst aa page6=Ak2% lv . Range( v0), "A" &"(*N|ion.E sre`>.Copy 'ih1  j9@er)!Ins!!, shifti@KIyAQ# :=xlDXKj_*aeR*learCo m2n'Ccoxpie@k9F% X`1 @12`dbordersn necessaryk g B(xlEdDges).L>Styu= xlNok?/) )1'Next X;-12c0G(0i/| cgy݄{ '~WѐB)jRQPg waa@freuŠheigh04|,@can<cau0pro ms,@vq1`0eachIndependy0M[a '`qM. hB/Ci m6u0Qaaac0ed. (Er IDn cWind.R&CsqrAH= ([F + i))}i`1r=ڱGA}B-r7] O=cxw15a m<?s ?:1 j ="Cpocw 9va \p8ply1p#qo >k\om\ 'ICic9 %%TopOOh ? -A 16dB5)51{`A/Drl~inuous '@_xtop y3hW3___2 @_)qG, "A" & tempBottomRowNum).Select i = 0 HFor Each r In ActiveWindow.Rangeion.s 'Maints row h@eight e`grity [yr7H&= R((TToPasteTo + i\))/Li&1gowCounterqM- \my+ N ext r3End IfdM=S@ 'Increases thevariable by one evstimeloop i>atesG'-?A'this s mov-odd pageaders @n tJo)nTli/if necessary eHDo Until> 424.(5 ', pixels of !BAöCell.Offset (1, 0'g= dThenKAEa Do }eL`T' !93 4 a !` spe@cial ca,awillLe l BIL >->u.M' '%J#v6 , M@rOrNoJt0+it*i>z!vfBze~r8 )V'^Sf 'i 1xsPe hb"' w@ g=+KData@False 'T^wdefault st AeOF0, 6% 'Go +r six columnHƕTruWáZrun @@d f@dGk@eVal<> """fko;]#1?2q [a. -$'Dermhs h\many!q(s mu@*be}Fdlw 0KPm64,L??I@0)0)*cG9o^ Evre.Cop0zPi!k`;e0Inser9hift:=xlDownQKQ copiedeDO0 O10ow.ClearConp'S origi~njX 11 а12 '.osapwith bor/qa 7 B#(x lEdge#)."L/Sty@= xxlN ?''1ҲX;o~o1ˁa! hasP]zra`D_a t=pFerve9OΕ)εt! Pj囇@1 96,ct0\2B*}uvviousr' '@ww1dwA 31s"0ic0""£]O3O3G3xDou/o ` -3! 7?WN?  5a & tempRowToPasteTo).Select Lion.Entire.Insert shift:=xlDown '*s it to the next page Range("A"Botto"mXNum'ClearContents 'svoriginal data zFor X = 1 To 12 ' maWrow appropripatly Borders(x lEdge`).LineStyle1xlNon|!Top# ActiveCell.Offset(0, 1N cB_]N ':S EofBVfirs(t l@9 DnewPxY1YequaliXPG~inu8ousjH Cu rr@C + 1T, ii@0(' If a AVhas@height or@Zan[default,!At mu^be preved\Each r In @Window.|Ǯ1Lr.H= Dbt(-@ i))w \Ai!%OC4ouvr"- 1myb %/A\ rgEnd If)acreasbe#dtot c!wardc6egl' '-#?--'H th0is s a:dc@fo evenbw@f`cessary7fH Initialize vaq`bleJ, L9 ls 7H_AIsSubFals!CT")= y}@p0Ox6! @]ToeOnH CuLen(V alue)@7 dTh@('Ta- micat"Ba B 0aЂ}with no descript3' . o~ "+Q"Moving `over @Tlumn, youT cFe`Efpqa sub; q True0a,@&tLbooxFn #KsayP(oo :4m-Om 'Go up !ɰDil ge1$th0dono@t have0 lXeng8s/charPDo W|hi{?4?-) @Loop+$rd3N&e w exabc 7 2 iw|aY93W %Mid./@, 7/" %&% ir`0spa F@] 7loDouId0Ind9aZ3aIseH.Sto 5.{t03futu@t7?/ $z|?/ 'Checksee2S@galo`@H, ap# ne$` O " AB\***commPed out 'cE,_S8(ue?"qarch`?P ?2jxN7 (|t(<P<Secon R:s.E"1 8/qw2/!F!¯L },z~A@۝ճfAvpns8 igrit ReplId毈c O_b@_ w_ _ Q S%o =)Do OFD-ǵ.Select  hRange(ActiveCell.Offset(0, 0), 010)ion.EntireRow.Insert shift:=xlD own 'a new row"A" & tempUToCoa`nueOnV@alue =FirstLeveBl&" - #d" 'Adds the c.d ows(@%:NAutoFi IfmHeightW9 Then Am Lo Replaced%End IfByy IVSe@MdVDU2i0x + 1 ,b2_2)ȟ?]H=h-C>@m]Counter=- 2 'Dec reasetoxtalɀ KCm.y@E+InCElse 'PLoopiasame way as abov@ithoutBf!!j parZMi&d E, K4)@"*" AQ(IsT= FaC t_Do Ul y <> U"+B<h`-a߁!%O (=)| ?O/ߞja'MPaint`s"Fhto ensuDre`5ge egrityNZ6($A+s! _C/u?-.-:#L?& QPޜ!$Q=( i @oNKfNO- 1NNK/O0bq/OowSS] 'CheckPo se2fNlinpP sub or Yaa Numps3NxN '*** comme`d UIsS@QR O{X2B_.Thir&s 1$v3%2~P~3~3~|?'?'/v2 &&\z%I^IOn1)UP 'ccywcolumDh20*+hmasc!1g`extra ,s of blank formatted c0`s bel`4gra{zS Ld @l` kq3r vant datasA')s imporRtlaqw wp` fr`om ex`1ro@ word.c 09 9vT () 'AlltPtwoH!EpropПcp#CVarTyp*61vbStringґ/JebE< ` vbPB C0 9 n Qtxn=Len~DePmT,@lengthEscinsid9 ' FWi1 To 'Goe`rough2To0[characqat a tim?La?ue, i )P "-"_0PO|r Q@'(ski,Aiit wi1(hrow and error! ElseT'If there is a parensor dash,>n next worded@s to bpn@ Caps.`Proper case does notPis, so proceduwas@ built^get arouthatcfirstString = Mid(ActiveCell.Value, 1, i) 'The star8t o|unhtilEees econd4UCi(7(i + 41);):R lettafa7thir632(txtLen - remhainFsBHiConcatenv@IthreJGzbS[@ad& JN&|E6E{If@characRToCheck"(" Myn i'S|$[i[\[_[,X_[Z['Zer!_ZXZ_WFW." A_pi < y?Yeriodlast%ne*c3W 6s {W?'O6 <> " +!``4@1K 5,5cc95?c55 "bpk-:Ni3qSub Pri vn cmdAvertToW0_Click(B)On E PGoToshl0er2 d occurs g@uqe S'Decl`W variablessDim wdApp As a.aatio4l#Doc&ump'CpaIntegedMc'Set}kiq ographic img 2.Visi@ uxTruKFa* = 0SSHShe("r2").Selecpt 'G``# a sCRange("A1", $Offsetr(0) ll rvant< c 0.Copy ,pieqsedF`ileID@8.GetOpenXnam Q s@,*.doc , ""  (er"d' LBc'can ac* instea"dan pua lp4lMsgBox "You led" 8?e XJ 'R autom) com0(c,&, = Cre6Objp("1-"@(%1A05Q 9s W sP 3.s.(39p"35f J nbyke8 usU3 ''Makeapp9 vc1. Ip(uld?v ref dhidde'A9 ppPe}howe@b0) 1posB9H:  rdVS4.N+w2bP@e 'bsDdata fromS: 2ex*"in< d)A@19TR(1<RightPaddM=s(.InchesToPos(0.026' 1mu@man@4ly p tA f``optim6 .dability " & _ !A"Plefoll0SOP`I`press OK whpdoneBvbOKOnlyCAdd ;mRows.AllowBreakAcrossPages = False  $With wdApp.Selectionas(1)Rt.Borders(wdBottom).LineStylekwd SinglwCqH ^bDistanceFromMCi Text9AlwaysInntTru=0SurroundHeae  @FooterJxoinR; `op'0~Lefc'RighShadowCEnableFirstInS  GOOpAs 'Sets $ defau0lt oCK.DC!hWid=فB050pC ColowdBAuati.c;#A`xveDocument .T7!z.Cell(1, 1).RangeǁMove+Unit:=wdRow, C@h4@+ +fE few rows of%b.t a@7repea#1m on all ps.vFors|O)4Q,Q .B0]|Bottom).q!$Sty*qS=clb0ddefa. b7sØ (TQx DistanceF1<C i; AlwayxsInA @ .Surrpsd9QqercFoop`J`S aK. op0? Z0o 'This put3Q` aga\in01*i}h=~n*q= ? ha q .EnwFa,|In)  O r//H.lyTop4E0 M?g' Aώ1_Y_5o``Mk /e.8nOQons>SQ$R.D@EFE?1kq050p`H#`xЫDaЯiFW&e PgraphcBe e2ybAfF_2.4IndP's L-0.0r+>o14Oa4Oa1% p5mSelection.Rows.HeadingFormat = True 'Sets the first few r as h`ers for each page wdApp.MoveDown Unit:=wdLine, Coun"18 'CcreatePDFMsgBox("Do you want to " a .pdf le ofis report?", vbYesNo, "CQ,?")5If%6 Then ' user clicks yeo mak>qfil]atempAvePrint= 'Stor)original default pva va0riab4*= "AcrobOWri?"C?AtA9LHH4pp AaŽ6Out F?name:=B"@\RangwdAllDocument, I@E:= _  CoL Copies:=1, P@Typ ,ManualDuplex:=Fals $ll:=, @BackgrdE To8T.D ZoomColumn:=0@,o PaperWidthQD Heigh@0 'ByRUA͡Ϧ'Res}OCS E@('`t0noth`c ndx If|A>aJDialogs(wd#-SaveAs).Show@W Cnwords~a sd Q' oc.C@lose s`chSH6 '" W O Fu`Pverg xNket kQuitm 6 E,e img 2.Visi  CheckI!`''DimaPath As StZg@BhisAbook.aAhkLog.Vald̆ced, data appended)OC>G !Call In ` ("t ex@ con7cFC" & B("A6")&ᇅ*" ANow()`anr`%E\ e0rrorݠ> 0g"s occur`isplaybnumb7c B & b"(s)# 'wh !ߡ!) d$Y~ { H u"m ~a, eff` aranc4we %.Bw%wE Oaed~" m~~ aQ5w}Go Again").pvbNob{"cmdExit_C|+~dox&om@cca'ep@zocedurQx're(J+ bf.it'P orNybumQI1geru= Free ' n&X#O ]!"a n^a#r 'cy> if Ps9n't `7st3 ,%' w iaq\r;Ze bAv-:  7D0sijtsE(BOn #PGoToc&e(8HanCs[s gouo* # S1w\yyy>5x7@Xzq7F{|a 0S2{c2wi0ndic!tidme[d Ro%('!prTssg~n`"0~s Sd/{({yB'Dw3'rvQim9o1![;'N8(SXs  vRNDontc100]Ɣ3>'F0:AccQq#Get18Filename("Text Files,*.txt", , _  "Deposiunds source f")J'If the user clicks cancel don't8row and errorjhu = False Th en|MsgBox "YouOled opening a repquir7i@mgWork$8.Visiblea$chkLogP.EnadTrueEE'kautomation commels#App}.ScreenUpdUoDisplayA`lertsT'VariW de0clar5Dim InputStrAs  !Num InptegecA\LineLengthTemp 14@CO@qBFor.A#G G'Cleans›secosheet fG Windows(A).ActivatDx:"S s("2").SelectCellsNC .D te shift:=xlUp`ber=cG"@"G'Fix Column Widthȝ/A:A/ 45.14 B:B 7.2"9PC:CN2.D86PD:DN3Q E:EN5SF:FN2.57G:LN10 '>;Wrap= a 'Make#Ofirste"3w tp B"HorizontalAlign@t4xlRight 'aAA=s B-L C" Cezr ', C-F' '`1(-"RangĀA14:L17-Dpy opi!head@froms#r m'Past? into  " Special xlAll'bmAhe"3o?o elimin` unnecessary spacRA"1: `H = 8.253:3`q16.D154 &, ¬'R4l 5ar+s7DataTyp!sTrim (Mid(he, 1, 4)) 'pLookbWVicat}do U ntil "---Na m2 6{ " nd \/ / / / "Cou?= 1o ""p+a.es- G& Ca ' Of chars each ǒ%]QpriX{ñB"H 1 artBRlev@7OЈHQP7 9t-ng, 6-3)DWhichH[(aE 2`O B O O J 2_1I 3O !;B O O `Emp3O !I 4O _B O O K eE`1If 1isHQID SCVRcSo;isDooe.F.Bol;-߄ӉS áValubcC?5zCallnFvϒ'CoaPr rsH} |8R(ˍ k)&:" Lef/ _$Y 1 To :qXu1DrawBorxj eCell.Offset(0, 1).Select Next'pageCo@unt = +@ ActivRowHeigh-1, -12Case "H 2",34" 'Header Linew tempW`hichH1g#H1& "& Trim(Mid(InputString, 6, 43T))92 9292 A9333Up444End isCT ypeID@FaDlsisS D -2, 0-T_Ad`HValuf_O]Call ConvertT 'applies Prop`zCvo the s" c@3HIf :R(-":" ThenOHorizontalAlignmeBxlLefMIf l.hdFB'"C**U 'Data to fol8low3(bTrue&KPШBPK_ LLs#EVAQ?? !?*mP/p8isHP;is?S_ -D`-ЀI`-O--ߏ-QSZ_ v_S?)o#"U!?SSSZ DrawBor@s0/_Y pccce1NcK 3W3ov333ob3AZ@Dcq92OA5Qt))tXtk? "No Year-?%?%2%D _7/_ _ S `2(I<-Z-O~ O"/n3, LLL 3CLo"ooo#o#b:64o#4tText 'C onverapplies Proper Case to the select cell Call DrawBordersJActiveC.Offset(0, 1).S^3If DataType = "D**" Then-eValu6Trim(Mid(InputString, 66, 3))$PElse191nd If2 jf^73, 25^>("0.00p"-"StE]{Pd9 U2Q_22aq9?22p5).ERowCounter3C1, -7 `0 c!"S@'Totalf`ollowS7i$sDIDTr@;For X@1 To 3 3?e /(?ˡN'page7"7g+ `;He0ight-37;9S"/S?/#TempLina2* e@v& "& uu7, 4umx {( /2mi??m##sQ1??252|S??Y?s,=e\.q.5qߟ Qr@K1h KK%?6p6@n4sU wo#,OM?m? OOp_x./  8p/ ///UW?8gg WW/TB?3vn applies Proper Case to the select cell  If Ac tiveCD.Value = "0.00" Th\enln-"EEnd IfCall DrawBorders%Offset@(0, 5)dDataRowCo unter!1, -7).SisCTypeIDFalseH#S#D! =(0'O"T** ", "G 'Total li&nT8is%TrۍFor X@%1 To 12&oE 1[rNext!'pagne@-+IHpeigh'1>2'^ǡ/ TempL`9~-"4z);d; .}; ;;w;樄;,5& " & Trim(Mid(InputString, 6, 43)) #X2,ConvertT`] '8EQ ?wV?? ^w_w_wWa=BRQI($, 1);-}O7W))7) ]O1G1/ktRMatchTtoH0 !'6UsJ*:UmU7 I[LL8, 25)) 2=2 "Z&_)"Bs6 ' ffE2Kş????{26_2 22v2gr732 pԹOOOK2232V22K 6 99V 4oche select cell  If ActiveC.Value = "0.00" Thentv-"I@End IfCall TotalsBorders+Offset(0, 5)mDataRowC@ounter#1, -7).SAFor X1qX 12lDrawkm1IpNext!OLA:162l'&'pageXB+ɚaHeigh@& %3G%R tempMatchTtoHUCase(1J) Mid , 6, 1)",A@P8, (LenA $ - 7)%EXlseT,$76$rr#` !+ j3H4H4/!. v- 3 pH3 seH v-2 1pH1 Am' mO& ":)9k999 9~9a 9 9m9 9isCTypeID@BF H isSoisDoos 0ke*Ug`> 638 A F$846.5׿c-@m0cI #9H7XyD`q''_P`+3-H_PExist"s!Truk ?m#$0&1old&= -߇߇A&J<*4& Q&  5 -d꨿rSWith!DIion.Ĩ(xlEdgeBottom) 'Add a thinD bb toe side "-eܤ4edSPvertTeï%YPϒQ'H>j7j  o bBb 4 !4 ActiveCell.Value = tempH2 & " - Continued" ' !CallJve@rtTextLFor Y1 To 2$P(X(3(,|DrawBorders.Offset(0, 1).Selec\3NlpageCoun&t[+ 7RowHeigh2O`1, -3OME nd IfIfCx3 <> "" ThenM$ 3?M???"?3?C4CC4C3??! ?C )y?)???C??$@ExistsTr@?@A13߹)9i$5??U0Uߊ.`zO ~` oai2oi"?AEPE5Line Input #FileNumString 'Read a new lPfromtyf  DataTypQTrim`(Mid(\, 4)) 'Look f0row indicatora!}er.3+ + oopH1@%I o With ion.(xlEdgeBottom AdAthin b to the r1 side o~c7 .Stylɱxldou WxlT.ColorIndexRAuP atic W [%[<J_P-Do Ul X""-qO)O)O)O)5O)ngO) O)@+}8&'    Range("H5"g=2@ `/  3, 25))"<d7)//!/*a* ujt DoG /H 0)a66Doub`3SouyI"PQ:L2>O@ 1?3pTop)@ Ǒ5)YcWqR` bV"!!5o!0000 /;e/OeOeL3 0l1?6Rp, ?column 1\ va Y2tring, 2905)) 'Look for column 2 value Col3 = Trim(Mid(InputStr5534O81O4OIf 1R"0.00" Then-"End If :2$:E:ơtE:Al! ?ActiveCell.Offset(0, 1).Selectc= VAez Call DrawBordersv2u=3_.4_/H .`-4=ElsPR04,z p1Range("A1", / S4)E '#Ts LrUvan8t cYHM 'Ch the visibility a`o`r`riables tocorr@` stat(!im gWork`8.V le``Fa%ACheckITriApplication.ScreenUpd ng WDisplayAlerts.chkL8og.ta  't appea line of inm log filLA{ I("t(extbs nv edex2 " & _gSheets(B"2").A3`& " at& Now(),6Path)  e 'Declar@@a=@Dim wd`2 As ObjFDocerrorCounterIgerC S*= 0'#- 'Gog(main s'O2[}=0O2O2D2A(Copy 'PiP2s` 85#F ID'I,GetOc$namP 0gs ocPρisplay1s3{ʢ&c` (s)wh R#f!cA5rd$qich "m@a% effP ara0u}%.ooE Oaedix0+Sub  2 P4dler8:sqan sa thp doPs crash program"Qh;鵃! C0lglU $ Qv\ cmdE _C!{() 'G?1*3On #GoTo3 g@0s0#SDim;8As St|g 'Declars Don\# Fil,#f6Nam'F )+ sn@ARbBAppN*.GetOpen ("Text s,*.txt[, _/"a- T8l Receipts, hOutksburplus or Deficit"D\ AR11 -& by Source/E Fun onRAHuser cApancel@ don't'r!j`](c4Or%+K`vc4oP 01requir0)f0m!o$ C A:18Et 'Raautos0mme "qA"ScreenUpЁ =DVAWts 'VariD decla3>AKInpu~tJK !0u1Integer;;2 LineLength/$TempaS 6H"B }A#5|p!Column1rA:AȇWr ap= 'MakeLfirst ! w tP@#WFB:D@Horiz alAl(ignp$txlCe@rsa;5 Range("B11:C1񛡫rCP)tA43:D.4 v8:8D50 z52p{5p7B@u96:D1>1! 59Right'1ߗ/*f*,+9'Rea l4 fromL#LwDataTypim(Mid(bS, 4, 5)) 'LX$oY=o Until "20(S1o m1o d o lttq1 -oat`ECYs3Tr, 6 8, 21Storer}Fis CY rwavPo9obPo   Sz= OngOk}Go=O&/e0Y%NDiff = Trim(Mid(InputString, 68, 21)) 'Store the Fiscal CY difference  tempP$YD2 =91 PT^Do UntilZ2Y= "20"5 Line  #FileNum 'Read a lfromtextf%0LoopwCurtYearyL4))ActiveCell.Offset(-F0).Valu e#"" & 2"1" - 1$E BYReceipts0, ; P K<Outlay  `WCY6  G'Begin"rM seyon 2xFreeCOpen@lenameAR1 ForDAs2 Range("A43").S|el@л@3DataTypaRsH4, @[ 'ck f@row indica`Fw( tt dtA~_+_ k~'6l outb=tabl{FybyUCase(Left(s)1@i55))j) _'L`&Len )a& "#o |s67'2]9 A3113#MgGh7H!BBJB!, B_! _!_!_!p_! _! (#b_!r@_!m?J1hRowTitlUA AU A;g$A8et 80E, If Ripght(!Mq:" The8q @,+I WEnd If">//>__ _ 2_____p?`'[?`~p?`,>p>?`_!q_!~ÐË_!_! _!!A_!_!_!q6 :T?Z_! ?`Op_!|_!p_!|?`?`(_!a_!_! ( _!_! ?_! 2_!_!2, Len(Trim(Mid(InputString, 10, 55))) - 1& "#" ActiveCell.O@ffset(^1).Value = 67, 2k2G9l G3G113H1, 0).Selec.t\a~" " & tempRowTitle7Line  #FileN um 'Re@ad a lfromtextf[UCase(Left\„_sbߜed-!IDB lKqGetOpennamX Word s,*.doc", , " Par8t O0RumeP Converɀ")IfbFalse Then 'pcanA is ck!@ inst)of an actu"V໷ MsgBox "You cancelled" |Else 'the automation@ comme`sXhSet wdApp = CreateObject("Word".0lic")$ '-s Xvariable tocurren@t versmof ?kDocks. uts.Open(FileID gdoc 3f name oed bya?user 6'MakVpph visib. I would have prpefer.was hidden.until!rk pleted, howe0beleiA.this not pos@' VNTrueLgAKFRActyS.NHK |.S$ on.MoveDown Unit:=wdLine, Co@6:=50[PastÇdata from sh2e2 @Sex qinw3 [Ts(1)-[ Rows.A llowBkAcrZPages9LFa[WholeStory ParagraphFor.,@ ps.Clear#nDefault@+InchesToPo@&s(0.5)Add Posi !:= 2.850), _k Alxignt!CLeft, Lea8derBDotYMFind#"$ting;"ReplaceWithH\AAO.Text`,"n#aa.)^t1ward uB WBwdAskP!SbMatchCa@<= zU WildcbS dsLi|\!Á End A4K DExecu`1_LDbi+cP DF` ("Do y wa@ՀC a .pdf”report?", vbYesNo, "?"LpIf  Then '@!A c`ks ymak _a+/tempPr?er -['IQhqriginal dDm a {"Sbat @ Writer" ru. Out am~:="RancaEIf  Dialogs(,wdqSpAs- newadA-a r<.d= 'ioPZrspch,'! x'ClZ* Fu`Q`*Т06Kp'-?Nong88ɸsQuit1??0E?{Pa@x=0Piskbook.1qShkLog.ValueQ3SckdYapdǠk)Call 1Inf˜p("Ft~-cond#b  " & G("A6") &F QA1Now()0caNr 0s oc`, disАnumbk3t&` (s)SPwhiPݢli9ch "may o r a( effORڱnc0jfe.vvE Oe9qESs("r1c 'Go bYmain pguB.Sh`U cmdRunMavUnload MEx7SubC9 Adler6:D'DDan  messp in place of a halting the progr am 'MsgBox "Youve an error!", vbCritical, "E*" End Sub P@rivate cmdSchedule3_Click()cOn A< GoTo]handler5 'Ir occurs go t,MvarPath = ThisWorkbook. chkLog.E@nabledFpalse 9VPalue"rT8henecked,notation isP crezdRindtimAd durof(cess Call UInform(" 3 file convers? starthat " & Now()ԃI!'Disysrelevan@t imagnBC imgT@4.VisiPI'Is w[ limiBn; unnissary spRq>"1:QH= 33.75gU MrT H,U'R glR ra(xQhDataTypÔim(Mid(Y, 1, 3)) 'LpK@KoIYo Unti`l EOFLC1spPend1b  "2"1m@ H 0ooR#O.U`" Ob@:Ҍs Gu@o0k @XUni"sPs4su:TOffset( 0?_Ұp DepD*Housb`Urb@Developwd+S?84?;?b6??? ???Ą?e???c1?,??Ėo??S 4???Đ???g5??2ę"? +!h4? V ?ė9QҘ??ą>Sw- FejIaSeitQlH@eld as0Uvest2s n2}'MsgBox "You cancelled opening a requirHfil e" im gWork5.Visible = FalseHchkLog.EnaTru%m`C#` ['Past? int>om A" Special xlAll'bWAx@row he(of  ?o e liminw unnecessary spacHybR|"1:`H = 33.75_,00 &, 'R@0l 0aQЧ DataTypwTrim (Mid(ȳ, 1, 4)) 'Look—!aor o Until = "---" p oo k?'w*dEOFr`Qep$1A(e@d'QE { S: Case 'T7four chars Peach !]FmpriXgq1aB"J 1k ~H&?meac.Valu'3z, 6p3))_slldnv`RXh'CoaBPrrAqs }X@]1 To 89CaDrawBor NlOffset(04/|yN c9-5E#H"IpMHq"" @#no5t>ngevWhichHE 2`O B O O J 2O 1I 3O !;B O O [mp3O !I 4O _B O O K 8EJIf 1,ŕ@"q" &c0%69Y@/A/AUs/A/A/AOŒ&?>8OOC**hFollows Dataekg `_/x_/Iy xxo.6.D.- W^ PFA?P !!8 TG}5 220)))a4k4, 2 G,8 ;3 = }@108/B0* U-4pu=T=pGB>Total_ _ _1_HKK eV?curr! s*a+g W=c.(s.0(qIDytU  o`pbyUus- 'Makeapp visi7. I would have prefer"was hidden6il rk 1pleted, howe@b*@` not posg?.V +True`*5.N,?p6ɑ/Pa' 'b3dQSr< 2Q!Lex*inwq2![?9Whoblnory r@agraphmat.TabStops.ClearAllp.Default vIn0 outg>i@ts purp=eQ2 s+ 'betwea!6numb andRJ7l$sIc "Vct solut1V0DmesHsag!x 0Fo.w5RQPadd 1102&'9hmust mDanjly  np@tBtro0ptim@m@fda@bility "0 & _ !"PÐ>lfollqSOPЁYsPK wtdone@zvbOKOnl~yzAd qQ] Rows.DowBP kAcrXPs/3{ _=Ss%_ fwdųĊwda6bS~l_qo!.DistQFѰC;iTAlwaysInG7haSdH3= F .1Foo0G[~ .JoinBorders = True <.DistanceFromTo pX0 RLeft$TBottom$,RighXShadowLFalsEnableFirstPageInSectionOthe rs$ApplyToAll8sEnd W8ith  w"d0.Op`s @'Sets Q default fo O.DC%LineStyle AwdFSinglQWidthB050pt`Color BAuatic @ CBArveDocument.Tzs(1).Ce@ll(1, Range.Sel}C@.MoveUnit:=wdRow, Coun@4^C_f few rows ofdt# axrep$eaCjm @all pL4#@s.HeadeFormaϬ A1Down ;1M WholqEoryaM`-i8re "; ' s xn belyY .InsertBreak Type5o"'Ctes a n2-"1go`0to i,U 'cb PDFWMsgBox("Do you wpant C .pdf fi k@is ?ort?", vbYesNo, " ?") If ) Then ' @#u@ cli cks yma~kD tempfPrinteq'Stor he or@iginal&pDa vari\ CI "AcrobYWri`"# ak$w `icon.AOut F@1namC" 0B"E#@%, I#:= _ a'wdB $Co'ntjpies:=@O  /ARD , ManualDupldexB :=A llat A, B ackgrd:=#ToA8!ZoomXumn:=0, 6G Paper]r Heq{ 'ER@1R#_O#1*+'Reso)12+E =' 0C0ccuri splaynu|mbpl3_ p &@(s) oQPwh`XSmWQjd ch F "mP a( effr araP˕e..BwwE O} "; qS@ub MvY cmd§(A_Cqy(DOn GoTo; dler4|anCs go(2 c SDimqw0As SteT311cc1d@9D_3V313yЕotwA4S/indx P>timeҗduroU' proces#_6n(" A6s7 0rt`&2B1 '+.cSrvќimQq !>imgG+3.Visi0'Is ,{CFZDon4bFMfN@'F.Acc0`'ϒWqcpplication.GetOpenFilename("Text 8s,*.txt", , _  "Table A - Receipts By Source CategorHies")p'If the u ser cks cancel don'trow and er8ror54 = False ThenMsgBox "YouAOled oing a requirf"7imgWork3.Visih0chkLog.Enxd@TrujeEE'kautom cohmmels#AScreenUDisplayAler0'VarideclarIDim In@putStrHAs C]Num InsecA\LineLengthTemp߁ 1Aw@C Fovr.A#G G'@Cleans›secoshee8t fG Wi@ndows(A).Activ"S s("4").SelectCellsNC D te shift:=xlUp`ber=G"@Fon@t.Size6G'Fix Column Wi8dthA:A  78.57fB:BnTC:CN11.14 Ra/"1:1`Height15.75  c0-Wrap= au 'M ak Atfirsts!w t+p cH`z+al`Align@z!xlCebr 'a@b, ! Rb' C 'jR!'!RangA24:C25b0dpyopA!headfromdC#bd q_'Pa st+8 int>onq A" Special xlAll'B[h#Goc̄`o elimin!z unnssary spacdVQ9. Q!aisCType\IDUGt Hm!"v234pageChounaP0G e'3<@b ,'Rp 0rl\ a21r7Data Trim(Mid((d, 1, 4)) 'Look"VU|Do Until EOFWN1speZ:~ Ѐ 'p1>f chars on epach "]zp"& Lefx_$AYCp To :qXu/4DrawBor`(j Offset(n0a>Nʛ' s+ _% n-3 d2d3c4oengC_ aq tempH1 "=& "& Trim(Mid(InputString, 7, 43)) Case 2>Kl22 Ar3U r3r3Br4 949499End S elect9isCTypeID6FalseS#D ActiveCell.Offset(-2, 0).Y*'pageCount*- HRowHe(igh;TLi ne Valu=M Call ConvertText ' applies Proper to the sBr c@NiIf R?(M., 1)@/":" ThenSAHorizontalAl ignme^xlLefXMIf 7+7bhFFB'"C**" ' Data (fopllowS'aTrue%?JbOJ ?K?Ks#EvAQ??4@S>3isisH isXDXsW,W-Wl#"? QQQ{DrawBorders.Y/ ^`a`eaL`K [W1/v11ob1qX@ca0,n4_Q5f2))1嶭59)ϭ#"Y,~~ iO _(_}_O.B.68, 25<<< T3<OOA?&4&1, -2ϪC[SB[ToГos[.o*For X`1 To ?"" N`oo~ 3M7}OsQ/x `E"EGOJ6666Op9 iveCell.Value = Trim(Mid(InputString, 7, 43)) Call ConvertText ' applies Proper Case to the select c]End IfisCTypeIDFalse&H#&STru&D&o"T**" 'Total lin'If is(; ThendFor Xx1 To 3DrawBordersActOffset(0, 1).Sh N|W'pageCount-+ RowHe0ight'1, -3['B^K|\^TempL@r1H#B-RA6(ET@"-"pF!& & "#:"&E" "@ ^x{t.MatchTtoH@.aW'Jp2&_pA`(_pd[p&H68, 25F6Bs:{WTPqaPPP"Pl P o(OZT o(Lo(i}o(e'oo"pooa?_!o2/oW 2!yz  r M 638 AVisC Then vG ?46.5+/ActiveCell.Offset(-1,p 0).1t@empRow61p"ValuiC50, 1'52%g53<5-25ExistsTrMEBRS`FD DIfold=- HjyHeigh u <4k/I.07ϚAݵFor X@b1` To 3A ">"PBD& " - d,ed"!CallvertTA7JY J2t >OaDrawdO ?2ߡp43%3+?K =tC2CC2 C ![!O!!:j!ь!oej _@?  b!b }!3!f !3![!!|!!!j!!ow?J F!, 2!b!4!f! be4!!Q!p!? !O!!!j!!!* !N 2!Cj` D |$1OI b+ o     S###TO O I Nffset(1, -2).Select ' End If `P VLine Input #Fil0eNum String 'Read a new lZfrom textf1  ODataType = Trim (Mid(M, ]4)) 'Look for row indicatorLp F(XS1 To 3 =Call DrawBordersWith ion.(xlEdgeB ottomFAdqthin b" to the right si de ofce,ll 1B.Styl|xlContinuouFWe*= xlT8&ColorIndexyxlAuRatic s7KActiveC@).O0@]NJ; NoGR -1 'Range(@"A1", R 0)E '^s hrvant APcE!'ChYvisibilit(y aocr variableBsgcorr@ stateim gWork3.VeFals CheckTruHApplScreenUpda@Ł DisplayAlertsp G)If chkLog.ValùThe(n 't# ahppe?aiJnfmon log Oqb I ("vbs co$nv edex2q r" & _gFSheets("4"). A3`& " at& Now(),6PathN) Ie 'Declare=Dim wd`2 As Obj"#DocerrorCounterIge J= 0!#Z 'GoPmas!#[d _dwDdAPCopy 'iAs¿8g(j#AID`OIXGetOIanam`x`dd s,*.doc z, "$*ume`vEr"8S! k VcanIi@LgkinstWan actual,VMsgBox "You Pled"Ev 6'aaġ`comceȉSetD= CrecE("!.""π`)Eejcu s/N N= .%s.,~(#i @,)av A1 o2$bybusT G'Ma\kePAI Rle. I would have prefer@"L was h`idden1i2lrkppleted, howe@b&e not po~spZ2:hWOw?u)3d.N')'0Pa$ 'gbsXa "8 2!M|'!6Whol4eS@y?5Paragraph!S.Tabps.ClearAnt.Defaultd0InchesToPoinpV0.5XS#toPos$itp :=<5.70Y]Align9>:=P0 Le ft, L;erq"a0Dot7m FSg/%Resce7A01Wnd3a.T"#CAYE^t]@ ward+"&Wwda As>kMatchCas~| .R'FOGWildc0 хBS@odsLi C=~ _T0*  yagnd.Execute "*0_E %P(`'t gp] P?osJso it pHC`J ou*KipurJeQ @Qspacp'betwrUnumb "AD[usV n ac10olu5he messagex Row(MRPadd0 3?02?9rmu@st mantla dd pTNtoptimw9pda3  "PPK)followSOPлd"s`K wdoneЂvbOKOnlyP"G5 Rows.0!owBBkAcrcP{`' (4vOS{Ms@#"25wNdT*wdSlX1" tQFiFwaysInЅmS ;HW@ .SurroundFooter = False .JoinBorder"sJTruHDistanceFromTopP0! %Left &Bottom (RighPShadow"qEnableFirstPageInSectionxOthers App lyToAl l4sEnd pWith  Dwd*.OpVs 'Sets I default o ..DC!LineStyle;wdFSin glzWidthB050pt!Colowd BAuxatic/ ;C+a 29s0qd ($.Cl ose schge# 'W3A' FPenvpMerz{`H~Ns49!I^Quitv ;0Ag`Pa!}This@ kbpook.1GqNhkLog.ValuAq.Nchecked, data @Tappended ';C1sPInfpz("text|coR3Cs " & "C("A6") &< LNow()p]athx\'! 5e0r‚ > 0gccurisplaybnumb0e3{mCi &` (0s) owh_ R#f!crd4 9ch "mPa% effP ara]%.ooE OC " ix0+Sub 2 P4dler4:Yqansa mess pdA crash programӳ"Y}h;! C0lglU $ Qv\B cmdrJ_CA{(D"On aCGoTo4 7c~ go/ # SDimy7As Sti:?989c8d@J::-1f;n(R" JY>s? rt`/:Jy&]c'7cYrvQim1$q EimgAN47.V8isi 'Is 5љCMr0s DonQhSTN'F,Acc0`'͒W1iHGetO U10aRs,*.txt., #_ "Table J - Yearend Closing Statement Summary")'If the user clicks cancel don't8row aerrorjhFilename = False ThenMsgBox "YouOled opena @requirfG"7imgWork$7.Visia$chkLog.End@PTrueEE'kautomation com1ces#App}.ScreenUpd>DisplayAlerts0 'Varide0clar5Dim InputStrAsف !Num InptegeA\LineLengthTemp G14@C5O@q For.A#@(1G G'Cleans!›secosheet fG Windows(A).ActivS s("7").SelectCells'NC .D te shift:=0xlUp7ber=G"@Font.Siz10GG'Fix Column WidthH@7A:A6 @`40.86 B:Fn17.71A&#Wra`pTextAk 'Make7fiXrstiBw tr Horiz!alAlignB= xlLeft 'aq!s Ap u R8igh B-nF ' H1 'm!Range("A40:F4Cop(y 'i!head`from"Z#Z U'Past? intog !" Special -All'Pahe(o>o e liminp u(nnes sXpacARav",1:`H = 26.35_e]E34 &, 'R4 a lu b5aV*Tit`= Tri@m(Mid(ȱ,D 4@0)) Vook!&icat⢰o Until E "CHAPTERA1 ng 1'Loo8Om1dt{D{De I"z"2p`)Q,qdataBdeY.ValuYC0CallZnvp~Q@aу@ visi t. I would have prefer !was hid zwork 1ple (, howe@~b`)`z@` @U 8posb;.V |uxB dC.N,?&pDy.Pa' '+b3d 2oshe`!2Q!ex*in) ?9T"J(Or! 1!-'t gth pk so it2B,=outiP)pureQ`` spac+ 'betwe`8 numba]`l5p@!: -crt luaB'mIqgex o^wlSWJRPadd InchesToPos(0.028D9?must ma"nAly @ p@@! "g fobr2tim@D@=dability0 `" & _ 1"PleaCfollow2SOP X0sdK wKdonePvbO`KOnlyQ  HQMRows.ABP kAc"r/Pag= "R .w(?0%f  MoveE0Unit:=wd , bo8:=4fiafirfew r0 g2Bep`r5m{1lp/ 2Hp`Formaty"Tr?a} 0 BBs@ occurCi splayBnumbof )MsgBox&@, (s)C@UDwhcreKn6g b#dTchbu!mor Q effect" a`7arance ` ."&Bb(5, "E!! Oed"[)I+jx`^Sub  bqdler7f: ALan"c sG+a messa gkh;does! crashprogramc d,"You h   !Crit0ical%  a_VBA_PROJECT/dir frmMain ~Q~f/echkZ33txtZ33P chkZ34_Change]chkZ34txtZ34P chkZ35_ChangechkZ35txtZ35P chkZ36_ChangechkZ36txtZ36P chkZ37_ChangeUchkZ37txtZ37P chkZ38_ChangechkZ38txtZ38P chkZ39_ChangechkZ39txtZ39P chkZ40_ChangechkZ40txtZ40P chkZ41_Change*chkZ41txtZ41P chkZ42_ChangechkZ42txtZ42P chkZ43_ChangezchkZ43txtZ43P chkZ44_Change"chkZ44txtZ44P chkZ46_ChangechkZ46txtZ46P chkZ52_ChangechkZ52̽txtZ52 Q chkZ54_ChangefchkZ54νtxtZ54 Q chkZ55_ChangechkZ55ϽtxtZ55 Q chkZ60_Change ~chkZ60txtZ60,Q chkZ61_Change~chkZ61txtZ61AtxtZ61B chkZ62_ChangeZchkZ62txtZ62AtxtZ62BtxtZ62C chkZ63_ChangechkZ63txtZ63/Q chkZ64_ChangechkZ64txtZ640Q chkZ66_ChangechkZ66txtZ662Q chkZ68_ChangeJchkZ68txtZ684Q chkZ70_ChangegchkZ70txtZ70QQ chkZ72_ChangeYchkZ72txtZ72SQ chkZ82_ChangecCchkZ82;txtZ82xQ chkZ83_Change4chkZ83<txtZ83A!txtZ83B! chkZ84_Change25chkZ84=txtZ84zQ cmdDone_Clickt\Sheets Cells SelectionZDeletexshiftxlUp NumberFormatRRange  MergeCellsکBordersC" xlEdgeToph LineStylew xlContinuous[Weight1xlThick ColorIndex xlAutomatic@ xlEdgeBottomxlThinw ActiveCellFontUBoldSizeRowsU RowHeightCopyƿ PasteSpecialKF1$]F2%]F3&]F4']OffsetReplacef EntireRowchkZ6chkZ7chkZ8chkZ9chkZ128chkZ139chkZ14:chkZ15;chkZ16<chkZ17=chkZ18>chkZ19?chkZ20[chkZ26achkZ29dchkZ45chkZ47chkZ48chkZ49chkZ50ʽchkZ51˽chkZ53ͽchkZ56нchkZ57ѽchkZ58ҽchkZ59ӽchkZ65chkZ67chkZ69chkZ71chkZ73chkZ74chkZ75chkZ76chkZ77chkZ78chkZ79chkZ809chkZ81:chkZ85>chkZ86?chkZ87@chkZ88AchkZ89BchkZ90^chkZ91_chkZ92`chkZ93achkZ94bchkZ95cchkZ96dchkZ97echkZ98fchkZ99gendRowRowHorizontalAlignmentS@xlLeft9xlCenter cmdExit_ClickcancelFootnotes\MsgBoxR vbOKCancelx?vbOK%cmdReset_ClickAresetFootnotes|UserForm_ClickSheet6frmMainXcmdConvertToExcel_Click5varPathPath2chkLogvEnabled۪LogInformation}Now% imgWorking1 imgCheck1oFile%ActiveWorkbookFilenamej Application*GetOpenFilename]?Table1FilenameScreenUpdating!  DisplayAlerts InputStringcFileNum# LineLengthBTempLineҩFileNum1 .WindowsdActivate|Columnsp9 ColumnWidthWrapText}xlRighte xlPasteAlluDataType%?Trim@EOFisTota  *\G{000204EF-0000-0000-C000-000000000046}#4.1#9#C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA7\VBE7.DLL#Visual Basic For Applications*\G{00020813-0000-0000-C000-000000000046}#1.7#0#C:\Program Files\Microsoft Office\Office14\EXCEL.EXE#Microsoft Excel 14.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation(*\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.5#0#C:\Program Files\Common Files\Microsoft Shared\OFFICE14\MSO.DLL#Microsoft Office 11.0 Object Library*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\system32\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{E59B1B0F-E7A0-4330-A9AF-A8DB174036EB}#2.0#0#C:\DOCUME~1\lcoole01\LOCALS~1\Temp\Excel8.0\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{00020905-0000-0000-C000-000000000046}#8.5#0#C:\Program Files\Microsoft Office\Office14\MSWORD.OLB#Microsoft Word 14.0 Object Library efRThisWorkbook015266d065#ThisWorkbook%frmFootnotes025266d065'frmFootnotespY Sheet6035266d065 Sheet6o0%frmMain045266d065frmMainHhH08A13eNRu:& cG 1ΪI8FC-X DCV ,?FCl~Excel+VBAWin16~Win32Win64xMacVBA6#VBA7# VBAProjectstdole`OfficeuMSFormsCWordk ThisWorkbook| _Evaluate frmFootnotes chkZ5_Change:chkZ5ValueKtxtZ5Visible chkZ10_Change*chkZ106txtZ10sP chkZ11_Change+chkZ117txtZ11tP chkZ21_ChangecchkZ21\txtZ21AMtxtZ21BN chkZ22_ChangechkZ22]txtZ22ArtxtZ22Bs chkZ23_Change2chkZ23^txtZ23AtxtZ23B chkZ24_ChangechkZ24_txtZ24P chkZ25_ChangechkZ25`txtZ25AtxtZ25BtxtZ25C chkZ26_Change* txtZ26P chkZ27_Change chkZ27btxtZ27A+txtZ27B, chkZ28_Changez chkZ28ctxtZ28APtxtZ28BQtxtZ28CR chkZ29_Change" txtZ29AutxtZ29Bv chkZ30_Change>chkZ30txtZ30P chkZ31_ChangechkZ31txtZ31P chkZ32_ChangechkZ32txtZ32AtxtZ32BtxtZ32CtxtZ32D chkZ33_Changaln# tempIsH10(VisH121[^Xo DrawBordersPs ConvertTextaneedToBeTabbed[Yl tempCharNum NumSpacesXZq needToRapJtempVal^linelengthforS= TotalsBordersi BottomBorders` tempRowNum tempColNumColumniExcelVersionNameInputBox  WorkbooksBAddr ActiveSheet%NPaste CutCopyModeSaveAsf; FileFormatxlNormalLPasswordWriteResPassword:ReadOnlyRecommended CreateBackup ActiveWindow+ AddContinuessheet2RowCountKdeptDescription33VerticalAlignmentʡ numChaptersbPFileNum2 . tempIsCorrectM DataIsFoundB tempLine1"v tempLine2#v tempLine3$v tempLine4%vChapterIdentifier; deptNameLenVdeptName{UCase5 tempIsCorrectDeptHtempTableTitlesheet3RowCountW5ShowcmdConvertToExcelKZcmdConvertToWord errorhandlerO vbCritical+} xlEdgeLeftL xlEdgeRight%vxlDoubleE rowCounteremyCount7Count0v pageCountTI tempMoveOrNottempBottomRowNum&LtempRowToPasteToħ tempDataRow^ tempCurrentRowNum?InsertrxlDown0D ClearContents{xlNonei`riRangeSelection7~ tempNumLevels{ tempIsSubA tempIsTotaltempRowToContinueOn^tempThirdLeveltempSecondLeveltempFirstLevelztempFirstRowReplacedHeighttempSecondRowReplacedHeight AutoFit& tempRow2ltempRow3lVarTypepvbString`eStrConvx' vbProperCasetxtLencharacterToCheckt firstString secondString,: thirdStringR cmdConvertToWord_Click2 errorhandler2 wdApp|awdDocUqDocumentj errorCounter imgWorking2 imgCheck2pFileIDB CreateObject DocumentswordFile8ActiveDocument\Tables RightPaddingInchesToPointsIAllowBreakAcrossPagesSectionswdBorderBottomwdLineStyleSingle DistanceFromwdBorderDistanceFromTextc AlwaysInFront SurroundHeaderi'SurroundFooter5 JoinBorderslDistanceFromTopCDistanceFromLeftnKDistanceFromBottom|/DistanceFromRight̸ShadowEnableFirstPageInSectionEnableOtherPagesInSection7ApplyPageBordersToAllSectionsOptionsDefaultBorderLineStyleDefaultBorderLineWidthowdLineWidth050pt DefaultBorderColorwdColorAutomaticCellMoveEnd*UnitwdRowF HeadingFormatMoveDown̝wdLine WholeStory InsertBreakѺ wdPageBreak 7 LeftPaddingóParagraphFormatSpaceBeforeAutoJSpaceAfterAutoCFirstLineIndent_CharacterUnitFirstLineIndentk wdSection2MoveLeftv wdCharacterExtend?wdExtenddMoveUpwdSectionBreakContinuousE PageSetup TextColumnsKSetCountIp NumColumns} EvenlySpacedߠ LineBetweenlSpacingSAutoFitBehaviormwdAutoFitContentwPreferredWidthTypewdPreferredWidthPointslPreferredWidth' MoveRightDialogswdDialogFileSaveAsN savechangestQuit9 vbInformationnvbYesNovbNo% LogMessage LogFileNamecmdDepositFunds_Click 3 imgWorking8 imgCheck8vDataRowCounterC(tempH1z tempWhichHtempH2{tempH3|tempH4} isHTypeIDl isCTypeID5 isSTypeID isDTypeIDmRight  tempMatchTtoHDataRow |tempRowCounterj Col1Col2Col3Col4TabStopsBClearAll DefaultTabStop\Position AlignmentIwdAlignTabLeft#>LeaderjwdTabLeaderDotscFindnClearFormatting) ReplacementForwardWrapWy wdFindAskt MatchCaseMatchWholeWordXMatchWildcardsMatchSoundsLike0MatchAllWordFormsExecuteY wdReplaceAllu#vbOKOnly createPDFvbYesa?tempActivePrinter ActivePrinterpPrintOut.wdPrintAllDocumentOItemzwdPrintDocumentContent|>Copies?PagesPageType;XwdPrintAllPages>ManualDuplexPrintTCollate Background. PrintToFileoPrintZoomColumnd PrintZoomRowPrintZoomPaperWidth;PrintZoomPaperHeight errorhandler8  errorhandler3 Shapes<cmdPartOne_ClickC imgWorking6 imgCheck6t FilenameARB FilenameAR1 tempCYReceiptstempPYReceipts( tempCYOutlays tempPYOutlays,; tempCYDiff6 tempPYDiffutempCurrentYear* LCase: tempRowTitleUy errorhandler6 cmdSchedule3_Click imgWorking4 imgCheck4r imgWorking3cmdSchedule4_Click' imgWorking5 imgCheck5s LeftIndentiCharacterUnitLeftIndent~cmdTableA_Click{n errorhandler4  imgCheck3qcmdTableJ_Click errorhandler7  imgWorking7 imgCheck7uRowTitle7#Workbookk #'   H0* pHd VBAProject4@j = r efR J< rstdole>stdole h%^*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\syst em32\e2.tlb#OLE Automation`EOffDicEOficEE2DF8D04C-5BFA-101B-BDE5EAAC42Egram Files\CommonMicrosoft Shared\OFFICE14\MSO.0DLL#M 1@1.0 Ob LibraryKMSForms>SFrms3D452EE1-E08F`A-8-02608C@4D0BB4SFM20L'B _&/;"1jIqAHq00}#0Bq# 50 AE59B1B0F-E7A0-43@A9AF-A8DB17@4036EB6DOCUME~1\lco@01\L OCALS@Temp\Excel8.0cB8.exddU=#.E .`M A€Word>Wgd@@I20900W8.5CK\CWORD.OLFB0" 14J!tThiskb@ookGTuiLkbok2` H1b%`%",""+cfrmFootnotescf_U`on t`ysdcoYo4pc(*!Sheet6G"!S$bet62?!Io+!a `MainGbMain@F2/ o(H  @9}'R KQDBTahoma 0@cmdConvertToExcel{,HcmdConvertToWord{$4cmdExite{#, 1. imgCheck1tTo, 1. imgWorking1o, 1. imgCheck2g1o, 1. imgWorking2o$LchkLogte#, 1. imgCheck3g2o( 8cmdTableAg2o{, 1.o 5CompObjFaVBFrameH(frmFootnotesQ~ ~wwwpppppwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOppppwppwwwwwwwppwwww?*Label1A#5TahomaA*Label1A#5TahomaA&OOR KQlt ( @wwwwwwwwwwppppppppxpppxpppppppppppwwwwpwwwwwwwwwww?( Schedule 3t OuTahomaA&OOR KQlt ( @fffffffffwwwwwwwwpppppwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOppppwppwwwwwwwppwwww?&OOR KQlt ( @wwwwwwwwwwppppppppxpppxpppppppppppwwwwpwwwwwwwwwww?( Schedule 4t OuTahomaA&OOR KQlt ( @fffffffffwwwwwwwwpppppwpwDDDDOpp (Convert To Excel OuTahomaE$,Convert To Wordl Ow @TahomaE(Exit OuTahomaE&OOR KQlt ( @wwwwwwwwwwppppppppxpppxpppppppppppwwwwpwwwwwwwwwww?&OOR KQlt ( @fffffffffwwwwwwwwpppppwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOppppwppwwwwwwwppwwww?&OOR KQlt ( @wwwwwwwwwwppppppppxpppxpppppppppppwwwwpwwwwwwwwwww?&OOR KQlt ( @fffffffffwwwwwwwwpppppwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOppppwppwwwwwwwppwwww?,F40,Log5Tahoma&OOR KQlt ( @wwwwwwwwwwppppppppxpppxpppppppppppwwwwpwwwwwwwwwww?(Table A OuTahomaA&OOR KQlt ( @fffffffffwwwwwpDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOppppwppwwwwwwwppwwww?(Part One OuTahomane&OOR KQlt ( @wwwwwwwwwwppppppppxpppxpppppppppppwwwwpwwwwwwwwwww?&OOR KQlt ( @fffffffffwwwwwwwwpppppwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOppppwppwwwwwwwppwwww?&OOR KQlt ( @wwwwwwwwwwppppppppxpppxpppppppppppwwwwpwwwwwwwwwww?(Table Je OuTahomaJe&OOR KQlt ( @fffffffffwwwwwwwwpppppwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOppppwppwwwwwwwppwwww?&OOR KQlt ( @wwwwwwwwwwppppppppxpppxpppppppppppwwwwpwwwwwwwwwww? ( Deposit Fundsdl OuTahomaJe&OOR KQlt ( @fffffffffwwwwwwwwpppppwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOpppDDDDOpwpwDDDDOppppwppwwwwwwwppwwww? imgWorking3o( 2<Label1te{ ( 2<Label2te{", 1. imgCheck4g3oS( <cmdSchedule3{S, 1. imgWorking43S, 1. imgCheck5g43v( <cmdSchedule4{v, 1. imgWorking54v( 8 cmdPartOne54{ , 1. imgCheck6e54 , 1. imgWorking64 , 1. imgCheck7g641( 8 cmdTableJg64{1, 1. imgWorking741, 1. imgCheck8g74,@ cmdDepositFundsd{, 1. imgWorking8u  Microsoft Forms 2.0 FormEmbedded Object9qTahoma,FW{0,Z65Tahoma,FW{0,Z885Tahoma,FW{0,Z895Tahoma,FW{0,Z905Tahoma,FW{0,Z915Tahoma,FW{0,Z925Tahoma,FW{0,Z935Tahoma,FW{0,Z945Tahoma,FW{0,Z955Tahoma,FW{0,Z965Tahoma,FW{0,Z975Tahoma,FW{0,Z985Tahoma,FW{0,Z995Tahoma(DoneOfoT1i01 n``Q~Q~fV oQ0CompObjOpCompObjMaVBFrame[7 !"#$%&'()*+,-.0123456789:;<=>?@ABCDEGIJKLNPRSTUWXYZ\]^_acdefghijklnoprstvb  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`acdefghijklmnopqrstuvwxyz{|}~bedded ObjectForms.Frame.19q,FW{1,F15Tahoma,FW{0,F25Tahoma,FW{0,F35Tahoma,FW{0,F45Tahoma<H   }qF Group TypeR KQDBTahoma LRoot Entry F~Workbook_VBA_PROJECT_CUR" ۝~~VBA~~VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmMain Caption = "Conversion Tool" ClientHeight = 5760 ClientLeft = 45 ClientTop = 435 ClientWidth = 2895 StartUpPosition = 1 'CenterOwner TypeInfoVer = 57 End  Microsoft Forms 2.0 FormEmbedded Object9q$#fgroup n``Microsoft Forms 2.0 FrameEmF1 LF2O LF3 LF4 O VERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmFootnotes Caption = "Footnote Selection Tool" ClientHeight = 9750 ClientLeft = 45 ClientTop = 435 ClientWidth = 11940 StartUpPosition = 1 'CenterOwner TypeInfoVer = 384 End chkZ80uTahoma(ResetaOuTahoma(CancelOuTahoma,FW{0,Z55TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,,FW{0,Z875Tahoma,FW{0,Z865Tahoma,FW{0,Z855Tahoma,FW{0,Z845Tahoma,FW{0,Z835Tahoma,FW{0,Z825Tahoma,FW{0,Z815Tahoma,FW{0,Z805Tahoma,FW{0,Z795Tahoma,FW{0,Z785Tahoma,FW{0,Z775Tahoma,FW{0,Z765Tahoma,FW{0,Z755Tahoma,FW{0,Z745Tahoma,FW{0,Z735Tahoma,FW{0,Z725Tahoma,FW{0,Z715Tahoma,FW{0,Z705Tahoma,FW{0,Z695Tahoma,FW{0,Z685Tahoma,FW{0,Z675Tahoma,FW{0,Z665Tahoma,FW{0,Z655Tahoma,FW{0,Z645Tahoma,FW{0,Z635Tahoma,FW{0,Z625Tahoma,FW{0,Z615Tahoma,FW{0,Z605Tahoma,FW{0,Z595Tahoma,FW{0,Z585Tahoma,FW{0,Z575Tahoma,FW{0,Z565Tahoma,FW{0,Z555Tahoma,FW{0,Z545Tahoma,FW{0,Z535Tahoma,FW{0,Z525Tahoma,FW{0,Z515Tahoma,FW{0,Z505Tahoma,FW{0,Z495Tahoma,FW{0,Z485Tahoma,FW{0,Z475Tahoma,FW{0,Z465Tahoma,FW{0,Z455Tahoma,FW{0,Z445Tahoma,FW{0,Z435Tahoma,FW{0,Z425Tahoma,FW{0,Z415Tahoma,FW{0,Z405Tahoma,FW{0,Z395Tahoma,FW{0,Z385Tahoma,FW{0,Z375Tahoma,FW{0,Z365Tahoma,FW{0,Z355Tahoma,FW{0,Z3455TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5TahomaH,,5Tahoma( ,$@Times New Roman( ,$@Times New Roman( ,$@Times New RomanH,5TahomaH,,5Tahoma( ,$@Times New Roman($,a$@Times New RomanH,,5Tahoma($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New Roman($,a$@Times New RomantxtZ29AtI (w14ptxtZ34AtI(x14qtxtZ32AtI(y14rtxtZ31AtI(z14stxtZ33AtI({14ttxtZ38AtI!(|14utxtZ36AtI(}14vtxtZ35AtIu(~14wtxtZ37AtIk(14xtxtZ42AtJ+(14ytxtZ40AtI&(14ztxtZ39AtIa$(     14{txtZ41AtJW)(14|txtZ46AtJ5(14}txtZ44AtJ0(14~txtZ43AtJM.(14txtZ55At"/ (14txtZ52At"/"(14txtZ54At"/ (14txtZ61At"/u(14txtZ63At!/!(14txtZ62At!/(14txtZ60At"/(14txtZ70At!/C3(14txtZ66At!/W)(14txtZ64At!/a$(14txtZ68At!/M.(14txtZ72At!/98(14txtZ82AtB(14txtZ83AtB(14txtZ84AtB(14txtZ23Bt5(14txtZ25Bt:(14txtZ29Bt" (14txtZ28Ct"(14txtZ32Bt"(14txtZ32CtJ(14txtZ32Dt"(14txtZ61Bt6u(14txtZ62Bt6(14txtZ62Ct!/k(14txtZ83BtjJ(14txtZ22BtC3(14txtZ21Bt0(0@Label1Bt1(0@Label2Bt4(0@Label3Bt!{(14txtZ27Bt"(14txtZ28BtJ(0@Label4Bt!p(0@Label5Bt(14txtZ25Ctq/=(0@Label6Ct/=(0@Label7Ctu"(0@Label8Ctu (0@Label9Ct! (0@Label10tu(0@Label11t!(0@Label12tu(0@Label13tu(0@Label14tuu(0@Label15tu!(0@Label16tuk(0@Label17tu(0@Label18tuW)(0@Label19tu&(0@Label20tua$(0@Label21tu0(0@Label22tuM.(0@Label23tu+(0@Label24tu5(0@Label25tM. (0@Label26tM.u(0@Label27tM.(0@Label28tM.!(0@Label29tM.a$(0@Label30tM.W)(0@Label31tM.M.(0@Label32tM.C3(0@Label33tM.98(0@Label34t%B xitt>K>$jLPROJECTwm`}PROJECTbSummaryInformation(mDocumentSummaryInformation8q(H @}ER.CR KQDBTahoma|$#fgroup$LchkZ87>$LchkZ86>u$ LchkZ85>$ LchkZ84>$ LchkZ83>$ LchkZ82>$ LchkZ81>$LchkZ80> $L chkZ79> $L chkZ78>$L chkZ77>"$L chkZ76>$L chkZ75+*?$LchkZ74+*/=$LchkZ73+*:$LchkZ72+*98$LchkZ71+*5$LchkZ70+*C3$LchkZ69+*0$LchkZ68+*M.$LchkZ67+*+$LchkZ66+*W)$LchkZ65+*&$LchkZ64+*a$$LchkZ63+*!$ LchkZ62+*$!LchkZ61+*u$"LchkZ60+*$#LchkZ59+*$$LchkZ58+*$%LchkZ57+*$&L chkZ56+*$'L!chkZ55+* $(L"chkZ54+* $)L#chkZ53+*$*L$chkZ52+*"$+L%chkZ51+*$,L&chkZ50S?$-L'chkZ49S/=$.L(chkZ48S:$/L)chkZ47S98$0L*chkZ46S5$1L+chkZ45SC3$2L,chkZ44S0$3L-chkZ43SM.$4L.chkZ42S+$5L/chkZ41SW)$6L0chkZ40S&$7L1chkZ39Sa$$8L2chkZ38S!$9L3chkZ37Sk$:L4chkZ36S$;L5chkZ35Su$<L6chkZ34S$=L7chkZ33S$>L8chkZ32S$?L9chkZ31S$@L:chkZ30S $AL;chkZ29S $BL<chkZ28S"$CL=chkZ27S$DL>chkZ26{?$EL?chkZ25{:$FL@chkZ24{98$GLAchkZ23{5$HLBchkZ22{C3$ILCchkZ21{0$JLDchkZ20{M.$KLEchkZ19{+$LLFchkZ18{W)$MLGchkZ17{&$NLHchkZ16{a$$OLIchkZ15{!$PLJchkZ14{k$QLKchkZ13{$RLLchkZ12{u$SLMchkZ11{$TLNchkZ10{$ULOchkZ90{$VLPchkZ80{$WLQchkZ70{$XLRchkZ60{ $YLSchkZ88>k$ZLTchkZ89>!$[LUchkZ90>a$$\LVchkZ91>&$]LWchkZ92>W)$^LXchkZ93>+$_LYchkZ94>M.$`LZchkZ95>0$aL[chkZ96>C3$bL\chkZ97>5$cL]chkZ98>98$dL^chkZ99>:$e4_cmdDone>>$f8`cmdResetD>$h8acmdExitt>K>$jLcchkZ5itt{ (i14btxtZ5ittq (k14dtxtZ10ttq(l14etxtZ11ttq(m14ftxtZ22AtqC3(n14gtxtZ21Atq0(o14htxtZ24Atq98(p14itxtZ23Atq5(q14jtxtZ26Atq?(r14ktxtZ25Atq:(s14ltxtZ30AtI (t14mtxtZ28AtI"(u14ntxtZ27AtI(v14oThisWorkbookThisWorkbookfrmMainfrmMainSheet6Sheet6frmFootnotesfrmFootnotesID="{A3261E3E-FBC2-4A9F-BA6B-A7C378B61340}" Document=ThisWorkbook/&H00000000 Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=frmMain Document=Sheet6/&H00000000 BaseClass=frmFootnotes Name="VBAProject" HelpContextID="0" VersionCompatible32="393222000" CMG="0705F803F80DFB11FB11FB11FB11" DPB="0E0CF10CFF140715071507" GC="1517EA11F619F719F7E6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 &H00000002={00020818-0000-0000-C000-000000000046};Excel8.0;&H00000000 [Workspace] ThisWorkbook=0, 0, 0, 0, C frmMain=0, 0, 0, 0, C, 44, 58, 880, 526, C Sheet6=0, 0, 0, 0, C frmFootnotes=0, 0, 0, 0, C, 22, 29, 858, 497, C Oh+'0HPh AdministratorLaDonna CooleyMicrosoft Excel@5Q8@