Microsoft Word (Часть 2) - [847] :: Программы :: Компьютерный форум Ru.Board

Компьютерный форум Ru.Board » Компьютеры » Программы » Microsoft Word (Часть 2)

Модерирует : gyra, Maz
Maz (14-11-2018 13:33): Microsoft Word (Часть 3)	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

Unnicked Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Sub ReplaceNull() Dim oTbl As Table Dim oCll As Cell For Each oTbl In ActiveDocument.Tables For Each oCll In oTbl.Range.Cells If Len(oCll.Range.Text) = 2 Then oCll.Range.Text = "-" End If Next Next End Sub
	Всего записей: 1129 \| Зарегистр. 19-08-2005 \| Отправлено: 15:13 18-12-2009

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC