Tabele

Informatii despre cum se utilizeaza Microsoft Word 2003. Editare, formatare, automatizare de documente
Apostolu
Mesaje: 285
Membru din: Joi Aug 20, 2009 4:05 pm

Tabele

Mesaj de Apostolu » Vin Oct 11, 2013 5:10 pm

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

Apostolu
Mesaje: 285
Membru din: Joi Aug 20, 2009 4:05 pm

Re: Tabele

Mesaj de Apostolu » Mie Oct 16, 2013 10:19 am

Nici o idee ?

Avatar utilizator
queensoft
Mesaje: 597
Membru din: Mar Ian 24, 2012 5:11 pm

Re: Tabele

Mesaj de queensoft » Dum Oct 20, 2013 6:38 pm

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:

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

Apostolu
Mesaje: 285
Membru din: Joi Aug 20, 2009 4:05 pm

Re: Tabele

Mesaj de Apostolu » Dum Oct 20, 2013 7:44 pm

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 !

Apostolu
Mesaje: 285
Membru din: Joi Aug 20, 2009 4:05 pm

Re: Tabele

Mesaj de Apostolu » Dum Oct 20, 2013 10:58 pm

Functioneaza chiar bine.
Si pot sa stetez ce vtreau sa pastrez si ce nu ! :ugeek:
Sa trecem la vot.

Avatar utilizator
queensoft
Mesaje: 597
Membru din: Mar Ian 24, 2012 5:11 pm

Re: Tabele

Mesaj de queensoft » Lun Oct 21, 2013 9:44 am

Ai reusit si faza cu spacing ?
Bafta si mersi !!

Apostolu
Mesaje: 285
Membru din: Joi Aug 20, 2009 4:05 pm

Re: Tabele

Mesaj de Apostolu » Mie Dec 04, 2013 7:46 pm

Cum fac sa inlocuiesc Grid1 cu Grid ?
Ca da eroare si la Grid simplu si la Grid0. :)

Avatar utilizator
queensoft
Mesaje: 597
Membru din: Mar Ian 24, 2012 5:11 pm

Re: Tabele

Mesaj de queensoft » Joi Dec 05, 2013 2:46 pm

CE eroare da ?
Iti da eroare la acelasi fisieru la care mergea inainte ?
Sau la alt fisier ?

Apostolu
Mesaje: 285
Membru din: Joi Aug 20, 2009 4:05 pm

Re: Tabele

Mesaj de Apostolu » Joi Dec 05, 2013 5:59 pm

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.

Avatar utilizator
queensoft
Mesaje: 597
Membru din: Mar Ian 24, 2012 5:11 pm

Re: Tabele

Mesaj de queensoft » Sâm Dec 07, 2013 5:33 pm

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

Închis

Înapoi la “Intrebari despre Word 2003”