|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.10.2010, 11:20 | #1 |
Новичок
Джуниор
Регистрация: 05.10.2010
Сообщений: 1
|
VBA word
Помогите пожалуйста, я новичок...Как мне сделать написать код, чтобы не было пусто...
Объясните пожалуйста... Sub insert_row(package As Object, table_2 As Integer) Dim Num_Rk As String Dim Date_cr As String If LCase(package.KindAddr) = "organiz" Then If Not IsNull(package.RawData) Then Num_Rk = package.DocDate Date = package.Date.When Else Num_Rk = package.DocDate.Name Num_Rk = "" End If Else Date = package.Data Date = "" End If If objRawData.GetCell("kind", table_2) = 1 Then ActiveDocument.tables(table_2 * 2 - 1).Cell(2, 1).tables(2).Cell(1, 1).Range.Text = objRawData.table_2 & "" & objRawData.DocDate ActiveDocument.tables(table_2 * 2).Cell(2, 2).tables(2).Cell(1, 1).Range.Text = objRawData.table_2 & "" & objRawData.DocDate If Not IsNull(objrcin.PersonSign.Name) Then ActiveDocument.tables(2).Cell(1, 1).Range.Text = objrcin.PersonSign.Name If Not IsNull(objrcin.Contents) Then ActiveDocument.tables(2).Cell(1, 1).Range.Text = objrcin.Contents objtable.Rows.Last.Delete End If End Sub |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
VBA Word,VBA Excel решить 2 задачи | fafolo4ka | Фриланс | 6 | 05.03.2012 01:15 |
VBA в Word | jilik | Microsoft Office Word | 4 | 06.04.2010 18:27 |
word vba | Alexsey1991 | Помощь студентам | 0 | 25.12.2009 21:08 |
Задача по VBA в Word | оксаночка | Помощь студентам | 3 | 07.05.2009 14:03 |
задачка по VBA в Word | konfetka | Помощь студентам | 8 | 23.04.2009 16:47 |