Tabele
Tabele
Am o gramada de tabele in tot felul de stiluri, intrucat este normal faptul ca fiecare vrea sa fie si designer.
Asa ca mi-ar place un script care sa-mi ia toate tabele din document si sa mi le faca "Table Theme" din Office.
Adica chior, fara culori, linii fateziste, si in special fara "spacing".
Before & after spacing = 0
Se poate face automat ?
Multumesc
Asa ca mi-ar place un script care sa-mi ia toate tabele din document si sa mi le faca "Table Theme" din Office.
Adica chior, fara culori, linii fateziste, si in special fara "spacing".
Before & after spacing = 0
Se poate face automat ?
Multumesc
Re: Tabele
Se numesc Table Styles - am innebunit cautind table themes.
Nu stiu exact despre ce optiune spacing este vorba.
Punctul de pornire: http://msdn.microsoft.com/en-us/library ... e.10).aspx
COntinuare - ceva cu spacing si prelucrare toate taelele: https://groups.google.com/forum/#!topic ... y84PgKieAA
Codul final:
Nu stiu exact despre ce optiune spacing este vorba.
Punctul de pornire: http://msdn.microsoft.com/en-us/library ... e.10).aspx
COntinuare - ceva cu spacing si prelucrare toate taelele: https://groups.google.com/forum/#!topic ... y84PgKieAA
Codul final:
Cod: Selectaţi tot
Sub formatare()
Dim i As Long
With ActiveDocument
For i = 1 To .Tables.Count
.Tables(i).Range.ParagraphFormat.SpaceAfter = 0
.Tables(i).Range.ParagraphFormat.SpaceBefore = 0
.Tables(i).AutoFormat Format:=wdTableFormatGrid1, _
ApplyBorders:=True, _
ApplyShading:=True, _
ApplyFont:=True, _
ApplyColor:=True, _
ApplyHeadingRows:=False, _
ApplyLastRow:=False, _
ApplyFirstColumn:=False, _
ApplyLastColumn:=False, _
AutoFit:=False
Next
End With
End Sub
Re: Tabele
Dragul meu,
In word 2003 eu am Table AutoFormat; (All table tyles); Table Theme sau Table Grid.
Dar ... bine ca ne-am inteles intr-un final apoteotic. )))
Sa vedem cum functioneaza.
Multumesc !
In word 2003 eu am Table AutoFormat; (All table tyles); Table Theme sau Table Grid.
Dar ... bine ca ne-am inteles intr-un final apoteotic. )))
Sa vedem cum functioneaza.
Multumesc !
Re: Tabele
Functioneaza chiar bine.
Si pot sa stetez ce vtreau sa pastrez si ce nu !
Sa trecem la vot.
Si pot sa stetez ce vtreau sa pastrez si ce nu !
Sa trecem la vot.
Re: Tabele
Ai reusit si faza cu spacing ?
Bafta si mersi !!
Bafta si mersi !!
Re: Tabele
Cum fac sa inlocuiesc Grid1 cu Grid ?
Ca da eroare si la Grid simplu si la Grid0.
Ca da eroare si la Grid simplu si la Grid0.
Re: Tabele
CE eroare da ?
Iti da eroare la acelasi fisieru la care mergea inainte ?
Sau la alt fisier ?
Iti da eroare la acelasi fisieru la care mergea inainte ?
Sau la alt fisier ?
Re: Tabele
Mi-a dat eroare la alte fisiere.
Run-time error '4608'
Value out of range- pentru Grid
Aceiasi eroare la Grid0
Nu merge nici cu Normal
Dar functioneaza daca scriu Professional, din tabela aceea de tabele predefinite.
Run-time error '4608'
Value out of range- pentru Grid
Aceiasi eroare la Grid0
Nu merge nici cu Normal
Dar functioneaza daca scriu Professional, din tabela aceea de tabele predefinite.
Re: Tabele
Se pare ca nu toate themele de tabele suporta toate stilurile, deci, toate constantele respective.
Ai aici lista completa, vezi care merge la tine. Da, nasol, le probezi pe rind.
http://msdn.microsoft.com/en-us/library ... e.10).aspx
Ai aici lista completa, vezi care merge la tine. Da, nasol, le probezi pe rind.
http://msdn.microsoft.com/en-us/library ... e.10).aspx