Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833936 Sun, 13 Jan 2008 18:23:58 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833936 Old Bat
Спасибо за подробную и интересную информацию!]]> kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833703 Sun, 13 Jan 2008 13:56:03 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833703 ]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833625 Sun, 13 Jan 2008 11:57:11 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833625 bi-lya, Old Bat. У меня есть С.Браун. На Access не работаю, т.к. он у нас только на одном компе. Руководство говорит,что надо переходить на OpenOffice, но там другой Basic. Хотел бы у вас спросить, реально ли на него переучиться, но это, к сожалению, тема для другого раздела, к тому же информация по их языку текстого редактора пока очень скудные.]]> kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833542 Sun, 13 Jan 2008 10:04:12 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833542 bi-lya, стоит обратить внимание, по поводу ACCESS так же можно посмотреть Полезные ссылки, документация, книги (Литвин. Гетц.), по WORD такого же уровня ничего не встречалось (именно русскоязычного). Советую (если есть возможность) посетить либо большие книжные магазины, либо книжные "развалы" по IT-тематике и оценить качество воочию.]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833440 Sun, 13 Jan 2008 07:45:34 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833440 bi-lya VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833432 Sun, 13 Jan 2008 07:15:20 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833432 kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833303 Sat, 12 Jan 2008 23:23:44 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833303 kminas, используйте комбобокс Search Text (справа от него бинокль). В нем набирайте ActiveDocument, Tables и нажимайте бинокль. Смотрите Word Object Model в справке - там для каждого объекта прописаны все свойства и методы
А для того, чтобы со всем этим разобраться, лучше найти хорошую литературу]]> bi-lya VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833036 Sat, 12 Jan 2008 15:04:08 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1833036 ActiveDocument вообще нет, а у Document в членах Tables тоже нет.
Может у нас разный Brouser?]]> kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1832775 Sat, 12 Jan 2008 02:30:10 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1832775
    ActiveDocument.Tables(1).Select
    ActiveDocument.Tables(1).Rows(2).Select

Ну и Selection тоже есть]]> bi-lya VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1832604 Fri, 11 Jan 2008 20:22:54 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1832604 ActiveDocument.Tables(1).Rows.Count]]> kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1831373 Fri, 11 Jan 2008 00:54:23 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1831373 Так а вы что хотели бы найти? Смотрите в справке VBA Word Object Model, я думаю будет понятнее.]]> bi-lya VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1831284 Thu, 10 Jan 2008 19:49:45 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1831284
    Rows.Count
]]> kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1830437 Thu, 10 Jan 2008 11:11:32 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1830437 :)]]> bi-lya VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1830300 Thu, 10 Jan 2008 09:09:28 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1830300 Цитата bi-lya @
    Sub AddStr()
      With Selection
        If ActiveDocument.Tables(1).Rows.Count > 1 Then
          '''''''
        Else
          ' а сюда, например, вставляем разрыв
        End If
      End With
    End Sub

Спасибо, а где такие параметры можно найти? А то разные варианты перепробовал, а до такого сам не дошел.]]> kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1830035 Thu, 10 Jan 2008 01:53:12 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1830035
    Sub AddStr()
      With Selection
        If ActiveDocument.Tables(1).Rows.Count > 1 Then
          '''''''
        Else
          ' а сюда, например, вставляем разрыв
        End If
      End With
    End Sub
]]> bi-lya VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1829805 Wed, 09 Jan 2008 19:18:15 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1829805 bi-lya
Приладил код, работает, но не могу поставить условие, чтобы он не работал при отсутствии строк в таблице (наличии лишь одной строки). Иначе он пропускает первую страницу.]]> kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1825578 Fri, 04 Jan 2008 17:35:09 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1825578 bi-lya, Спасибо, Вы попали в цель!]]> kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1825215 Fri, 04 Jan 2008 08:33:12 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1825215 Цитата bi-lya @
Кроме того, количество строк зависит от: шрифта, принтера, параметров страницы и т.п.
Скидал, что пришло в голову:
    Sub AddStr()
      With Selection
        nachStr = .Information(wdActiveEndPageNumber)
        Do Until .Information(wdActiveEndPageNumber) <> nachStr
          ActiveDocument.Tables(1).Rows.Add
          .EndKey Unit:=wdStory
        Loop
      End With
    End Sub

Спасибо, я попробую. Но в данном случае не зависит. Параметры страницы установлены в открываемом файле, шрифт тоже заранее установлен, высота строки 8 мм.]]> kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1825152 Fri, 04 Jan 2008 04:15:55 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1825152 Цитата kminas @
Посчитал. На первой странице помещается 26 строк, на остальных - 28.

Кроме того, количество строк зависит от: шрифта, принтера, параметров страницы и т.п.
Скидал, что пришло в голову:
    Sub AddStr()
      With Selection
        nachStr = .Information(wdActiveEndPageNumber)
        Do Until .Information(wdActiveEndPageNumber) <> nachStr
          ActiveDocument.Tables(1).Rows.Add
          .EndKey Unit:=wdStory
        Loop
      End With
    End Sub
Предвидя реакцию достопочтенного Old Bat'а и других уважаемых: Selection, конечно, нездоровая весчь, но Rectangles - IMHO - еще более...
:rolleyes:]]> bi-lya VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1824919 Thu, 03 Jan 2008 17:08:02 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1824919 После окончания раздела необходимо вставить пустые строки и начать заполнение таблицы с нового листа.
Посчитал. На первой странице помещается 26 строк, на остальных - 28.]]> kminas VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1824905 Thu, 03 Jan 2008 16:32:42 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1824905 Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1824899 Thu, 03 Jan 2008 16:26:10 +0000 Вставка строк в таблицу Word https://forum.sources.ru/index.php?showtopic=217646&view=findpost&p=1824899 kminas VB for Application