PDA

View Full Version : [SOLVED] Transferring Word to Excel -



PandaBear
06-08-2017, 03:06 PM
I have been trying to find a solution to this problem all day. Yesterday I learned about Word Forms and how they can be used to transfer files to Excel. I thought my inventory dream had come true, but after making the Word Form and the Excel Sheet, I have not been able to get everything to work as I would like. I keep getting a "Compile Error: User-Defined type not defined. "Sub GetFormData ()" is highlighted in yellow and Dim wdApp As New Word.Application" is highlighted in blue.

I have been watching this video on youtube by Neil Malek published on Jan. 22, 2016 and saw Paul Edstein's comments and links. I have tried copying and pasting his macro from those links into Excel following the directions on the video for everything else. I have tried changing the CCtrl to FmFld. I found another macro that Paul had posted on either this site or another site and tried putting that into Excel and I get the same error message.

As you may be able to tell from my attachments, I am a vintage seller on ETSY. I need to have a form that I can print and put on the boxes once I process a product so that I can find it in my warehouse (garage for now), but I also need to be able to track the collective costs and income for taxes. Up until now, I have been doing the forms by hand and then inputting everything again into an Excel spreadsheet, but it is such a slow process and I have to keep fumbling through papers to see if I have completed all the steps needed before posting onto ETSY.

I have attached my Word Form with info filled out for one item that has not been sold and the Excel sheet that I created today. I have also attached a Word file that has the Macro that I used in the Excel sheet.

If I should have put this into a thread that was already going, I apologize. All the threads I found regarding this were more than one-year old and I was not getting anywhere trying the fixes shown own them.

Thank you for any help you can give me.

Angela Bjornstad

mdmackillop
06-09-2017, 04:22 AM
I don't see the necessity of using both Word and Excel. Personally I would create the "form" in excel and save the data to another worksheet.

PandaBear
06-09-2017, 08:45 AM
I don't see the necessity of using both Word and Excel. Personally I would create the "form" in excel and save the data to another worksheet.


Mdmackillop,

Thank you for your response. I want to do it as I stated because I need to be able to print the form out with all of the data and then attach it to the outside of the shipping box. Once I process an item, I box it so that I know how much shipping will cost. Also, it is easier store boxes than items sitting on a shelf. Also, it speeds up locating the item once sold. I have not figured out how to make a form, similar to the one I attached to this question, that I can then print. I need the items in a regular spreadsheet for accounting purposes. I am just trying to streamline the processing and I thought that using the Word Form and transferring to Excel would be the right way to go about this. It seemed so easy, but I just can't figure out why I keep getting that error message. I have been watching videos to make forms in Excel, but I am not seeing what I need. I would like to have a separate page (form) for each item that can be printed. So far in Excel, I see what they are calling a fillable form is really just a spreadsheet with taller row heights.

If you can explain to me, or direct me to instructions, on how to go about making a fillable sheet in Excel and then have it go into a regular spreadsheet, I would very much appreciate it.

Thank you again for your response.

snb
06-09-2017, 08:59 AM
See http://www.snb-vba.eu/VBA_Userform_in_database_en.html

mdmackillop
06-09-2017, 11:05 AM
You can certainly produce something that looks like your Word form in Excel. If you really need it in Word, it is easier to export data from Excel to Word Bookmarks to produce the document. You can input data either in a spreadsheet or a Userform as per snb's article. In both cases you can set data choices where appropriate to minimise errors. I would never consider entering the data in Word as the starting point.

macropod
07-11-2022, 02:31 PM
I've only just discovered this thread!

One wonders why no-one saw fit to tell the OP to do as the note at the top of the macro says...

All that was needed was to go to Tools|References in the VBE, then scroll down to the Microsoft Word entry and check it.

Thyme2Cook
09-19-2022, 06:52 AM
Hey there Paul,

