ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / добавление строки в таблицу Word из другого приложения
20 сообщений из 20, страница 1 из 1
добавление строки в таблицу Word из другого приложения
    #37278492
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Добрый день
запнулся на такой задаче и ни как не могу ее решить.
программно добавляю строку в таблице созданного из шаблона документа,
но ни как не реагирует на мои старания.
вроде все отрабатывает, данные вставляет и в таблицу тоже.
строку таблицы выделяет, а добавить не добавляет
вот пример из работы excel:
пробовал из excel,word,access - ни в какую :(


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub WAPP()
Dim app As Word.Application
Dim strDOT As String, x&
x= 5 
     strDOT = ThisWorkbook.Path & "\" & "WDOC.dot"
         Set app = New Word.Application
         app.Visible = True
         app.Documents.Add strDOT
       With app.ActiveDocument
         .Bookmarks("dt_start").Range.Text = "25"
         .Bookmarks("dt_fin").Range.Text = "54654"
         .Tables( 1 ).Rows( 1 ).Select
          Selection.InsertRowsBelow x
        End With
End Sub
...
Рейтинг: 0 / 0
25.05.2011, 14:09
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279153
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
R Dmitry,

Код: plaintext
1.
Set app = New Word.Application
app.Visible = True
сделали видимым, ОК, а где его открытие? и Вы не говорите ошибки или что, какие??
...
Рейтинг: 0 / 0
25.05.2011, 18:54
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279231
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
R Dmitry,
чем дальше, тем страннее... (с) Алиса
Строк в таблицу не добавляет, и ошибку не выдает ?

Можно попробовать уточнить чей объект используете:
Код: plaintext
app.Selection.InsertRowsBelow x
...
Рейтинг: 0 / 0
25.05.2011, 19:23
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279319
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Ципихович ЭндрюR Dmitry,

Код: plaintext
1.
Set app = New Word.Application
app.Visible = True
сделали видимым, ОК, а где его открытие? и Вы не говорите ошибки или что, какие??ЦЭ, опять сказывается Ваше активное незнание мат.части :-)

Код: plaintext
Set app = New Word.Application
Это и есть открытие. Это называется ранним связыванием. Работает быстрее позднего с применением CreateObject, но требует обязательного подключения соответствующей библиотеки. В данном случае Microsoft Word XX.0 Object Library

Дмитрий, лично я бы делал вообще без обращения к Selection, ибо это чревато всякими ошибками...

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub WAPP()
    Dim app As Word.Application, objWrdDoc As Word.Document
    Dim strDOT As String, x&
    x =  5 
    strDOT = ThisWorkbook.Path & "\" & "WDOC.dot"
    Set app = New Word.Application
    app.Visible = True
    Set objWrdDoc = app.Documents.Add(strDOT)
    With objWrdDoc
        .Bookmarks("dt_start").Range.Text = "25"
        .Bookmarks("dt_fin").Range.Text = "54654"
        .Tables( 1 ).Rows( 1 ).InsertRowsBelow x
    End With
End Sub
Сразу оговорюсь - не проверял.
...
Рейтинг: 0 / 0
25.05.2011, 20:28
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279337
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
The_Prist,
авторСразу оговорюсь - не проверял. А чего тут проверять? В справке, ангельским по белому:
InsertRowsBelow Method
Applies To:
Selection Object

Правда, в той-же справке ни слова про наличие параметров у этого метода...
...
Рейтинг: 0 / 0
25.05.2011, 20:42
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279340
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
пробуй камнем,

Я при работе с VBA понял одну вещь - почти все, что можно сделать с Selection можно сделать без него. Думаю тут тоже можно найти выход. А если нет - Вы уже указали Дмитрию на ошибку в коде.
...
Рейтинг: 0 / 0
25.05.2011, 20:45
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279354
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
The_Prist, в ВБА все, что можно сделать с Selection можно сделать без него, это точно!!!!!
Выделять плохой тон
...
Рейтинг: 0 / 0
25.05.2011, 20:59
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279413
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Ципихович Эндрю - Уважаемый, Вы сначала проверьте а потом утверждайте

Дмитрий, спасибо, к сожалению Word..... это жуть, и метод добавления строки не работает без выделения объекта, это я уже проверял :) первым делом.

Код: plaintext
app.Selection.InsertRowsBelow x
Отдельное спасибо за камень., без камня он точно не работает, с камнем и какой то м.....ю, заработало как надо.

да в excel все как то попроще :)
...
Рейтинг: 0 / 0
25.05.2011, 21:53
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279442
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
R Dmitry,

Да в Excel-е так же. Просто обращаясь к объектам другого приложения не надо забывать указывать, что это объекты именно другого приложения :-)

