No to pomoge;)
Sub qq()
Dim zmie
Set objw = CreateObject("word.application")
Set oword = objw.documents.Open("c:\doc.doc")
Set owtab = oword.tables(1)
zmie = owtab.Cell(1, 2)
zmie = Left(zmie, Len(zmie) - 1)
Cells(1, 2) = zmie
Set objw = Nothing
oword.Close
End Sub
Received on Wed Oct 20 11:05:03 2010
To archiwum zostało wygenerowane przez hypermail 2.1.8 : Wed 20 Oct 2010 - 11:42:01 MET DST