Frage : VBA Wort

Hallo, möchten

I zum ise VBA eine Anzahl von Statistiken in einem Wort Doc. für „Zählimpuls“ Zeiten innerhalb einer Schleife einsetzen. Wie eingestellt die Strecke e, damit innerhalb der Schleife jede Tabelle das Rpeceding folgt?

For 1 count
zu gesetztem myRange = zu objDoc.Range (??? )
objDoc.Tables.Add Strecke: =myRange, NumRows: =3, NumColumns: =4
next

Antwort : VBA Wort

Sie müssen eine Punktmarkierung zwischen die Tabellen setzen, oder sie vermischen zusammen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

VorInsertTables (objDoc als Word.Document)
    Schwaches objTable als Word.Table
    Schwaches MyRange als Word.Range
    Schwaches t als ganze Zahl
    
    Const Zählimpuls = 5
    
    MyRange = objDoc.Range einstellen
    Für t = 1 bis 5
        Gesetztes objTable = objDoc.Tables.Add (MyRange, 3, 4)
        MyRange = objTable.Range einstellen
        MyRange.Collapse wdCollapseEnd
        MyRange.Move wdCharacter, 1
        MyRange.Text = vbCr
        MyRange.Collapse wdCollapseEnd
        MyRange.Move wdCharacter, 1
    Folgendes t
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us