Fråga : VBA uttrycker

Hi

I önskar till ise VBA att sätta in en serie av bordlägger i en uttrycka doc för ”räknings” tider inom en kretsa. Hur skulle spänna var fastställd, så att inom kretsa som varje bordlägger, följer rpecedingen?

For 1 till fastställd myRange för count
= objDoc.Range (??? )
objDoc.Tables.Add spänner: =myRange NumRows: =3 NumColumns: =4
next
 " klar "

Svar : VBA uttrycker

Du behöver att sätta en stycke markerar mellan bordlägger, eller de ska sammanfogning tillsammans.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

UnderInsertTables (objDoc som Word.Document)
    Dunkelt objTable som Word.Table
    Dunkla MyRange som Word.Range
    Dunkel t som heltal
    
    Const räkning = 5
    
    Fastställda MyRange = objDoc.Range
    För t = 1 till 5
        Fastställdt objTable = objDoc.Tables.Add (MyRange, 3, 4)
        Fastställda MyRange = objTable.Range
        MyRange.Collapse-wdCollapseEnd
        MyRange.Move-wdCharacter, 1
        MyRange.Text = vbCr
        MyRange.Collapse-wdCollapseEnd
        MyRange.Move-wdCharacter, 1
    Nästa t
Avsluta suben
Andra lösningar  
 
programming4us programming4us