I have been successfully been using this code few years now even though it was meant only to be an interim solution. Now the code has started throwing a "Run-time error 4248: Application-defined or object-defined error."
The error is thrown when it finishes pulling the results from the first word doc into Excel when attempting to close that doc and move on to the next step in the process. I'm not in any way well versed in VBA and am grateful to you as the OP.
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAUoAAACpCAYAAABNjnSdAAAAAXNSR0IArs4c6QAA AARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAASdEVYdFNvZnR3YXJlAEdyZWV uc2hvdF5VCAUAABJuSURBVHhe7Z1NiyTJYYZbkvWxZvWx0oqVVivJBx0E gAxFw0SCIMOAusiZGEYdNKhjf Bb/MT5jxY4Lk3e10w9GV gPtmdFgYs DbwrI/QHb5fTMzMiMjI6IyqyurK2ueB97dysyIyMioyKcjqwbqCgAADuMzXT7b5XNR/oYQQjae2GnBc8F7ewlyDEL8gvJF5UvKG13 lhBCNp7gM7vNjrPrgkCDNLPEkvy84spu8E3lK8rXlLe6fJ0QQjaa4DE7zW6z4 w6O8/uq8oySNJmtWld2Y19U/mW8q7ynvI9QgjZeOwyO81us PsOjvP7rMDgyxH2JxhJfnGDgDgNUHO 75iaX5D bIdqISV5WhV6Q0/n3vp WZXHwDg4pHzfqz8QPmOYll6ZWkX2okjUXqJaYP6Of2trj4AwMUj5/1C ZliWX7bDlTsQjtx9PjtjWY1qbzd1QcAuHjkvN8olqVXln4Mf1sJq8qRKP0s7q/J/Q3QO119AICLR877vfJr5ZHiVeU7il1oJ9qNPUGUX1Xe7eoDAFw8ct4fld8qP1d aAcqdmFWlP6mx/ u6L2uPgDAxSPn/Un5nfJL5Ud2oGIX2olZUfpDzO929QEAzo7nz5/vPv74425rio 5zFzkvGvlD8qvlJ/YgYpdOBGlvwb3tzz V vf6 oXeLW7VSee377qtsd8cnejTt7s7j5pNnY34fVD8eq2GbTnN3e7Wjde3T7f3aQddV1f5yrX4XHMt dmNb5TCUNc5pM8zx2ouHtPSPFlONF7HfD/OYY7CIizCf/vzn7OyrB0rIef9i/JPyt8rP7UDFbvQTrQbexaK8mZ3c1O7yc9l4rX9Ge7V6GZLCVKM8I1 tPt8Qqkvyf7mRr7V3rVJx qeuN83t7vb7Dw5hMp7t4hjtQMPSU6Ih0jSyHnrifL2VrJMZ1sjG90cZzMR05uicpNMhOSyawqq1 JcFfT4qxz2Pnyw8P8L/78 x neq8YS1icV4qCSNnLeeKO8 8f9jkXyyu2tWD/FETCely6SPlG0Zi/d5aK RVlrO5Op7d6682x323dzdjbanj4Rt2/3u0Qozvo7yNQzXOd5uHkEn503rBJL9yUo339acPhXGrsFlh2O92IrvQ9v26D0b4XN1525WlvGjf NevV0Pbg0hnHGs249cmf23TsXK93L6orT3XfHfXfTyhDH2rjS2sSRDkoZI0ct6aomwnYj8p hsinnjx63YyTVcXLpPeEEm7oY3M43G1/Oj8Jt0eE69 xo/dUb1iH acJ95fKzPcdHkRmaj 3j6Vxj4m7U/bj/K4Vtrr50KzMUizoa3bfw6aabd8LPd66bXFr016rH7N/Th7zMN7kx1/OAWbEGV8QwxiSSdeVDZ708flRaZc33ZzLLkpauXTtifbCf315G7u DrSG3PPeZqbKogv7C/1JdnfnG9PW/v6lBmjKbnzzh3XMenjdvMFXy Sad1au4fPKzFr3OttzZpL2fGHtQmS9P/j10uR81YWZRCKH5X6FUR8vD4JW5IJWJ2sLc2Np4nZ7Dt0cmfJXY Z1hv1oXaeUf9iAZf6ku5vV0zTa01l7sOFPhXHPiY576JxjfGxIKc4oa3K9c0 Fr0uXdvsca 3tWQujccf1iQnxkNlKeetLUpvtn 1h7 m8fH4dTvpp391cxMwmmyFG8GTsm2rVj7Xdrw9JUz2cT/z9YY xDe0aMakK /Xex8lY5L9cZ1iWwPjcQnHS2Mfk/bH23PHNSLuY08qvKgvk3Zrx8I549eFa5s97mm795tLw/jDWtSEeIgs5bwTiLKZqGEymXTipZNrWGUMN04y4ZoJGspFxxoBhf3ROUvlM217hdCU6GhNFNFYj aKfUh3j/65r 9kZv9o38uk7nuhvEYja n0Fa2T2n743anl5/pz4JxDXh8c6Jo/gA1J23rtl8EpX3Zf6xtOj2/t0M/Q53SuKv0aA4kbc2 5mi7NCdgFTzONRH6mMvMRc5bQ5QA9yEVTkztGMA6yHmIEs4NRAnnhZyHKOHcQJRwXsh5iBIAoIa chygBAGrIeYgSAKCGnIcoAQBqyHmIEgCghpyHKAEAash5iBIAoIachygBAGrIeYgSAKCGnIcoAQ BqyHmIEgCghpyHKAEAash5iBIAoIachygBAGrIeYgSAKCGnIcoAQBqyHmIEgCghpyHKAEAash5i BIAoIachygBAGrIeYgSAKCGnIcoAQBqyHmIEgCghpyHKAEAash5iBIAoIachygBAGrIeYgSAKCG nIcoAQBqyHmIEgCghpyHKAEAash5iBIAoIacdwGi/J9/bwMAsAJy3gWI8uXftQEAWAE5b Oi9Ery9qoNq0oAWAE5b Oi1Ery//7zqsn6q8oPdtdXVx60PtcfdIeOhs/xePfsw26z2b7WfzfMh892jzMD9cG1xjDa32x34/p4GICetPyHzx4P70XYXzgXwH3QHNuwKLvV5F//u836q8pEYh9cawCPLbFUlBdATl7elwjuWV8kMwZp aZMGPsPd88ed URJayAnLdhUXaryb9 1Gb9VWV6A8c3a 5Y2O5eP7NY2xVQbsXUlutWSH2ZaTvX1 1Kysf7VdhIDlE7RWnkykTtP34m/aTboUxXrXyZUtYbFp3PyHJtu/SHwNufI X0aUMcX2AZah b5RUcaryU6U668qWxmEG7J59BsJZCqOdtuvIyFVV6L722kE2q2wmiab10N7lmd7qoJARL5M1H5D ut3W67d9HYlA47Il nOXRDZqt1I rDLDOKSU2gdYiObYRkWZrCZD1l1VtjLQ9bcZ3YQ VhNc6VjK3HZqr6M KlNXlMrE7Zgl2 mxPP7jMhJt2rlEksXylmRfzrIvyBLgCOge2aAoc6vJkFVXlbEM0ptziUSi7WhV1EpgbjtzXpcol Un3L9kutRnjMmNBD9fdSnH6xydffiRQw oRVkTzboOiLKwmQ9ZbVSYyGD3yJuL0jVuUSE0qtbJzXrf9qD8Cl8rUzt1Sf/Qel91LukLcJ7q4/OjcheuJywPcAzlvY6KsrSZDVltVTmUw pzSN2a/6rmOyu4XUIxl5DbaGz8uO e1iFeppc9Cs2XSfqXbxvtCvX1l9xCJrBnHvt02 8Q3qpMTIqKEI6E5tjFR7llNhqz7WSUAvE7IeRsSZWE1qf40ifet 1klALxOyC8bEmVhNan TEWpsKoEgGMgv2xElJXPJtWfrChZVQLAMZBfNiLKymeT6k9elAqrSgC4L/LLBkRZWU066k9RlKwqAeC yC8bEGVlNemoP2VRKqwqAeA yC9nLso9q0lH/amKklUlANwH eXMRblnNemoP3VRKqwqAeBQ5JczFuWM1aSj/uwVJatKADgU eWMRTljNemoP/tFqbCqBIBDkF/OVJQzV5OO jNLlKwqAeAQ5JczFeXM1aSj/swTpcKqEgCWIr coSgXrCYXh1UlACxEzjtDUS5YTR4SVpUAsAQ578xEecBqUv2Z/ejdhFUlACxAfjkzUR6wmlR/lolSYVUJAHORX85IlGt NpmGVSUAzETOOyNRrvzZZJqDV5XNzygs/NmDIvFPKPh16Wdsa6Q/w3BoO0uY99MP05 1OGa/5vXhONTOdeh1Le3/vPKXM bng8bzTETpld1/XO3 97 Uv5woOpfPuXRV6d9qub6 nv6my0EcY I9xOSdc861 3XK617jXEvbfN3G/HyQ885ElF7ZWVoPkUWrSv/in/9Ca8JEvz/dT6Bnww MDb9rNeNY01A6Cb3dlm9/JKv9tcHQxrBiyO0rtDPZP 5XXf5xf IfTzPxMfc1Pme43u58TZ19507bC8T70z7ExOdPk/dNGPwo2o19v/HpqojWrfu9dKedzTOrXzRNvKg455X7895zDe6XYo09UbtZ0r zCob2f2Zc65E/2sqh9xhvnUvdlhR/OLjOGRZ9 xZCJ3M6J5hBpOkOCyuTbMtJ3 hvC50wma7deUSTvJOdpmLPP89Yy36 fOt9fuL/UhZt81jwUxsK/e/vewbaPU9/H7Oa6Xo3a9 fOkbcbbtWsotdfunzvm f7E451uZ9qf V6dEjkPUS5hmAzNRjTx4wlp4u25x2p1OpqJqsnepFS21s7cYyn72gl9atMOy746x2wvZl/buTpmSb3SMb e03eT2xeTHj/kPGmdY7YXc2j92nZ67OHQ9SDK fiNG0 G0qqi/oaXjtXqiMlf21LZIxyLf/e7mfFL2gksqXPf9mIOadssqVc6lpYL5PYn y5qzAP76te2S22eHr0niHI2oxVky7DC9Js6PCY0P85feISYHstNDDJI8d8fmblWVpQo2364825X pjkv6Mzp/pa0Ot/dqxUnu1PoyZf81j5j4Glt/DmX1vqPelfr2l86Rtxtu1YzP7XRzzQ/rTcuh7dUrkPEQ5l0GKEX5jo7/ zQfPzapgOjlqx9rtdGJ4O11hhO3xh rum/e3E67STvHcJt1OGK14kg/142P3XmWLbHui1ocRbi/Ur5xnQr3e/vdQlPoet91NpPH7lmFLY764PwHvC/X2lX0Y1DdEeRxqb r5vOGwAs0qKxYiXBpyHqI8Dojy9cPva7sSmjxpwEWh9xhRAgDUkPMQJQBADTkPUQIA1JDzECUAQ A05D1ECANSQ8xAlAEANOQ9RAgDUkPMQJQBADTkPUQIA1JDzECUAQA05D1ECANSQ8xAlAEANOQ9R AgDUkPMQJQBADTkPUQIA1JDzECUAQA05D1ECANSQ8xAlAEANOQ9RAgDUkPMQJQBADTkPUQIA1JD zECUAQA05D1ECANSQ8w4T5aeffrojhJDXIXIeoiSEkFrkPERJCCG1yHmIkhBCapHzECUhhNQi5y FKQgipRc5DlIQQUouchygJIaQWOQ9REkJILXIeoiSEkFrkPERJTpurf/0L2ZPcuJXy/vvvkz3JjduSyHmIkpw2OTGQcXLjVopF8NFHH5FCECXZZIIMcpP6dQ iPH4QJdlkEGU5iPL4QZRkk0GU5SDK4wdRkk0GUZaDKI8fREk2GURZDqI8fhAl2WQeVJQvnnjS93 n09GV0/MXuydWj3dOX7faLJyrz5EV0fP2cpyjH41Lel2ZOmfWDKMkm81CifPn0kSb8k92Lft/L3dNHsQyjG9tCPbEkHUR5/CBKssk8jCgtxcxN /Lp7lEvz3Bj / xUE X7YrS291KPfeHJ7x Oqzon7wIddcNoiSbzIOIciTEOO2qsr1p25v5UU6oJ8r5irKT4CjDOPljinYM4z9IqShVJ0i0 QjkNH MECXZZM5PlMnNrIw/uzxdzleU6R PjASjxH94ptLMba8XREk2mQcRZenGLD56n YmTrNdUebGq1amVOf4QZRkk3kYUZa/zBlWj9HN60fDR093L/uyp8k2RZmOY66MXw9lmvfiROOLKMkm81CidFpZDo Ie/950IlluU1RKs3KPIxrukIfXj95EsY/bW 9IEqyyTykKM895ynKYyQn29MEUZJNBlGWgyiPH0RJNhlEWc7livLhgijJJoMoy0GUxw iJJtMkAEpJzdupSDKehAl2WRyYiDj5MatFIuA1JMbtyWR8xAlIYTUIuchSkIIqUXOQ5SEEFKLnI coCSGkFjkPURJCSC1yHqIkhJBa5DxESQghtch5s0X5OeUN5S3lu7nGCCHkEiPnXSt/UH6l/MQOVOxCO9Fu7Ami/JryXq4xQgi5xMh5f1J p/xS ZEdqNiFWVF Sfmq8m6uMUIIucTIeX9Ufqv8XPmhHajYhXZiVpRfUd7JNUYIIZcYOe/3yq VR8oP7EDFLpyI8rPKF5U3lbeV7ys/Vn6h/EZxQ7aul6j/rPjDT0II2WLsMLvMTrPb7Di7zs6zxAu9BOtBt7vPF5xd/y EPMbys2688UN2Db/oPi5/h/VPwNESGEbDF2mF1mp9ltdpxdZ fZfXagXWgnjkT5GcVfg4dV5TeU7yiuaMt6Sernd3/Y6W G/DU6IYRsMXaYXWan2W12nF1n59l9YTVpJ9qNPd7ws7gN6m96vqy4gj/U9FLUjfhDTn8j5K/P/W NCCFki7HD7DI7zW6z4 w6O8/uswPtQjtxJErjJaYPfEFxQVvVS9BvKt9S3JC/Nvc/xiSEkC3HLrPT7DY7zq6z8 w O9AuHD12B2zOIEvb1EtPP6e7sr8B8r8rcmOO/9U6IYRsMcFjdprdZsfZdXZeWEnahZPVZCCWpZ/PbVZX9tfkNq3jBgkhZMsJPrPb7Di7zs7bK8kYFwrSDOIMcWOEELLlxE4LngveAwCAZVxd/T9jDjwq7RnHLgAAAABJRU5ErkJggg==

