ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / word2007 адресация на таблицу VB
26 сообщений из 26, показаны все 2 страниц
  все  
word2007 адресация на таблицу VB
    #36807748
Andrew246
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew246
Гость
нужно методично перетащить огромную кучу сплошного текста в табличку раскидав все по строкам и столбцам. выделить необходимые данные проблемы не составляет так как они структурированы грамотно. вырезать тоже. но как вставить вырезанные данные в существующую таблицу сам допереть не могу((
...
Рейтинг: 0 / 0
24.08.2010, 12:27
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36807917
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrew246в табличку
Что такое "табличка"? БД? Какая СУБД? Эксель?
...
Рейтинг: 0 / 0
24.08.2010, 13:33
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36807919
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Andrew246,

не очень понимаю смысл. Кусочек текста и его размещение в таблице не помешали-бы !!
...
Рейтинг: 0 / 0
24.08.2010, 13:34
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36808005
Andrew246
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew246
Гость
Shocker.Pro, "табличка" это таблица microsoft word'а ни какой субд. встроенный VB word'а.
...
Рейтинг: 0 / 0
24.08.2010, 14:02
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36808015
Andrew246
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew246
Гость
Andrew246, но вопрос простой вставки я уже решил.
oTbl.Cell(4, 1).Range.Text = sStr1

но при такой вставке он очищает ячейку. как можно сделать чтобы он добавлял в нее имеющуюся строку?
...
Рейтинг: 0 / 0
24.08.2010, 14:06
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36808029
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrew246Shocker.Pro, "табличка" это таблица microsoft word'а ни какой субд. встроенный VB word'а.
В ворде есть такая операция - преобразовать в таблицу, она не подходит?
Предварительно можно допилить исходный текст заменами.

Andrew246добавлял в нее имеющуюся строку?
так это....
a=a & b
...
Рейтинг: 0 / 0
24.08.2010, 14:12
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36808063
Andrew246
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew246
Гость
Shocker.Pro, отлично заработало , тогда последний вопрос как отчеркнуть в таблице новую строку?
...
Рейтинг: 0 / 0
24.08.2010, 14:21
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36808170
Andrew246
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew246
Гость
Shocker.Pro, преобразовать в таблицу не подходит потому что там нет разделителя строк , есть только разделение столбцов(
...
Рейтинг: 0 / 0
24.08.2010, 14:43
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36808199
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrew246Shocker.Pro, отлично заработало , тогда последний вопрос как отчеркнуть в таблице новую строку?
Я не понимаю вопрос. Вы с записью макроса знакомы? Запишите то, что вам нужно и смотрите.

Andrew246Shocker.Pro, преобразовать в таблицу не подходит потому что там нет разделителя строк , есть только разделение столбцов(
ну вы же каким-то образом разделяете по строкам, значит есть какой-то формальный признак. Часто можно обычной заменой заменить этот признак на знак "^p"
...
Рейтинг: 0 / 0
24.08.2010, 14:50
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36808220
Andrew246
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew246
Гость
знаком ли я с записью макроса?....эм а вы ей когда нибудь пользовались? в курсе что в режиме записи макроса отключается указатель мыши и очень урезается функционал (изменение таблиц не возможно)

разделять по строкам я буду через if если встретится путая строка. а в функционале "преобразовать в таблицу" просто отсутствует такая возможность. каждая строка - новая в таблице.
...
Рейтинг: 0 / 0
24.08.2010, 14:54
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36808456
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrew246знаком ли я с записью макроса?....эм а вы ей когда нибудь пользовались? в курсе что в режиме записи макроса отключается указатель мыши и очень урезается функционал (изменение таблиц не возможно)

Я ей пользуюсь постоянно, чтобы отвечать на вопросы на этом форуме. Указатель мыши не отключается, возможности работы с таблицами не пропадает.

Andrew246разделять по строкам я буду через if если встретится путая строка. а в функционале "преобразовать в таблицу" просто отсутствует такая возможность. каждая строка - новая в таблице.
Смотря что вы подразумеваете под новой строкой. Если "^l", то никто не мешает его использовать или заменить. А вообще, чем абстрактно рассуждать о высших материях, лучше б выложили фрагмент для осмотра. Вы может правы, а может и нет, но я такие задачи решал еще в 96-м году
...
Рейтинг: 0 / 0
24.08.2010, 15:52
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809422
Andrew246
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew246
Гость
Shocker.Pro, круто че 96й год...только вот только не было в 97 ворде таких функций как преобразовании в таблицу и решать такие задачи вы в принципе технически не могли из за слабого железа которое сдохло бы обрабатывать такой объем информации который должен обработать мой скрипт. Еще раз поясняю в функции "преобразовать в таблицу" разделитель разделяет СТОЛБЦЫ , а каждую новую строку он записывает в новую СТРОКУ таблицы. Что не допустимо.

Оставшийся без ответа вопрос: добавление новой строки в таблицу.
при записи макроса единственное что можно из него выжать это -

Selection.InsertRowsBelow 1

если курсор находится в активной таблице.
а если курсор не в ней?
...
Рейтинг: 0 / 0
25.08.2010, 07:56
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809437
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Andrew246Shocker.Pro, круто че 96й год...только вот только не было в 97 ворде таких функций как преобразовании в таблицу и решать такие задачи вы в принципе технически не могли из за слабого железа которое сдохло бы обрабатывать такой объем информации который должен обработать мой скрипт.
Вы не по годам умны. Только
а) в 96-м году не было 97-го ворда
б) преобразование в таблицу было еще в версии 6.0 (которая была еще до 95-й)
в) про объем информации никто не говорит и не спорит, я говорю о задачах полуавтоматического преобразования текста (и не только в таблицу и обратно)

Andrew246Еще раз поясняю в функции "преобразовать в таблицу" разделитель разделяет СТОЛБЦЫ , а каждую новую строку он записывает в новую СТРОКУ таблицы. Что не допустимо.
А я еще раз поясняю, что с помощью поиска/замены можно заменить конец строки, скажем, на знак табуляции или другой разделитель, тогда не будет новой строки.

Andrew246Оставшийся без ответа вопрос: добавление новой строки в таблицу.
при записи макроса единственное что можно из него выжать это -
Selection.InsertRowsBelow 1
если курсор находится в активной таблице.
а если курсор не в ней?

Вообще-то в Selection работать последнее дело. Selection - это тот же объект Range, но нужен он только для работы пользователя, но не макроса У вас есть объект oTbl - по отношению к его объектам и надо применять InsertRowsBelow.
...
Рейтинг: 0 / 0
25.08.2010, 08:17
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809452
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
ПЕНСИОНЕРКАAndrew246,

не очень понимаю смысл. Кусочек текста и его размещение в таблице не помешали-бы !!


Если информация это
ппппппппп`wwwwwwwwww`rrrrrrrrrrr`gggggggggg`hhhhhhhhhh

ппппппппп`wwwwwwwwww`rrrrrrrrrrr`gggggggggg`hhhhhhhhhh

ппппппппп`wwwwwwwwww`rrrrrrrrrrr`gggggggggg`hhhhhhhhhh

кто мешает выделить все(или болшой кусок) и разом преобразовать много строк. последний столбец если все правильно будет пустым-удали иго
...
Рейтинг: 0 / 0
25.08.2010, 08:31
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809455
Andrew246
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew246
Гость
Shocker.Pro, 30 декабря, 1996 Office 97 (8.0) Word 97, и др.
http://ru.wikipedia.org/wiki/%D0%98%D1%81%D1%82%D0%BE%D1%80%D0%B8%D1%8F_Microsoft_Office

да по поводу функции теперь нашел ее в 6.0(

поиск и замена не подходят...

объект oTbl есть... только вот не знаю как к нему правильно применить InsertRowsBelow(
...
Рейтинг: 0 / 0
25.08.2010, 08:35
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809456
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
ПЕНСИОНЕРКА,

если же инфа

11111111111111111111111111111
2222222222222222222
333333333333333
44444444444444

2222222222222222
3333333333333333
444444444444444444
6

1111111111111
222222222222
33333333333333
4444444444444

выдели все или много
-преобраз в таблицу
-колич столб=5
-автоподбор по ширино окна
-разделитель =абзац
...
Рейтинг: 0 / 0
25.08.2010, 08:38
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809459
Andrew246
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew246
Гость
ПЕНСИОНЕРКА, мешает то что информация имеет более сложный вид( с имеющимися в нем спец символами и знаками.... да и вообще скрипт переноса всего этого добра в таблицу написан, не хватает только понять как после переноса одной строчки из текста в таблицу, в таблице создать новую строку..... а дальше пара счетчиков и циклов...и я очень благодарный вам за помощь)
...
Рейтинг: 0 / 0
25.08.2010, 08:39
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809466
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Andrew246,

в ворде я не то что-бы собаку - слона сьела и с макросами и без них
...
Рейтинг: 0 / 0
25.08.2010, 08:50
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809470
Andrew246
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrew246
Гость
ПЕНСИОНЕРКА, ну дак подскажите тогда как к объекту oTbl присобачить с низу строчку и я уже запущу этот макрос(
...
Рейтинг: 0 / 0
25.08.2010, 08:52
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809472
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Чем в википедии шарить и пытаться придраться к несуществующим ляпам, лучше бы в объектную можель заглянули

Код: plaintext
oTbl.Rows.Add
...
Рейтинг: 0 / 0
25.08.2010, 08:59
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809474
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Andrew246,

пока сображаю что к чему попобуй стазу создать таблицу на 1000 строк или сколько надо
...
Рейтинг: 0 / 0
25.08.2010, 08:59
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809477
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
ПЕНСИОНЕРКАв ворде я не то что-бы собаку - слона сьела и с макросами и без них

Заходите почаще
у нас тут спеца по Ворду не хватает
...
Рейтинг: 0 / 0
25.08.2010, 09:00
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809529
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Shocker.Pro,

а это вставка строки(строк) в хвост

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub m100825_0925()
    Dim tbl As Table
    Dim r1 As Row
    Set tbl = Word.ActiveDocument.Tables( 1 )
    j1 = tbl.Rows.Count
    J =  0 
    Word.ActiveDocument.Tables( 1 ).Rows(j1).Select
''    Do While J < 10
''    J = J + 1
    Selection.Collapse Direction:=wdCollapseEnd
     Selection.InsertRows  2 
''    Loop
 
End Sub
...
Рейтинг: 0 / 0
25.08.2010, 09:28
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36809554
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Нет, ПЕНСИОНЕРКА, плохой был слон, негодный, протухший. Работать в макросах с Selection -моветон, а как добавить строку в конец таблицы - я написал выше.
...
Рейтинг: 0 / 0
25.08.2010, 09:44
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36811403
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
специалист по Ворду?
кто он?
так и не понял что именно сейчас нужно:
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=100, NumColumns:= 5????
...
Рейтинг: 0 / 0
25.08.2010, 17:53
| Ответить | Цитировать | Написать  
word2007 адресация на таблицу VB
    #36813201
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Откопал свой код 1998 года, который заполнял данные в таблице Word на основе данных из Access.

Конкретно для его работы уже должна быть заготовка таблицы в Word с нужным количеством столбцов, в данном примере их 7.

Строки добавляются в самую первую таблицу документа.


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
With ActiveDocument.Tables( 1 )

   For i =  1  To maxrow

    .Rows.Add 'Добавляем новую строку в таблицу
    
    'Далее заполняем поля в этой строке.
    With .Rows(j)
      
      .Cells( 1 ).Range.Text = rst![rtn]
      
      .Cells( 2 ).Range.Text = rst![SSE]
      
      .Cells( 3 ).Range.Text = rst![OBORUDOVANIE]
      
      .Cells( 4 ).Range.Text = rst![PROISVODITEL]
      
      .Cells( 5 ).Range.Text = rst![POLUCHATEL]
      
      .Cells( 6 ).Range.Text = rst![ADRES_POLUCHATELA]
        
      .Cells( 7 ).Range.Text = rst![SROK_DEISTVIJA]
  
    End With
  

    rst.MoveNext

    j = j +  1 

    ProgressBar1.value = i
        
    StatusBar1.Panels( 2 ).Text = i

   Next i
   
   .Rows(j).Delete 'Удаляется последняя (вспомогательная) строка таблицы.
   
 End With
...
Рейтинг: 0 / 0
26.08.2010, 15:02
| Ответить | Цитировать | Написать  
26 сообщений из 26, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / word2007 адресация на таблицу VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]