Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Word - wpis do tabeli
anonim




Typ: Nie zarejestrowany
Word - wpis do tabeli

Chce za pomocą formatki wpisywac dane do tabeli Worda. Ale chce aby po wcisnieciu klawisza na formatce dopisz makro przelecialo po tabeli i w kolumnie lp. wpisalo kolejny (własciwy ) numer porzadkowy. Prosze o pomoc!!!!

10-10-2004 21:10
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


Sub DodajWpis()
Dim tbl As Table

Set tbl = ActiveDocument.Tables(1)
With tbl
    'dodaj wiersz
    .Rows.Add tbl.Rows(tbl.Rows.Count)
    'w kol. 1 wstaw ilość wierszy/wpisów
    .Cell(tbl.Rows.Count, 1).Range.Text = tbl.Rows.Count
    'inne dane z formatki
    .Cell(tbl.Rows.Count, 2).Range.Text = "bla"
    .Cell(tbl.Rows.Count, 3).Range.Text = "dsa"
End With
Set tbl = Nothing
End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

12-10-2004 21:50
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003

W powyższym kodzie jest błąd!

Nadpisywane są wartości, bo wiersz dorzucany jest jako przedostatni. Zatem wartości przesuwają się w dół i są nadpisywane przez kod.

Poprawka:

Sub DodajWpis1()
Dim tbl As Table

Set tbl = ActiveDocument.Tables(1)
tbl.Select
Selection.MoveDown Count:=1
Selection.InsertRows 1
With tbl
    .Cell(tbl.Rows.Count, 1).Range.Text = tbl.Rows.Count
    .Cell(tbl.Rows.Count, 2).Range.Text = "bla" & tbl.Rows.Count
    .Cell(tbl.Rows.Count, 3).Range.Text = "dsa" & tbl.Rows.Count
End With
Set tbl = Nothing
End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

15-10-2004 21:01
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1