I have enabled the "Microsoft Word 16.0 Object Library".
http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAcIAAAF7CAYAAABB3Yv4AAAAAXNSR0IArs4c6QAA AARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAASdEVYdFNvZnR3YXJlAEdyZWV uc2hvdF5VCAUAAEVjSURBVHhe7Z3NqyTbWua32nq18bNV1OvXxMEFtUGKU1hHQRoc2LQTsUXYON g42M0dtUNnBT04Naz6E2oo7L7TGl4o/EDxnlLkioMS4XARpHFwuSNn2e zYr0r3vXGuyIjYkdmRu54nsPvZKzvFSsz36dWZGTuG4qiKIqihvquzHdnvsfwnwghhJANYz1LfU x97ajU/NTwvk/4kvD9wg9k/jMhhBCyYdSv4F3wMHiZGqSaYihrgt8roDE6/EHhh4UfFX4s818IIYSQDaI Bc Cd8HD4GXwNHjbqBmqCcI54aRojM5 Uvhp4cvCzwm/QAghhGwYeBU8C94FD4OXwdPgbfA4NcNKcEbdCf7AgaIoiqKegMTTflGAKf648EPwOEF3htWuEAl cP8XW8Qdze4qiKIq6aomn/YrwS8LPCjBD7AzhdfC8ygixRYRD4jrqj X2FEVRFHXVEk/7DeHXBJjhz8DjBHgdPK 6PIpE2g0KP5HbUxRFUdRVSzztdwSYIXaGuEz6E4LuCisjxLVS3GaKO2x KrenKIqiqKuWeNrvC78tPBOwK/wpAV4Hz4P3FakR/ojw5dyeoiiKoq5a4ml/JPyu8OvCV BxArwuNELcSYPvXfxcbk9RFEVRVy3xtD8Wfk/4TeGX4XECvA6eFxohPkT8 dyeoiiKoq5a4mn3wh8IvyX8KjxOgNcNjBC3keIuGnwr/xdye4qiKIq6aomnfVX4Q G/Cf8VHifA6 B58L4iGiFFURS1CYkPHb7xjW/k1FAoQ50pknqPNcJ3B9lTpgGV 3e5aEzv7rv6n745fMxZT0Hv7m8On75xZ4RzTYsyba3QR1ffyrf99OCHmaSPbw6fLm1LURS1EcHo vvdL3x a4VhZJImpaxihCazJ4O4ld0xdUJ9kmNemYnq9YGxdllurZEpurZD36f3h/lNvVnXbj28 vcA/Itz8KYqiLqjI8OaaICSetrIRTgqWTzigDswN56rp42sFg8OOUh97HW97el1iTIqiqLas8dnjORJ PO8GO0O5UkjHo5TwYAur3l/hKsB/Ug7q 7 9l96N5I/XevMmXW4XaRD4e3nyqbcxONOyrUXeyuvalXbVDDNaqGgBtcznmVu34XNsqfWyd7Hm4fsI1gPw6o F2fHl66pSiKuozUAJeYICQxbeXPCKsA6YKuBP7OoFz aD1rauP1ytgwGGdstTFCjb7Q9pFB/qPZzfWXRaE8z4I1HlFlfsYUk r5Yoz Hxxdv/U6mXGT2Wlb20/dZ7 eE9eMoihqA9qIEebgmAKuCe5uV5JI0dkF1LXrjc1J1eor5w9NIKtqF/QLoU4yqXEz6/rq09ZAoWR2xc3Q1sy1Gjvqt55b DlldS6ZsgbRublxKIqiLiw1QTza4zmS2LfupVEE7xLMpwbUtevZdKtNs69OOA85T7Obm6NsgO9k jNHLm93OqzcoZ0oJnaNva XKgnNrG GctRmbA0VR1HkVGV Ud0wSa095swyOp1xiO0U9TY9d5hvZ YlghmPlY0JbWSfX3s0zGU5O45JsZZqQN0p7jlbR RsTr4zN1u3qDc9xbM1ac6AoijqfxgxvrCySxOq1jTCbgAb1FITNDidF5yCgrlovSvdtaoNwfaXP FzUv2hVNVOrbzd3Nw34XEDu2yHTTWrbWoigoq87Nr4VJh sJxWuGedb1KIqizi/EoTGjQxnqTJHUe6wRUtclGNwjDJ6iKOqJSTyNRrgrhZdgKYqi9ivxNBrhLlQugbYur1IURe1T4m k0QoqiKGq/Ek jEVIURVH7lXgajZCiKIrar8TTaIQURVHUfiWeRiOkKIqi9ivxNBohRVEUtV Jp9EIKYqiqP1KPI1GSFEURe1X4mnLjPDb3/72gRBCCLl2xNNohIQQQvaLeBqNkBBCyH4RT6MREkII2S/iaTRCQggh 0U8jUZICCFkv4in0QgJIYTsF/E0GiEhhJD9Ip5GIySEELJfxNNohIQQQvaLeBqNkBBCyH4RT6MREkLINXHzp/9EjhCtWwvxNBohIYRcE1HgJzXRurUQT9uwEX54dXj /NXhQ1QGWuXH2q3Fwx0WMHH3EJQTQsgJ0GD/xRdfEMdGjPDD4dVzMYfHGJEa2TmMEHWzmXU8P7z6ENQb8HC4m1yXEELWg0bYZhtGmEzo7nD3fAW TOJcR2rpI39wdHmydiKn1CCFkZWiEbTZhhB9ePT88f/Xh8HB3kx5T/sA0sJvq0qgv/dW7MTUnY1LtejDdRvsytisv83B1E/3cSvmgPeponqBz9fVy369kLW60z6P1OvpLrfVYKT ck1uj6vyD8yaEXC00wjYbMEJcFs1BF5 fGYOBMZbgjrK7B9PO5WdjaF4atfW8EVTtAlPz/fm8at4j7at2jXp4VPOaU6/MobvM3LcHY330 Q93 Tjl0wgJeUrQCNtc3gg1KKc0ArYJwMb8Hu5MfjYB6bPfydjgrv2N1UvjaR0xANvetkkYE2n12ypL GINpzU3r2Tpz6 n8bf5YH2m99djUJ4Q8OS5lhO9fPqtiz7OX77uy9y8Pz569PLzXum9vU/nt277tubi4EdaXLzvK5dG0u8kBuzIQZ4rWAOzjWL3Uf863xuLLI2wdbR VeXy7qJ7Pn1svqt/qo0BDJOSpcwkjTCZoze6Lt4dbiTXJDK0R4vjm2eHl 77tObm4EQ4u41WXGTujvLu7qz87dOXhjvBYPZtvL61mU6gvLTpcH2nOxURG2lftGvV831PrlXTr 0mjcx131j478Dwf0xUujhDwpzm EML3A3NQA7eMFTRBc3AjroA8QtP1l0Hqngs8Opb/Ec5gk lAjKIYwUi/nJXR8064bM6ij2LqZbmdrjSRo79tF9YK J9WzaVc/GWDURzZIzatvVKIREvKUOLsR2h1fBQzy9vA2lT 7uAmCixshIYSQ07NJI4QJvrx1l0/PD42QEEJ2wNmNcOqlUclLnyXevq3rnREaISGE7IDzG GMm2W eH94 czcUXpmaISEELIDLmGEwH99onw9YnDp1JhkyTsPNEJCCNkBlzLCa4BGSAghO4BG2IZGSAghO4BG 2IZGSAghO4BG2IZGSAghO0CDPWkTrVsL8TQaISGEXBNR4Cc10bq1EE jERJCCNkv4mk0QkIIIftFPI1GSAghZL Ip9EICSGE7BfxNBohIYSQ/SKeRiMkhBCyX8TTaISEEHJNfO1rXyNHiNathXjaekb4f169IYSQixLFpqcGAn30qyqk4 JGSFEUdSnRCAmgEVIUdZWKYsocIBohAZsywrdv306Goqh9K4opc4BohARszgin6OxG PH14cWL14ePOUllcV2oCyqKKXOAaIQEXJURSj/psao3CMYfD69fvDi8frdikI4CPvJkPpiTcv8ul03VVCMJxrq5uT/MHa4W1kn6ecwa6fynnoeXbbe0D2q3imLKHCAa4RXx/uXh2bOXh/dR2SO5GiOUPhJQXS8bn0bQUwTUqE fd8pAfrJzuj/c27Wbq8fO65RrRj15RTFlDhCN8BG8vS1xOXH7Nq63FnszQqmfHlVIK5A3zI vXxxeaDR/d98dmyCL8tIH8nwAbtW9ySYRBWyfJ Pe5C1h2IfPH8zj3eG tHG7y2h8FcpKu7xLzPVf35s8J12zd1KnrF1qB3N08xjNP34e8XrkHWnOf3Evz5v2gf5K/eicOnSNBuvaZVNPXFFMmQNEI1zG 5fP5P12e3hr8t7e1unV2aMRAnusaWiwczQmhMA CNLGDN5JwH1XBW6RT6u036g89dvPzRpeJdtHcx6dKWhgH2gwFkBfnelou2QIZayR/tJ4eb6Yn55bamfOA2UYZywfbfXx2HlAuh5QaWePJ56Tzjvlu3XNx9TTVhRTlLu7uzDfAtEIl/D 8PLZs8PL91GZmqTGqVwvm9jL2z6G3b7VNm8Pt6V zkf9klf3sTsjtFgNjDAFTwRABOIcCF1grXZGNgBDNp0Dbhlbg62tD83tY2weUf9WrXKfn8aV/mf1h3llkxu0y2WDz1tdvrZrjYv8wXrkfH/s 0htg3Mq6WBdqV0oiikAJqhE5QpEI1xAMqmJuz9cPsUl02xsxfyQn0wNpmpNEcAYTf9qgHszQkja FLyGRoidQA7M0W4jyQTMVlDFo9352PyqL9EgD/3nvqM cjKcR9S/Vavc5yMdnZ9Tfamyw19O7uQML cO8rVdNG6aU2M9omPfR2o/8pzlZLWuOYd62opiijXBY2YI0QgXcMyQsumV BKZ2Ji5 fYJMcao7kps1gghaZePakVG2F2uM5fOTGC976Nwd0kQAdwEzGQMQRBu5Sf5PHuprtFHOI9U98gl xWj8pC74995vLiOG9aFgrMbcJ eX8qBv17asR5fon4dSb I5aVoeB taKlFPWT6eePPzaQ9EI1wCdmyNS6PJxExZy/Ba bbM5o3lr8CmjbCluB4CqNkNuMAqc0jojSEpwGqeuVEDnzEO8n0QhpCX63X0Y4d9RPOw/br xsykUtXOm0qgsAxz038g9HOo mvloy/bp6uL84jXo5OWTb1Zpsy7pOPnl3r68vEkMj0aYce6Rjhys4wzq1QvMrySbl0a9XnCnoxwKtQJ5M 1G1cqnqAvKx5OW4dEI1zdCUN8UI SvT7w1N8Q8E3NM5tU0wnxs hneLCNEfazIpoyQurBohNQVKYopc4BohATQCCmKukpFMWUOEI2QgE0ZYXQJtAVFUftWFFPmANEI CdicEU7RVRhhvosVVDe nEtbvZy5lXnxcu/VK4opc4BohARclRFKP mxqoeABsNxbpPuRkSgu0jAy3dh6qCtOejcK1a6/f/oecscfbkx7/bdl/Yuzf5OWS97V27V39i8lj5XY vr8zVv6VjUZhTFlDlANEICrsYIpY8ENDBC/ PRKe/F5QIdxrcm0Qq6pwzGI30Xk7LlyQTbxqbCPzD03xzlO35OKb8auzPPwVdG1tKS9T3l2lNn0eeff7 4YxB9oT0ZIxonWrYXEz9MbodRPjyqkFWhohK8P7yT46q4jBevXOdBVAa/ zpnWqX6cGvVLnd4Yqh2O9hfWrce4cT9WXe20msHYGAeUxlGjd eAQat55HrNvrNcefplnmZlFcY ZvCoE/SlddOjXZNcV3ej2h/q XNK8ufffYlf00fX99g8crl9TdS721Y9/2MCjXWgVlNkcFNB/IH2YoRkXSQWnMcIgT3WNBQZYffFaglIVaAzj4NAJUKZ9FsHrz5ddjypXm8A3Q87N p2iTxmlk r8vj2HGsj0ACrATU4hzSPfm5lrNaYqqq8Oxc7j3oMlRtrkBY1x81103n1BlHtHkvbxjnJf8PzF7 XGjPI1D4/RPFJ 6/xFMGwURvW0zB9TJ1FkcFNB/IFohGQJEiPPZ4QWq9gIEXtMELcBzz6mRlk L0qngKxGEQXnrFI3H4/1q2rlZ lOpNoZ vpp3Hqt0jyP9F33FRiPTRd54/NpUXPcXNeX27G0LOXNOKc5 XYMW4Z0a4xUZuYStU/q18NeQqZOo8jgpoL4A9EIyRIkDpznM0JpU/BqGWEJZjbfP6JM5fOitPaXhECHOQUB09Y91q qla/KlwuPGuGSvqtyb2h2F2rl6oVjoE7QVuv6Nkj7dQv7Fa2R3xoD6ebzas6n1T6rM0C/ntQpFBncVBB/IBohWYLE5fPdLCPt8lGtphFaDQJW49Jo1bYzOq1jL40Of9i5UbdL1P0iHQXGwfhWGkytsbQujfo 80WjfIleOAF5/JmnMyczd7nSqczYqlxlzWueY nfjxuvWOCcpaV4anbq mteah28T1QvaFyFfz5U6qSKDmwriD0QjJEsQbzqfEba0zAhzngQpmU i3FCTGmRVdTS4doFZ29WG4euK7JhZetm2CpBuPh1Dk 12htaY vqpju/Hn7dTCuamfjdOZzJdntsBVSZj1yIwn6x4jFQwnGsuSmWabtVz drvtPWV eoYY/3bOYm0bzD6Q xJ g lnKROpsjgpoL4A9EIyRIkFpzWCKdCPUHB8ENzuSI9hXO4EkUGNxXEH4hGSJYgnnY6I6T2Kt1lXv 9Oyl46pk6ryOCmgvgD0QjJEsTTaIQURV1ekcFNBfEHohGSJYin8dIoRVGXV2RwU0H8gWiEZAnia Ru7WYaiqF0qMripIP5ANEKyBPG0yxmh9JMeo3r LsXqzk5/84K/YzDR nwq30059QaI5t2EK8n2f qxKGrDigxuKog/EI2QLEE84zJGKH0kIF vfLcrp/Xmi2SGLSOcaiCprvtR7zGd2pxofhSVFBncVBB/IBohWYJ40emNUOqnRxXSClQbIUwvMCk1jMg4ZpgJTBaGirsBm7vMkrbfxTNGXOZvvgtofvDZ/nC03nFY73D1/Fz/ p22rkFjHP1h6A7e0Ug9FUUGNxXEH4hGSJYgsfQ8RgjssaahygiLCXnBIM0XqHNuUmUambAP8 Vo /0w36dNV2XdzrQyNyTS KZfexzNA/l9J8FYY MY8 N33KgnpMjgpoL4A9EIyRLEM85nhBarVYxwiiFU9czO07e36dYxhLSf09ixXYOx jYPSm2Dc/dpirpiRQY3FcQfaC9GGP39PVITrVsLicnn YxQ2hS8KiO0BmXVMglooiHUlyc7ws8dbbp1DCE9xQhTPXNOU prHpTa0wipp60opswB2pMRRn ZnXRs1gghaZePavl6ybCqAN9dKnzczTLd53HlsiKklxbVaHJ2NX5VNnLJ0tb3xzYvZTf6L/UmjAP5NEVdsaKYMgeIRkjApo2wpaheCv5iBkoxsGQcdleXd0pVHnC7ytA0 t2nHa 6aQW17A9AV2N5A2sfhz/0jDqmbOrNMtpukKaoK1YUU YA0QgJ2JwRToWiqH0riilzgGiEBGzKCCmKoqYqiilzgGiEBNAIKYq6SkUxZQ4QjZCATRlhdAm0B UVR 1YUU YA0QgbvH95eFbuOei4fRvUeyJszgin6CqMMH1RvnsBlRt3lsr3tWbfl9ZWbuDhjURXpyimzAGiE TaAET57eXjfSj8xrsoIpZ/0WNXTuyWdI6Q7KxHYLhLg3Hcbj8zB3/FafsotyfVl06uem/Tr zKGW8/JCvPRuevXRoZqnuPYOSw9v1a7KF/zlo5FXUxRTJkDRCNs4I3v7e3h5vZtyX95i/fx7eGt1i3vbZOn7VN5zv/i/eHls 74/ctnJR7cVHW1r2eHl /R5vRcjRFKHwloYIT R7FT3ovLBTaMb01hJMgmg6jKOmOpjML3NWI4S1RMys4jmeDxcfAPDv03SOon2KKOnuPI2ixWq8 xsU4xD qkimLKHCAaYYPKkIwp5fz Munbw61JJ3ODYab83vBub29zHcmH6VXm MXhrZS/NW3KHKwZn5BNGqHUT48qpBVoaISvD 8k2Kp5pOD8Oge2KsDZ3Utfp/tR6hz0Ub/U6Y2g2tFof2Hdeowb8 PaoN5Zoa7d7WWVOfu 5BxtOuU1zg2TqeYXjGNVrRPW8Ej9JIxpzNL10enIOaZHu0a5ru5Gtb/mufjzDn74XBXN79g8crl9jVSvhWY9/4MMjXWgFiuKKXOAaIQNvAlpupVv09nM3t525plMDvm6oyxGifeKM77yvlJM QnZrBECe6xpKDLCzjQkAFWBzTwOApMIZdJvHaz6dNnhpHp9wH93j NG3S6Rx8zyaVUrX88Fh2N9lePg3GwfUHOsrKq8Oze79nXfKjfGIC1qjpvrotwYRLV7LG1b5xKdt 6g1ZpSveXiM5pHyW cvgmGjMKqnZf6YWkVRTJkDRCNs4A1Od2s P0pn80o7QYnVaQeol0Tf6s5QMYY4GPN8bNoILVaxESLWdHVTvLEBzj6mRlk L0qnAKzGEAXjrFI3H4/1q2rlp/Em9KXHUT/IM vXYebvVfURGE/Y1tUbpEXR3JJyXV9ux9KylBecS6vvOfl2DFuGdGuMVGbmErVP6tfDXkKm1lEUU YA0QgbeFPCZ4RID8yqM7LhpVFJS93bZ88Oz16 z2VigrI71Eustzm/ 9wQu8e6rwqMO9g9jqRnskkjhKRNwatlhCV42Xz/iDKVz4vS2l8SAhvmFARIW/dYv0XoL7hcZuuP9aXHUf9R3piq t7QsPOKLuu5euGYR87Rt0Har2PYr2iN/NYYSDefZ3M rfZZnQH69aTWUBRT5gDRCBskY ljcHgTTFjXmhGMzdzwomZayvr 1SwH42p9b3TH0jPZrBFC0i4f1WoaodUgQDUujVZtEbD6OvbS6H0f bIpNOp2ibpfpBuBsLoUmNT1W90s4/vSdDluXRr1eSNy4yCAV3Ow5mTOxe50qjUwGj1HN268jq1zGbk0Gq23GytJ81rz8G2iekH7IuTb5 5NaTVFMmQNEIyRg00bY0jIjzHkSlGQ iXJDTWqQVdXRYNoFYm1XG4SvK7JjZull2yggpmBa nGB3fdl0/7Y9 HyajPqFY/fmUyX53ZAlcnYtQnMJ6t5jmNzHDm/Us/la7/hevs MF8dY6x/OyeR9g3KD58H9TrpP5xyklpNUUyZA0QjJGBzRjgVagfCDSahuVyRnsI5bFRRTJkDRCMkYFNGSFG ddJd5/Tspe mYWldRTJkDRCMkgEZIUdRVKoopc4BohARsygijS6AtKIrat6KYMgdoT0ZIxonWrYV42sZultmq8 NlQvqGCl8ZEzZtJzqytzIN6tKKYMgdoL0ZI1kXi uWMUPpJj1U9vdvPuU26sw8B7yKBD59xBd81y8kinXtF 87Lk8jNoX2b/7K7Q6s7bFvPw9LnaGxdfb7mLR2L2pyimDIHiEZIliCx7TJGKH0koIERXuuPbm8hKMvOtf83hDNw I3vTRzK7YJub8qvz6cwzmeEpznXJum5hzalVFMWUOUA0QrIE8aLTG6HUT48qpBVoaIRX qPbY0E56jvXL/NN6b5/ 4PTlWlpP62xilrfecM59WsRz7tholrXzbXcEaqXkLU/1NP5Vv25544/rr17RTFlDhCNkCxBYsJ5jBDYY01DkRFe7Y9u53PrGenbzzelraGYYz33wbxH1Jpnmo9t69OiY23 tXEXpnLR aev6LfnBcwe1xozyNQ P0TxSfjCGCmsaPQeQlvlj6qSKYsocIBohWYLE6vMZocUqNkLEoK5uikM28NnH1CjL50XpFJg7Yy o7M6hZNx P9auamq99j/UbHgfzbgp1WzsZZ1CDtMjPrSjXjeaufWhZyuuf846grWpOvh3DliHdGiOVmblE7ZP69eD3Bs nKKbMAaIRkiVIPDjPZ4TSpuDVMsIS1Gy f0SZyudFae0vCQEPcwoCp617rF/V1Hzte6zf1nGSmXfOqYXylglCfaBPGvQPNfrQur4N0n69wn5Fa S3xkC6tbb2fFrtszoDdOtEnVRRTJkDtIYRrq2vfvWr4ThkO4gvne9mGWmXj2o1jdBqELgal0art p1haB17SfIkP7o9GF/VnsegX01Hx/I4nHdOqlC3ZWBmzmvfLBOvV33evUYujU5dV81rzcO3ieoF7YuQr dKnUVRTJkDtJYRfutb31oFxDYa4fYRbzqfEba0zAhzngQrmU/i4j 6HdQrivr29W06PG7M2ygFeFOn1EvjW5OxfQXmk X7K aV uvzK8P0c4/quXztt7mupm6ar44x1r dk0j7Bvxx7e0piilzgNY0wqhsLjTC60BiwmmNcCrUE5Le3JOTV6mncA5XpiimzAGiEZIliKedzg ipvUl3mde/k7KXjqnzKIopc4BohGQJ4mnbMcKbP/2nw HVV9KlKz7ykY87ehRFMWUOEI2QLEFeg9u5NAojlL67R0LILoAZQlFMmQNEIyRLEN/Zzs0y qbwb5RN8GffSXOE3v1ZUH4O3vz74eP/ /fDp1HZJdnKvLa6PmScK90RYt5RvoVGeB3Ic3k5I5R 0qM1wpt/ 43uBoVv/mv1Zrn/puQhyF0k2P3r4d3hPw5v3uR0aw4 H2nbLvXzncO9ls/l6LlL/77cGPjHr/ LqWvBvFTt X369f/IdTqV/sbmdXTODVrtonzNWzoWuSjXuCNE7FKicoVGeB3I83gZI5Q EpA1wsP//nEJZt RgO6N5z8uF QwvjWIZsCtjQ7GgXmXHeRjA/VI 2JStjyZ4HHjxT8ydI6pH/ePkJJfjd2ZZzLDx55XRKvPsbFOMQ9yenIciGLKHKBzGKHGLktUD9AIrwN5Dk9vhFI/PaqQViBrhGlHKMHsHiaSdxwpUH89B7kq2NmdTF/nDXaPagCon0qh2qSKtL wbj3GIZl0Phb5Xdb9N3sDv/ m9CFmVOrY42isfG7t YvKuQfk9lpu59KmNm/fR18n6Evrpke7Lrmu7ka1v pcbH/uefyzfzm8aa1xNL9j88jldl2r579Zr5tHfym8sQ7kUVzTjhAxq0VUn0Z4Hcjzdx4jBPZY05A1wm 5HiECXA3QV5MzjIEgJKJN 6sDVp8tuJ9Xrg38yrFZd1CljdmWDtAHtusAt8/sm6ki/uW6/8xqbV3v Y MOy7u2Vn2/FtTr12KYFprj5rpp3r1BpPPR qWt67fkB89jVT4hX/PwGM0j5bfOX4Bhh tvyvwxWY8cC6KYMgfolEaocWsM34ZGeB3Ic3c I7RYWSPUHSECXfpcUJQCkw129tG oXxelE7BWE0iCsy bqPMj23LNKimoIlAj370MdeJxoryp44LqvLAeGy64I3Pp4XmuLluNE/tQ8tSnlfQ1vYxNd OYcuQbo2Ryoyi9ol PewlZLIe/IyQXBp5Hs/zGaG0KXhZI x3hPIm0UCmxzZYRUHL50Vp7S BIAcFwdLWPdZvRQ6csnvQoPnp178juxTJ1zatsY6NMzquUJX3AbwrhxFHl/VcvXAM1Anaat1onn7twn5N WPyW2Mg3VpXez6t9pnOAP16ktXIMSGKKXOAaIRkCfI8nu9mGWmXj2pZI7Q7wurNMghWwSW1QSBD 8Orr2EuQ78rnTmoQjbqo4/tFeiQo4rM53CRTAq2YYrrZp4zZntdw/n0/1SXHCNceAbz TNKYk5m/3elU520Yjt2dQ rfjRuvXX3OPcHzCNwcq3y/BprXmodvE9UL2heQr fqy8ij4Y6QXBp5Hs9nhC1ZI6x2hBYNUjZY5QClKjfU Ha5vL8U2gVlVW0WKhOE7ZgZvWwbBceBaeR q2AfjRWMU244EX38JgzVlWfSmEbdWJ3JdHI7oMpk7HoE5pOJxxCqcxH5c9d0q57L137DNfZ9YL4 6xlj/dk6C9g2VdQ3qdbR202QV8j Qo5gyB4hGSJYgz NpjXAqkL4pBm8Ucr3AyENzuSKewjlsmGvcEU4FsY1GuH3Ed05nhHOlbwrpn49X//jlw7t0/KXDm3 bUn 7j/f/9yuH//6H0 vzccGjKIopc4BohGQJ8hrcjhFSFLVfRTFlDhCNkCxBPG07l0YpitqvopgyB4hGSJYgnradm2UeL fwx1ZvuA zZf0uu ZfKN6prmy9FHVEUU YA0QjJEsQzNmaECPDZzDqm/pFX/FHYoO6gv0afaizWYI6ZjTHexNK/5HpsnEhL2lDUhhXFlDlAaxkhYtJa0Ai3j8TvDRqhDfBI39xXX3cI1ao31TCieiNtP75 IYtXj/fufsI8I02do9WSNhS1YUUxZQ7QGkYI41qbaByyHcTTNm6EaadnDAblg50d6pidmW0/ZhhVX7ldqf/x8PpFX/ai2kKibGSnWvWb5577fX3f99ltIN04YqZ9PdM2l/v WlOgqGtTFFPmAK1hhGR/SGzduBHi8mNJB6aoZS1jqEwkk p15lmuZmr7yX2aeVSq 007RyTyPMp49rz8mLbeWH/R3CjqShXFlDlANEKyBPGFjX9GaIO9L0sc2SFNzde0zZ/bJxT1izlG dE4Y/UgpKP KOrKFcWUOUA0QrIE8ZIN7wg16KcC0Vjwb5VNzde0zW 1Tbu0xqXRqF8aIUUdVRRT5gDRCMkSxNOu4NJoMUN3OdOqZQxNw6jNLF1yRD1bH8fWiI3aN8tMvJ TZGsfXm9ofRV25opgyB4hGSJYgnrb1m2Vy8FfTSqZhLo1aM4mMwddP5L7M1x/0JpXKCFOVXB5s/7p5mX57tzJjNgyuNY7OI cnTemPoq5cUUyZA0QjJEuQ2HpaI5wKRVH7VhRT5gDRCMkSxNNOZ4QURVFTFcWUOUA0QrIE8TQaI UVRl1cUU YA0QjJEsTTeGmUoqjLK4opc4BohGQJ4mkbu1lmrnjTCEU9CUUxZQ4QjZAsQTxtg0ZY3SUZ37FZR COkqCehKKbMAaIRkiWIz2zNCP2X1SWtX0uIRCOkqCehKKbMAZpihM/NP7Jvbu4OD0Gdb394dXj /NXhQ1QWYevPbUsujrwWtmiE9RfVi6qdovs XSqz7Uw/VTvzfURpV/24NUVRF1MUU YATTJCa1IPd4ebtU2LRnh1iDds79Kofrm8fEE96fgvrKBdaYIvy6eEM9bKOBu/UkNR1NkVxZQ5QLON8NsPhzvsCrN5vbpD7OnTqR6Oyz k8w6yWf/D4dVzrXtzeP7qIaXvHux4zw vPmh6GV/72tfIEaJ1ayHP1YZvltFffnGGl5SMTAzO5hfzw2Hjl2gSrh1FURdXFFPmAM01wg vnnc7wmx2xbCKscG4 vxU/ 6hmOOwvjsG2HWijT9 BAj0X3zxBWnwtIwwKe/ophih/P/1C z pI3mtQyPRkhRm1IUU YATTLC8g9ioWVemo7y/Y7R1vfHibzrlOMH2UH2u8Pl0AjHuX4jhEHZ65XFsI5fGtX8e/xeZ7nbpm5XRCOkqE0piilzgObuCAstY4vyZxuhGmBviJq/FBrhOE9gR1j/xfb r9CjSMyr5GPnl/OsoaU6uUxVtRNQn0ZIUZtSFFPmAK1uhGOXRsP6 dgbXsrDZ4Yf rxHQCMcZ3NGOBWKovatKKbMAVrfCPNx Yd0Nrix gJ2gKjfGx9uonn8TTIKjXCcTRkhRVHUVEUxZQ7QFCO8CCt/TWOzRvj 5eHZs5eH91HZGaERUhR1lYpiyhygrRrhWjfJKGcxwsjUjhkdjZCXRimKWq4opswB2uyOcGVohON szginiEZIUVQUU YA0QhX5JgR4rh8dvrs8PK9KU Pt4fbZ1p c7h9a/o5MddvhIO7OXEX6YvD63fuzk h/kpEvtt0cAepbePuJp2ipXeX8q5UipqlKKbMAaIRrkhldIZkhG8Ptze3h7e2bjHA/KjmiPK3t9LW1D8xT2BHmI1PHUQNxRtLmL4/3EdtczL98sy5zMmPTVHUqKKYMgeIRrgiampRXjI6b5JidLa8agvjNMZ4Yp6AEcJDXvRfiBfzSse RqZktobbB742WtgMzqn lpvrBbeSVJzTn6U 8aR9VHWO4qV/Nx061/i5k/ V iqJaimLKHCAa4YocM0JfNlpOIzyqQb3qN0PzJdDKhIA1IrOLtLs Z4Tp12iQzn31Ptr41ZoukfvIJtrlmvzO9Pq stzYFEWNK4opc4BohCsyZoTJ2ILP/VpGiEujvq8T8jSMsJgOTMbs2Kyx2HRVhrbZFJFfjFMI64uitN0posz3lZA6vq2qlU9RVKgopswB ohGuyKgR5mMbD60B rIzfj4InogRYmMnZoYbZAY7M1W/Q0s7uGrR8 XIqSYVpSMjnNKXqpVPUVSoKKbMAaIRboTIRM/IkzFC/XyuXHL0xlIugQaXJrVssklNvTQaXAKNxofQTs2UoqijimLKHCAa4UagEfZ6lBEm4zFGkozF7vrc ji1VUuXLo9hRTjJCUdW/G1fr jk08tUU9Q8M82YZijquKKbMAaIRErA5I5zKZmVvvqEo6mSKYsocoDWMcG199atfDcd5DDTCcTZl hNet7lJofXcqRVGnUhRT5gCtZYTf ta3VgH/yKcRnh8aIUVRV6kopswBWtMIo7K5nNIIyTjRurUQT OlUYqiLq8opswB2osRknURT9vqzTIURe1JUUyZA0QjJEsQT9uYEQ7u6My/GsMf3aaoJ60opswBohGSJYg/bG1HmI1PHUQNxRtLmOaPblPUtSqKKXOAaIRkCeJp27s0qj gnSTmFf5KDEzNbAm1DX90m6KuU1FMmQN0LiPU9zaIyhUa4XUgz MGPyM0Jscf3aaofSiKKXOAaIRkCfI8bvFmGTUdmIzZsVljsemqDG2zKSLfvGBbBhmm7U4RZb6vh NTxbVWtfIqiQkUxZQ4QjZAsQZ7HLRohNnZiZvzRbYrajaKYMgeIRkiWIM/jNo1QP58rlxy9sZRLoMGlSS2bbFJTL40Gl0Cj8SG0UzOlKOqoopgyB iURoh4dAzfhkZ4Hchzt1EjTMZjjCQZi33RuR1bqqTKl0f5o9sUdTWKYsocoFPvCMt7PyCqTyO8D uT5O60RTmWzsjffUBR1MkUxZQ7QqY0QSPwbENUDiG00wu0jz HpjPC61V0K5Y9uU9R5FMWUOUDnMEIgMfCoCQIa4XUgzyONkKKoyyuKKXOAzmWEQOJgmG hEV4H8lzy0ihFUZdXFFPmAJ3TCKeA2EYj3D7iaVu9WYaiqD0piilzgGiEZAniaRszwsEdnflXY/ij2xT1pBXFlDlANEKyBPGHre0Is/Gpg6iheGMJ0/zRbYq6VkUxZQ4QjZAsQTxte5dG9Qe0k8S8wl JgamZLaG24Y9uU9R1Koopc4BohGQJEqc3 BmhMTn 6DZF7UNRTJkDtJYRIiatBY1w 4inbPFmGTUdmIzZsVljsemqDG2zKSLfmmdYXxSl7U4RZb6vhNTxbVWtfIqiQkUxZQ7QGkYI41qb aByyHSSeb9EIsbETM OPblPUbhTFlDlAaxgh2R/iGds0Qv18rlxy9MZSLoEGlya1bLJJTb00GlwCjcaH0E7NlKKoo4piyhwgGiFZgnjNRo0wGY8xkm QsdtfndmypkipfHuWPblPU1SiKKXOAaIRkCRKnT2uEU9ms7M03FEWdTFFMmQNEIyRLEE87nRFet 7pLofzRbYo6j6KYMgeIRkiWIJ5GI6Qo6vKKYsocIBohWYJ4Gi NUhR1eUUxZQ4QjZAsQTxtqzfLbEDRTTVWx8rX1JKxzjm/axbXaROKYsocIBohWYJ42laNsPtawkVuVNHA2AqQvtzWa7WJlL8iUhh N6PXoN8J6zN1LnPmXOnd4X60nX7OCvxXSfL87flnTnKXbXSOmrf4/Kk1FcWUOUA0QrIEiTsbNcIUnNyPaJ9bxwLkWHDNyZa6HwGozeHdvTcLI9/vlPWZOJclKj9iMNJ/ Xk8UfXdTK8TzrNobIxzjE8dVRRT5gDRCMkSJJZt0wgROLEzqH5EO8nuMjTQBnkIbiWvN4sSwEEO foM8DYzpEWaTy xPtw3qoa96l/Pi9Tv3ZXvME32gXsPABmOa80ljdGquD rldongPOyPgld958fux8hNeUtuTrVwro3vY3oNyrr5DdYtfS80WBsIfeS88E7faHzNS4/t59n OHv1WmnWa8zfz4mqFMWUOUA0QrIEeT9v0QiNUVTf4/MBBoryGkEYjyY/7cBaeaV H8BSENT86LGr1B9DmL9OTo9Tv2Z VqnMBM10 dTMKWW21gfn7cxB56d9pv5c26qeaV/1Haiak5d7DgZpo6gfjB2uW7A2vu ov7E812/1PNv18Krm5epF86dGFcWUOUA0QrIE8bQNGmEVtBDkcpCq8rNaeelf7BYNmHqsCvK0T9936lfq XJbz7dJ/Xd9V39Jo6pjFLaX87e/klPVGVkfTdv86DiqB/m012h5f96dfNoo7GfKupm1qZ5r/xyLojE0z5chjfatNnacqH1SMH9qVFFMmQNEIyRLkPfy9oywvvzUkS7/tQLTlLxKCFLo1wZLk6ftfT9IR W2nm8j6gJhHxi7sfodSKVB 1zXGOHk9Tk2P19uyyCf9hott crGqvbKBus26DecG2aisbQPF GtH2ec3aXb563Vvus4fNOjSmKKXOAaIRkCRJDt2aEwaVOXFpKgWbOpVGfJ5KAdd9Hse7yogTRKC 8KcMmA0KkPgLYejn3gS3n1Z3mdmdX1qsuyOa ce8kfW59sDLlxdYlP 4yO/SPKIJ/2iuqbc7I7obJ2kVrjpP7Muvl61XkHz7dVNIbmubLB85zzfTpcXyvku edaiuKKXOAaIRkCeJpGzPCMKiYAJ Di8whkYLfhDwbMDWvC1BBns4h7CP3reX2EWUiGEDfP5QNVpNZnRma/jX42jw1lsZYncz6wBxy2xdirIM20XGrb5828nPv19yau13b2vQrNcdx65b678es vRlvr orY7baqvlqYNO tyCcH0rxc87FSuKKXOAaIRkCfJ Pq0RTuVJq xcJqgZVHcov27XtjZznndqEE/mAtEIyRLE005nhFQne4nwqGiERYN1u7K1mfW8U4N4MheIRkiWIJ5GI6Qo6vKKYsocIBohWYJ4Gi NUhR1eUUxZQ4QjZAsQTxtYzfLnEq85EhRm1YUU YA0QjJEsTTtmqE3dcEVrvZYIkR0jwp6myKYsocIBohWYJ42kaNMJkQfv9xpdvPaYQUtWlFMWUOE I2QLEE8bZtGiO p4Xt4uPOu/kJy/b2/ 9edWdkfRk4GVuqYvOiHlVOR/U6c5ucdac6v50BR1NqKYsocIBohWYLE C0aofkicvVdrM6cBrfUi1H1eZ1RajqZHBKpnjO/aLeH8frG3BFS1JkUxZQ5QDRCsgTxtA0aYWVA5ldTImPyeVHa/opIzi755bjf/RWD9G0oijqZopgyB4hGSJYgcX97Ruh/vgtUP32W6yVFBhcZ3li 2SlW7X0biqJOpiimzAGiEZIliMdszQiDy5/l8mjj0mhlViOXRk290XxNo0x3jRRFnVRRTJkDRCMkSxBP25gRhrswd3nU7BT1ZpmqflXnyOVPUf hDyq6MN8tQ1GkVxZQ5QDRCsgSJ8ac1wqlQFLVvRTFlDhCNkCxBPO10RkhRFDVVPp7c3d0N8sbyI RohWYJ4Go2QoqjLy8cTGJ43vShPgWiEZAniabw0SlHU5eXjiZqeGp9PeyAaIVmCeNrGbpY5lcKb cKjNis/X7hTFFGt YyYIIBohWYJ42laNMP/E2VrBcElgPdpm5Tk SvVPz5VfxxnI1vNfDcnnY/vJnOSu2Wh9NY9GuDtFMQVMMUEA0QjJEiTGbdQIUyDc I9urz3Hx idzKO4GgwtnpP9q nlu5SRzmFEY2OcY3xqU4piinLMBAFEIyRLEE/bphEiSGMXsuUf3Z48xzSBIK aZ2M 2QyivLYwVvRDAC5/lhF169H7JvqSOb/z62rqNM6vKBpf89Jj8Hzlcvt8h8/foF5j/n5O1MUUxZQ5QDRCsgSJHVs0QrOj2eyPbs YY5jXMKU0zz7/3b0cR3n5uFY3zvCSp8qNOUgbRedu10aP09yMoSA/9dk4v5xMGstz/ZbnK X7tTSq5uXqRfOnNqMopswBohGSJYinbdAIqwCJgJoDYpWf5fOiNAJyK78c645C0Hq jVVVNnOOkB8zoQaix6oob0xmPpWQ7/tt9Bmee1 /XGId1MtjY6dYnVsw/7G18mVIo32rjR0nap8UzJ/ajKKYMgeIRkiWIHFje0ZYX rqSJceW0HQB0yfjgKozbemYev5NkaPmiM00ncnBG30a80jyosVB/reCJLG5tAo6/o1/QzqoSwb4ej5icbWxZchrc/XID94/ny9rMH8qc0oiilzgGiEZAkSv7dmhMFlRFzGSkEtKBsEvM4stE51adTUG83XNMrCgDlzjmFePc8i GfO j rSrjOVQZ4msz6 vjd52YyQdudgDbKsQSS3LkWpP/OZqK9X1qFxflbRGJrnylrPl0 X5y/qG0K nT 1GUUxZQ4QjZAsQTztdEZIURQ1RVE8mQtEIyRLEE9b3wijsrl8/vnnhBSi1wghFohGSJYgnkYjJNsneo0QYoFohGQJ4mk0QrJ9otcIIRaIRkiWIJ5GIyTbJ3qNEGKB aIRkCeJp5zfCKb8dGAVDsl i1wjZNlPe52sC0QjJEsTTzmuEU98cUTAk yV6jZDtM/X9vgYQjZAsQTztfEY4500RBUOyX6LXCLkO5rzvHwNEIyRLEE87jxHOfTNEwZDsl g1Qq6Hue//JUA0QrIE8TTuCMn2iV4j5DqY875/DBCNkCxBPI2fEZLtE71GyPaZ n5fA4hGSJYgnnZeIwRT3hxRMCT7JXqNkG0z5X2 JhCNkCxBPO38RjiFKBiS/RK9RgixQDRCsgTxNBoh2T7Ra4QQC0QjJEsQT6MRku0TvUYIsUA0QrIE8TQaIdk 0WuEEAtEIyRLEE/bphESQsgcIBohWYJ42vpGSFEUdQnRCMkSxNPWNUJCCLkkUWwiZAzxtPWMkBBCCLk2xNNohIQQQv aLeBqNkBBCyH4RT6MREkII2S/iaTRCQggh 0U8jUZICCFkv4in0QgJIYTsF/E0GiEhhJD9Ip5GIySEELJfxNNohIQQQvaLeBqNkBBCyH4RT6MREkII2S/iaTRCQggh 0U8jUb47Yc7LETi7iEoPwcfPjt88slnhw9R2SXZyry2uj6EkKtHYv95jfATGM7dQ5X3cCd5CHIX CXYPh7ubTw6ffcjp1hx8PtK2Xern7vCg5XM5eu7Svy83Bv7JZx9MXQvm1dW5GZnfh88 KX1V/Y3N6 icG7TaRfmat3QsQgg5gsS8MxvhJ3cS0L3xfHK5IIfxrUE0A25tdDAOzLvsIB8bqEfaF5Oy5ckEj xsv/pGhc0z9uH ElPxq7M48kxk 9rwiWn2OjXWKeRBCiCDx9dxG NnhASaSdxwpUH Wg1wV7OxOpq/zGXaPagCoX rUJqXtSoAP69Zj3CST7tN l/Vw1xv4w530IWZU6tjjaKx8bu35C XcA3J7LbdzaVObtjrxP0pXXTo12XXFd3o9pfdS62P/c8Pnw4fNZa42h x aRy 26Vs9/s143j/5SeGMdCCFPHokV6xnhP//zPzfROl2gywG6CnLmcRCkBJRJYKsDV58uu51Urw/ ybBadVGnjNmVDdIGtOsCt8zvDnWk31y333mNzas9/7Fxh VdW3keCn2/FtTr12KYFprj5rpp3r1BpPPR qWt67fkB89jVT4hX/PwGM0j5bfOX4Bhh tvyvxxJnodE0KuC/uebiExdF0jjPItGujS54IamGyws4 2rc L0ikYq0lEgdnXbZT5sW2ZBtUUNBHo0Y8 5jrRWFH 1HFBVR4Yj00XvPH5tNAcN9eN5ql9aFnKq405rX r7zn5dgxbhnRrjFRm5hK1T/TrYS8hE0KeBps3whLI9NgGqyho bworf0lEOQaAdnWPdZvRQ6csnvQoPnhszvZpUi tmmNdWyc0XGFqrwP4F05jDi6rOfqhWOgTtBW60bz9GsX9mvKH5PfGgPp1rra82m1z3QG6NeTEPI U2L4RWgbBKrikNghkCF59HXsJ8q587qQG0aiLOr5fpEeCIj6bw00yJdCKKaabfcqY7XkN59/3U11yjHDtEcDrzySNOZn5251Odd6G4djdOaT 3bjx2tXn3BM8j8DNscr3a6B5rXn4NlG9oH0B XquvowQctVcuRHmPAlQMlai3FDj25U6Gli7oKztarPwdXO 61cv20bBcWAaud8q2EdjBeOUG04w1h0M1ZVn0pilPx2rM5kuz 2AKpOx6xGYTyYeQ6jORfDnrulWPZev/YZr7PvAfHWMsf7tnATtG5R1Dep1tHbThJBrZ7NGSJ4QMPLQXK6Ip3AOhJAQGiE5IbrLvP6dlL10 TAh5WtAICSGE7BoaISGEkF1DIySEELJraISEEEJ2DY2QEELIrqEREkII2TU0QkIIIbuGRkgIIWT X0AgJIYTsGhohIYSQXUMjJIQQsmtohIQQQnYNjZAs4sOr54fnr57g3 b78Orw/Pmr2X9l4irWw/w5r0f/gLjv65F9n3r9FvW/8jnO5cm xzYIjXCEJQFxEjbYLgy8J8O82RPBH gt9cof3pVzsG1G/p7hxRnMNc9Xn4elz0e0Hm7t0t8/fMwYjwJ/CeT54VX5e5Tjc0AQtmtUB2TXl02vsX5r4OcR9H/2cyxIX769ed Vecx5Tdk6th8/11THn1f/fm2uiev7xvYxKDv D4XRcfzamP5L3srQCEd43It9hOjJ3gDdi7M2sYe7lqmZN5A/H7yBN3h iWNrv/i58etxJ8HOBQtJX x5x/j2uR05z/Q6qMpwbj4our7c62Y dUB NIPzCwL 2c/RGIAdO5lg1Pec1xTqOoNLpjk8b7QpRmXWaXRNTL3SrpqbL2ub4axxQJS3MjTCEcLFz0 ynJt78XZPZpffvQjKiz6hL9IPh1fP 3rPxWjKOFHf UXwyvw19epFXL34H8cr ybzBGOVv9GX51i/sGX 1dzN fhzHOQL6C9oH65pqocg0eXfPfRrPHgz5j7D59WMOXwnOv5mD68uvxIPU0sKayV8EY/nWT60xZs3AeYd16jBuzVqAE/1I3eB2UOfu 5BxtOuU1zk3XpuSNv57mv240373H7HOQXg XO8d6nC79cBfUKWX1mjRfU2keZl0Mtv/0D1sx3vKcl Mja Lm3NU3z01V1shLzB3HlNm8laERjjBc/O5F372ZciBK/ rq3niaH Ivc2jf5bjRN8pNfrXbSmXtN9FcRv/FG4yFOaY3kT2fnJ/m6OfeXL86v/Q3aO/QNbVzQ549NvNK5D7ltWmQ87ZjpjaYk1kPW27y7Y55uB65D993KQ9eN6n/CWuW6vl5tNZX0mXMrmyQPpZv12Osr3IcvScaa5rT1fpNWYM555vLo9drz nPcZjXnYN9Pdr hnPO/Wva9AVjTH3oGvg MN 73Idpk8aL5plw42m j0ODtm4dlLnjAOTltanbrAeNcITwCbF56QlqPHmlvH Bhy8cPfZ9pLZB3z69IrP7tXM/dp6t9Ng5 vzSxo1l67WObXufZ/Ptox0ngTc23rB6fKQPydPgVAWboN6gj7F0ax7Nuo0yP/ZYvg1sY33pcdQP8spaKsH8fdsojXat/KiNzYvKEmc4R61T2pkxtcyn3Vjha0rrg/SPQalj/1GAY31MBo4x9LHRTyLPD X2nGzdsK07L2XKOL682WY9aIQjHH1CkB578uwOytaJjn0fqX3Qt0 vSHjJYhS8kaTNQ2NOx au5 h3blovrB sqa3XOlaiPJvvH329At64CAr2zR6sB/rROlPG8HlRuhrTzGOs7rF C gveB3Y mN96XHUf5RX0Xg9RePNPd9E7v/DJc9RqOpkAyjlOkeXPvaaKu0V228 lveZ7jY/vLrr1qGax8ia2HHs LaOplt5iRnj DKbtzI0whGGi48nsb900V KwYu1vqThn7xUV9MoG7yQG337F4FNp36CF9VC0pj2BS6US3 NserPKeqywdyb6 feHNrOt3fpsqY2v3WsRHk2v5TXc7X17tJlJqR90Jq4HmWM46 b5pqF82itr6R9v0i751op61ryun67y2uSjvrSdDkOzq21poZ4/VrndeR8g/NL/Uv9S56j7xtzqsYdvAelvymvKT13m5/T JwQN8mU16qYYrrRpryGjqyJ66/bdZrYELQra4Byc06zxgFR3srQCEeoL3GYJ93nDfK7FwFewJqubooRtGzqzTLlRWDTqf7QnB5Dep GWOQhVYAnGSrs5vMmCF6qfu b5cwTpjWXGRbugfbimtl7rWInybL5v7 eU37RlDiaQJKasx8gYYcCr6uiaNeYR1s35rt/yGvTnIPjXQRXYfV827Y99Hy6vDohCa/2qdq33nckXwvND//k1fYlzjMfsDLXLW/oes30M xmYT55jdc5ar/Rhyu05V3VlHOxWTZvBOaSx6udmdByTn55Tk1f6XBkaIXkkCMj1i/zRmGB1fZxgPXbFqdfvGp8fvqZODY2QPJqx27 nYnd6/l/218Ya67FnTr1 1/j88DV1WmiEhBBCdg2NkBBCyK6hERJCCNk1NEJCCCG7hkZICCFk19AICSGE7BoaISGEkF1DIySEE LJraISEEEJ2DY2QXI7g9wtn8dj2hBAi0AhH2HWQdT9 W/2o81rrQiMkhGwAGuEIew6y9d8Mezjc2b9CQSMkhDwhaIQjREG2/vMh2SxyQH5lfji6 WdF0KcP4CYd9t/qZ5Dv6y//od741 7rP/WCXeIq6yH5x/vJ82m0r dJCCHToRGOUJlVhP65oBycS7BPfz8MbfHnU4K/6aWP2o9PK XPETX68X exfaD40cYYflrEP7PIbXmCpauh 1D60f9TG1PCCEzoBGOEAbZHJzl3PodiQ/Imp6br8dz rd1Eyv/CSOYEvpVQ4zmYsc/Nt8of24/rTQhhCyARjjCIMimYO0uP44F7LITmlgfj1H/U/s5GWbnacdszdfPa0r nH5aaUIIWQCNcIRBkHWBN32uhXQzQMNAGgHe7Nxa/ZT8Vj/ UqEljWHazOS5vSRq52Xn3pqvy6/n28/p6Hn7flrtSzkhhMyHRjhCfdmxC/72L6k/v7vrAnUz8MuxXlpUcn4K4r6fVv8j/XTG1MpfboT2ppjqJhxB54ibZR6zHkfP2/cz0r6UE0LITGiE5wRB3N98soS1 iGEEEIjPDV2p/OYG1nW6ocQQkgNjZAQQsiuoRESQgjZNTRCQgghu4ZGSAghZNfQCAkhhOwaGiEhhJBdQyMkhBCya 2iEhBBCdg2NkBBCyK6hERJCCNk1NEJCCCG7hkZICCFk11zMCAkhhJCtEHmVRzxtPSMkhBBCrg3x NBohIYSQ/SKeRiMkhBCyX8TTaISEEEL2i3gajZAQQsh EU jERJCCNkv4mk0QkIIIftFPI1GSAghZL Ip9EICSGE7BfxNBohIYSQ/SKeRiMkhBCyX8TTaISEEEL2i3jaZCP8HuEHhB8Tfj7qjBBCCLk2xNPuhT8Qfkv4VXicAK D58H7itQIf1T4uT/5kz85EEIIIdeOeNofC78n/Kbwy/A4AV4XGuH3Cz8ifPlv//ZvD3/zN39z Ou//uvDX/3VXx3 8i//8vAXf/EXhz//8z8nhBBCNgX8CT4Fv4Jvwb/gY59//jmM8I E3xV XfgKPE6A18HzQiP8YeGn/uEf/uHw93//94e/ 7u/Sx2Bb3zjG6ljQgghZEvAn9Sr4FvwL/jYP/7jP8IIf1/4beGZ8EvwOAFeNzDC7xa JPyg8BPCLwq/IvyG8DsCOoKrYov5vwR8 EgIIYRsDXgUvAqeBe Ch8HL4GnwNngcvA6eB 8rQuJ7BdxFgw8Rf0aAc/6agA7gpv9DwHXW/yngDhxCCCFka8Cj4FXwLHgXPAxeBk Dt8Hj4HXwvMoIv0vAbaS6K/xx4WcFNISLYkuJ66v4sBF33uA2VEIIIWRrwKPgVfAseBc8DF4GT4O36W4QngfvK0IC10rhkLiT5 ocENMCHithKohN8yIg7bnD7Kb6LQQghhGwNeBS8Cp4F74KHwcvgafA2eBy8Dp5XGSGELSIKvk9A RbgmtpA/Kfy0gI5w2ym jEgIIYRsFXgVPAveBQ Dl8HT4G3wOHhddVlUBWdUM4RbYuuI66hojDts8L0LdAbwrXxCCCFka6hPwbPgXfAweBk8TXeC8L rBblBlzRDXT GcaIzbTOGkAB0SQgghW0X9Ct4FD4OXwdOOmqAVKqkpqjEq6IwQQgjZKtaz1MfU1yiKoiiK6nVz8/8BLQw1ncHzs7cAAAAASUVORK5CYII=