А без выделения можно так:
Код: plaintext
.Tables( 1 ).Rows( 1 ).Range.Rows.Add
Т.е. выглядеть будет так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub WAPP()
    Dim app As Word.Application, objWrdDoc As Word.Document
    Dim strDOT As String, x&, li As Long
    x =  5 
    strDOT = ThisWorkbook.Path & "\" & "WDOC.dot"
    Set app = New Word.Application
    Set objWrdDoc = app.Documents.Add(strDOT)
    With objWrdDoc
        .Bookmarks("dt_start").Range.Text = "25"
        .Bookmarks("dt_fin").Range.Text = "54654"
        For li =  1  To x
            .Tables( 1 ).Rows( 1 ).Range.Rows.Add
        Next li
    End With
End Sub

И не обязательно делать видимым Word и что-то выделять...
...
Рейтинг: 0 / 0
25.05.2011, 22:17
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279478
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Спасибо, Дмитрий попробуем и так, но хотел без дополнительного цикла, как говорят "одним чохом" :)
Еще раз всем спасибо.
С уважением, Дмитрий.
...
Рейтинг: 0 / 0
25.05.2011, 22:46
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279481
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
The_Prist,
есть нюанс, даже не один.
Метод Add создает объект Row. При небольшом кол-ве добавляемых строк не ощущается, при большом может стать существенным.
Add и InsertRowsBelow копируют форматирование из разных строк, первый - из той, которая окажется под добавляемой, второй - из той, которая окажется над добавляемыми. Исключение - когда применяется метод Add последней строки таблицы.
...
Рейтинг: 0 / 0
25.05.2011, 22:49
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279656
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
The_Prist,
И не обязательно делать видимым Word и что-то выделять...
+100
ОКЕЙНО
К автору соглашаетесь????
...
Рейтинг: 0 / 0
26.05.2011, 04:35
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279834
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Ципихович ЭндрюК автору соглашаетесь????
На что я должен согласиться ?
на то что метод InsertRowsBelow работает без Selection ?
добавлю, к словам Дмитрия
авторЦЭ, опять сказывается Ваше активное незнание мат.части :-)
читайте MSDN и никогда не утверждайте того, чего сами не знаете.

С уважением, Дмитрий.
...
Рейтинг: 0 / 0
26.05.2011, 09:41
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37279878
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
пробуй камнемThe_Prist,
есть нюанс, даже не один.
Метод Add создает объект Row. При небольшом кол-ве добавляемых строк не ощущается, при большом может стать существенным.
Add и InsertRowsBelow копируют форматирование из разных строк, первый - из той, которая окажется под добавляемой, второй - из той, которая окажется над добавляемыми. Исключение - когда применяется метод Add последней строки таблицы.Я и не спорю. Наше дело предложить. А уж решение за автором топика - ему виднее, для каких задач копировать строки и нужны ли там форматы с конкретно расположенных строк.
...
Рейтинг: 0 / 0
26.05.2011, 10:03
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37281300
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
R Dmitry,

приведите пример в ВБА того, что нельзя сделать без Selection
Выделять плохой тон
...
Рейтинг: 0 / 0
26.05.2011, 18:38
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37281409
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Ципихович Эндрю,
смотрите, 10706665
...
Рейтинг: 0 / 0
26.05.2011, 20:20
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37281412
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Ципихович ЭндрюR Dmitry,

приведите пример в ВБА того, что нельзя сделать без Selection
Выделять плохой тон
я сам терпеть не могу Select, но иногда и без него не обойдешся :(
...
Рейтинг: 0 / 0
26.05.2011, 20:22
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37281416
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
R Dmitry, а как решение от вчера, 22:17 не катит??
...
Рейтинг: 0 / 0
26.05.2011, 20:25
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37281456
R Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R Dmitry
Участник
Ципихович ЭндрюR Dmitry, а как решение от вчера, 22:17 не катит??
В принципе если еще строк с пяток кода добавить, то возможно и решило бы, если бы вариантов не было :(.
Просто код приведен в простейшем варианте. На самом деле таблиц 14 шт. и строки добавляются и с верхним и нижним форматированием.... и еще много чего... :), поэтому мне нужен был именно этот метод.

С уважением, Дмитрий.
...
Рейтинг: 0 / 0
26.05.2011, 21:24
| Ответить | Цитировать | Написать  
добавление строки в таблицу Word из другого приложения
    #37281462
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
R Dmitry, это называется одно лечим другое калечим
...
Рейтинг: 0 / 0
26.05.2011, 21:29
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / добавление строки в таблицу Word из другого приложения
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=37278492&tid=2176836]:
 0ms
get settings:
 10ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 166ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 78ms
get tp. blocked users:
 2ms
others: 251ms
total:  549ms
созд. / загр.: 549ms
x
x
Закрыть


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