September 5, 2008 08:40pm pdt

1. capricorn1 837,755
2. LSMCons... 448,361
3. boag2000 416,712
4. DatabaseMX 323,032
5. peter57r 295,165
6. harfang 264,026
7. jimhorn 170,911
8. matthews... 135,645
9. TextReport 130,246
10. MikeToole 114,323
11. omgang 97,947
12. frankytee 91,914
13. koutny 90,035
14. angelIII 79,170
15. Rick_Ric... 71,927
16. GRayL 70,880
17. eghtebas 65,987
18. ee_rlee 62,522
19. irudyk 62,160
20. LennyGray 61,992
21. rorya 61,932
22. hnasr 59,055
23. cactus_d... 55,098
24. jefftwilley 54,222
25. wiswalld 53,743

1. capricorn1 1,458,600
2. LSMCons... 680,480
3. DatabaseMX 625,757
4. peter57r 532,674
5. boag2000 456,624
6. harfang 445,574
7. jimhorn 366,901
8. jefftwilley 350,437
9. matthews... 284,909
10. mbizup 241,400
11. frankytee 227,167
12. stevbe 220,614
13. MikeToole 219,373
14. omgang 170,182
15. GRayL 156,686
16. rockiroads 151,183
17. LPurvis 135,020
18. TextReport 130,746
19. angelIII 122,228
20. JDettman 120,940
21. ragoran 112,130
22. koutny 105,060
23. Rick_Ric... 95,527
24. eghtebas 93,562
25. dqmq 89,656

06.24.2008 at 04:23PM PDT, ID: 23512991

	[x] Attachment Details

Microsoft Word Create Nested table within a table

Asked by KeithMcElroy in Access Coding/Macros

Tags: Microsoft Access, VB Script, Microsoft Word Automation

newtbl = wrdDoc.Tables.Add(wrdRow.Cells(z), 2, 3)
see the above line in the code snippet.

I am trying to create a 2 column x 3 row table nested in a cell using Microsoft Access and this attempt returns Type mismatch err 13.

How can I create a table inside a table in the context of the code provided?
I'm stuck..
Thanks!Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

           
           
             'ITEMS AND SALES ARRIVE TO THIS FUNCTION
 
    Dim wrdApp  As Word.Application
    Dim wrdDoc  As Word.Document
    Dim wrdTbl  As Word.Table
    Dim wrdRow  As Word.Row
 
  
    
    strTmp = CurrentProject.Path & "\Sales-Sheet-Tailsheet.doc"
    strTail = "C:\SALEDB\DocPrep\TailSheet.doc"
        FileCopy strTmp, strTail
    Set wrdApp = New Word.Application
    Set wrdDoc = wrdApp.Documents.Open(strTail)
    Set wrdTbl = wrdDoc.Tables(1)
 
    
    'wrdTbl.Rows.Add
    Set wrdRow = wrdTbl.Rows.Last
    wrdRow.Cells.Add
    wrdRow.Cells.Add
    wrdRow.Cells.Add
    wrdRow.Cells.Add
    wrdRow.Cells.Add
    wrdRow.Cells.Add
    wrdRow.Cells.Add
    
 
            If bldghandled = False Then
            building_fields = "SQFT:USETYPETEXT"
            building_count = 2
            'merge cells
            wrdRow.Cells(z).Merge wrdRow.Cells(z + 1)
            'add table
            newtbl = wrdDoc.Tables.Add(wrdRow.Cells(z), 2, 3)
            
     
            End If
    
 
Set wrdDoc = Nothing
 
 
'close the word doc
wrdApp.Quit True  'true is for saving changes
 
Set wrdApp = Nothing

           
         

Keywords: Microsoft Word Create Nested table wi…

	Title
1	Nested Tables not working?
2	Css formatting of Table inside a nested…
3	How do i do Multiple Nested Repeaters?
4	Self Join with a nested table
5	Countif Function with multiple criterias
6	nested case statement

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Microsoft Word Create Nested table within a table

Asked by KeithMcElroy in Access Coding/Macros

Tags: Microsoft Access, VB Script, Microsoft Word Automation

About this solution