This is the code as it now stands after researching the issue and attempting to troubleshoot the issue. You'll note that I adapted it to use form fields instead of content controls. It appears to be failing at the below point in the code.

"Next
.Close SaveChanges:=False"

We're finally implementing a permanent solution so I only need to get this to work for 2 more months. As it stands, the error is only allowing 1 document at a time and the volume is too great. Even for 2 months.


Sub GetFormData()
'Note: this code requires a reference to the Word object model
Dim wdApp As New Word.Application
Dim wdDoc As Word.Document
Dim FmFld As Word.FormField
Dim strFolder As String
Dim strFile As String
Dim WkSht As Worksheet
Dim i As Long
Dim j As Long

'Defines "strfolder" as the appropriate folder from which you want to pull your word documents from
'It does so using the "GetFolder()" separate function below
strFolder = "T:\Uploads"

'If there is nothing in the specified folder, this line tells the macro to stop
If strFolder = "" Then Exit Sub

'Set data to dump on sheet number one regardless of what sheet in the work book you are on
Set WkSht = Worksheets(1)

'Sets "strFile" as the name of the first word doc in the chosen folder path
strFile = Dir(strFolder & "\*.docx", vbNormal)

'Prevents screen from refreshing during Macro to make it more efficient (???)
Application.ScreenUpdating = False 'moved this down (if Exit Sub is executed, it'll never be set back to true).

