Vraag : Word VBA

Hallo, wil

I aan ise VBA een reeks lijsten in een woorddoc. voor „tellings“ tijden binnen een lijn opnemen. Hoe zou de waaier geplaatst worden zodat binnen de lijn elke lijst rpeceding volgt?

For 1 aan count
plaatste myRange = objDoc.Range (??? )
objDoc.Tables.Add Waaier: =myRange, NumRows: =3, NumColumns: =4
next

Antwoord : Word VBA

U moet een paragraafteken tussen de lijsten zetten, of zij zullen samen samenvoegen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Sub InsertTables (objDoc als Word.Document)
    Schemerige objTable als Word.Table
    Schemerige MyRange als Word.Range
    Schemerig t als Geheel
    
    De Telling van Const = 5
    
    Vastgestelde MyRange = objDoc.Range
    Voor t = 1 tot 5
        Vastgestelde objTable = objDoc.Tables.Add (MyRange, 3, 4)
        Vastgestelde MyRange = objTable.Range
        MyRange.Collapse wdCollapseEnd
        MyRange.Move wdCharacter, 1
        MyRange.Text = vbCr
        MyRange.Collapse wdCollapseEnd
        MyRange.Move wdCharacter, 1
    Volgende t
Sub van het eind
Andere oplossingen  
 
programming4us programming4us