If = "1" Then cell.Value = "YES"Ĭase = True And vField.Checked = False If vField.Type = wdContentControlCheckBox ThenĬase vField.Checked = True And vField.Checked ''''''' Workbooks("DARTS.xlsm").Activate 'Needed? Not needed if macro ran from it. OutPath = "C:\Documents and Settings\richard.b.rivera\Desktop\dart Processed\"įor Each vField In wdApp.Documents(myDoc).ContentControls InPath = "C:\Documents and Settings\richard.b.rivera\Desktop\dart UnProcessed\" ' Add Tools > References: Microsoft Word and Microsoft Scripting Runtime You might want to check for True or False rather than "1" or "0" to set the Yes or No for cell.Value. "Q:\Sales Reports\Processed\" & vFileName VLastRow = + 1įor Each vField In wdApp.Documents(myDoc).FormFields
I pinned down the problem to being just a wording problem in MS, but then again, it might be a little more complicated Meaning: copying the contents of the fields from all the different reports into 1 excel report.īelow is a Macro I found which works for legacy forms (FieldForm) (pre-2007) but I cannot seem to make it work for 2010.
These contains all kinds of different Content Control fields (Drop down, rich text, dates etc.), and the data in there should be copied to an excel sheet. I've been searching all kinds of fora for this problem and although I find information on how to do this with (legacy) Form Fields, my problem involves Content Control fields and I can't seem to fix this.īasically I have Sales Reports that are being filled out on a weekly basis by all Sales Reps.