'The below while loop grabs a word doc in the specified folder, pastes all the form field resulsts of a word doc in a specified row/column based on the column header in row 1
i = WkSht.Cells(WkSht.Rows.Count, 1).End(xlUp).Row

strFile = Dir(strFolder & "\*.docx", vbNormal)
While strFile <> ""
i = i + 1
Set wdDoc = wdApp.Documents.Open(Filename:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
With wdDoc
j = 0
For Each FmFld In ActiveDocument.FormFields
j = j + 1
WkSht.Cells(i, j).Value = FmFld.Result
Next
.Close SaveChanges:=False
End With
strFile = Dir()
Wend
wdApp.Quit
Set wdDoc = Nothing: Set wdApp = Nothing: Set WkSht = Nothing
Application.ScreenUpdating = True
End Sub

PS I owe you a for drink for all the gratitude I've received for this solution.
:beerchug:

macropod
09-19-2022, 08:54 AM
Unless MS has messed up a recent Office update (always possible), I suspect a problem has developed with your Office installation. You might try repairing it.

Thyme2Cook
09-19-2022, 11:53 AM
The problem was reported to me by anther user and I confirmed it on my machine. Nevertheless I tried repairing the installation and there is no change.

I first suspected a Windows update and the only clue I found was this comment about Excel 4.0 macros.



https://learn.microsoft.com/en-us/officeupdates/current-channel#excel-14
Version 2202: February 28
Version 2202 (Build 14931.20120)
Feature updates

Excel


Excel 4.0 (XLM) macros will be disabled by default to improve security for Microsoft 365 customers.: To help protect customers, Excel 4.0 (XLM) macros will be disabled by default in Microsoft 365. We encourage you to migrate these macros to the latest version of Microsoft Visual Basic for Applications (VBA). Learn more (https://support.office.com/article/ba8924d4-e157-4bb2-8d76-2c07ff02e0b8)



How can I put in an error check to skip to the next word doc and continue the process again? Then finally do something like quit the Word Application so that there are no invisible documents open in the background.

macropod
09-19-2022, 02:43 PM
This has nothing to do with Excel 4 macros. Nor is likely to be anything to do with an update that old - the update may be so recent that MS hasn't documented whatever problems it has caused.


As for quitting Word, wdApp.Quit is already in the code.

For problem solving purposes, though, you may want to insert
wdApp.Visible = True
after
Application.ScreenUpdating = False
and change
Visible:=False
to
Visible:=True
so that you don't need to use Task Manager to kill any orphaned Word sessions that might be left running in the background (possibly with open documents).

Thyme2Cook
09-19-2022, 04:18 PM
This has nothing to do with Excel 4 macros. Nor is likely to be anything to do with an update that old - the update may be so recent that MS hasn't documented whatever problems it has caused.

That is what I thought, but thanks for confirming.


As for quitting Word, wdApp.Quit is already in the code.

The trick here is that the VBA errors out before getting to adApp.Quit. I'm trying to work out an If error check in the middle of the For loop. Or since there are 91 Form Fields, when j=91 maybe have it exit the loop and continue on with the process. But I am not writing it correctly. My thinking is that I can have it run through the 91 form fields and then close the document and continue on with the rest of the word docs in the folder.

macropod
09-20-2022, 05:29 AM
The trick here is that the VBA errors out before getting to adApp.Quit.
I am aware of that but, since the error apparently occurs at
.Close SaveChanges:=False
a crashing macro will leave both a running Word session and an open document. The changes I suggested were to facilitate manually closing the document and terminating the Word session. Moreover, they will allow you to check which particular document is having issues and perhaps identify whatever is peculiar about it. If, for example, your document has formfield checkboxes, you'll need something like the code I posted here: http://www.vbaexpress.com/forum/showthread.php?40406-Extracting-Word-form-Data-and-exporting-to-Excel-spreadsheet&p=291047&viewfull=1#post291047

Thyme2Cook
09-20-2022, 11:42 AM
It turns out that a change on 9/1 to the VBA in the Word document's template is causing the issue. I had added some code to manage the dropdown values of the last form field. When I attempted to import form data that predates the change there is no error. I believe the error was occurring at the "Next" part of the VBA because the only difference between an 8/31 version and a 9/1 version is that VBA code on the word template. Though, I can't seem to identify what the underlying difference actually is, because the form field bookmarks are the same and the number of form fields are the same.

My suspicion is that the FmFld is the object definition that keeps getting broke once it reaches the last form field. If that's not the case and there's no fix, then I'll just call it good since I have a solution. Even if we have to go back to a previous version of the Word Template.


If, for example, your document has formfield checkboxes, you'll need something like the code I posted here: http://www.vbaexpress.com/forum/show...l=1#post291047 (http://www.vbaexpress.com/forum/showthread.php?40406-Extracting-Word-form-Data-and-exporting-to-Excel-spreadsheet&p=291047&viewfull=1#post291047)

Even though my original code was handling the checkboxes fine I used yours since I had already tweaked it so much. This is the code that I went with since I had been importing checkboxes as 1 or 0 this whole time and I couldn't accept the TRUE or FALSE for the checks.


With wdDoc
j = 0
For Each FmFld In .FormFields
j = j + 1
Select Case FmFld.Type
Case Is = wdFieldFormCheckBox
If FmFld.CheckBox.Value = True Then
WkSht.Cells(i, j) = 1
Else: WkSht.Cells(i, j) = 0
End If
Case Else
WkSht.Cells(i, j) = FmFld.Result
End Select
Next
End With


Thanks for the help.

macropod
09-20-2022, 02:35 PM
It turns out that a change on 9/1 to the VBA in the Word document's template is causing the issue. I had added some code to manage the dropdown values of the last form field. When I attempted to import form data that predates the change there is no error.
Without seeing what specific changes you made, I really can't comment on their impact.

Thyme2Cook
09-20-2022, 05:08 PM
Without seeing what specific changes you made, I really can't comment on their impact.

I'm chalking this one up to gremlins and since I now have a solution I'm good. Here's the code that I added to the Word template that I assume caused the issue in case anyone is interested. Restoring a previous version of the template that does not have this code resolved my issue.


Dim InAcRsn As String

'''''Manages "Inactive_Reason" dropdown.

With ActiveDocument.FormFields("Inactive_Reason").DropDown.ListEntries
.Clear
.Add " "
.Add "Deceased"

End With
If InAcRsn = "" Then
ActiveDocument.FormFields("Inactive_Reason").Result = " "
Else
ActiveDocument.FormFields("Inactive_Reason").Result = InAcRsn
End If


Till next time

macropod
09-21-2022, 07:08 AM
There's nothing obviously wrong with that code, though it could be improved:

With ActiveDocument.FormFields("Inactive_Reason").DropDown.ListEntries
.Clear
.Add " "
.Add "Deceased"
End With
If InAcRsn = "" Then InAcRsn = " "
ActiveDocument.FormFields("Inactive_Reason").Result = InAcRsn