Fråga : Automatiskn tillfogar ett nytt ror i en bilda uttrycker in

Jag har en uttrycka att bilda att jag önskar att låsa. Längst ner av bilda jag har en tid att fodra bordlägger att behöver att fyllas ut. Portion av bordlägga som vad jag önskar att ska hända, är att, när en användare skriver in in i händelsen, jag önskar bordlägga till automatiskn tillfogar en ro, sedan användaren ska för att inte vara kompetent to. Attachments: för >
<-/div> filenamen " för class= för >Email-Related-Incident.doc " fileSize " > (67 KB) " javascript för href= " för <-/span> <-/div>
för >
<-/div> Related lösningar för class= ": title= " cell för Cell bordlägger automatiskn tillfogar Row

Svar : Automatiskn tillfogar ett nytt ror i en bilda uttrycker in

Ska detta tillfogar ett nytt ror med nya formfields. Det kopplar sig från från strömcellen och förbinder den till den nya sist cellen.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

UnderNewRow ()
    Dunkel tbl som bordlägger
    Dunkel rw som ror
    Dunkel cl som cellen
    Dunkel ffld som FormField
    
    ActiveDocument.Unprotect-'lösenord
    Fastställd tbl = Selection.Tables (1)
    
    'ta bort EntryMacro från strömjumbocellen
    Fastställd cl = Selection.Cells (1)
    Fastställd ffld = cl. Range.FormFields (1)
    ffld.EntryMacro = "",
    
    Uppsättning rw = tbl. Rows.Add
    För varje cl i rw. Celler
        ActiveDocument.FormFields.Add-cl. Spänna wdFieldFormTextInput
        Om cl.ColumnIndex = rw. Cells.Count därefter
            Fastställd ffld = cl. Range.FormFields (1)
            ffld.EntryMacro = ”NewRow”,
        Avsluta om
    Nästa cl
    ActiveDocument.Protect-wdAllowOnlyFormFields, True ', lösenordet
Avsluta suben
Andra lösningar  
 
programming4us programming4us