ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Word.Application Range Не удается удалить диапазон.
18 сообщений из 18, страница 1 из 1
Word.Application Range Не удается удалить диапазон.
    #32376621
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
Код: plaintext
1.
2.
Set Doc = WordApp.Application.ActiveDocument
Set Range = Doc.Bookmarks( "docNum" ).Range
Range.Text = rs.Fields( "ndogovor" )

на третьей строке говорит не могу удалить диапазон ...
как человечески в закладки текст вставить?
...
Рейтинг: 0 / 0
15.01.2004, 10:11
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32376624
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
чего то нашел ... буду пробовать ...
...
Рейтинг: 0 / 0
15.01.2004, 10:13
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32376670
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
заработало так:
Код: plaintext
1.
2.
Set Doc = WordApp.Application.ActiveDocument
Doc.Bookmarks( "docNum" ).Select
WordApp.Selection.TypeText rs.Fields( "ndogovor" )

а почему через range не прокатило?
...
Рейтинг: 0 / 0
15.01.2004, 10:40
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32376695
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
Артист, ну где ты слово "Аксес" увидел???
Перенесу в VB
...
Рейтинг: 0 / 0
15.01.2004, 10:53
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32376714
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
лады, забыл указать что работаю из акеса ...
а vb не надо, там я ответа долго буду ждать ...
хотя и здесь не дождался... так что хоть в тест пуляй
...
Рейтинг: 0 / 0
15.01.2004, 11:05
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32376727
Фотография Лох Позорный
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лох Позорный
Участник
забыл указать что работаю из акеса
Гы... Да хоть из нотепада :)

там я ответа долго буду ждать
Задаешь вопрос там - сюда кидаешь ссылку на тот топик. Хоть на лестницу, хоть отдельным топиком, хоть отдельным топиком, озаглавленным "ПАМАГИТЕ"

так что хоть в тест пуляй
Акузы тебе быстро чего-нибудь ответили бы :)
...
Рейтинг: 0 / 0
15.01.2004, 11:16
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377400
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Range - это для Ворда священное слово
Попробуй обозвать переменную по-другому, и у тебя все получится!
...
Рейтинг: 0 / 0
15.01.2004, 16:41
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377435
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
тут в чем то другом дело ...
хоть как обзывай, все равно не выходит
...
Рейтинг: 0 / 0
15.01.2004, 16:59
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377485
Shkurenko Alexander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shkurenko Alexander
Участник
2 Артист.

Приведи тест ошибки.Какая версия Word'a?
Проверил у себя:
Код: plaintext
1.
2.
3.
4.
5.
Sub Test()
    Dim r As Range
    Set r = ActiveDocument.Bookmarks( "aaa" ).Range
    r.Text =  "вставляю текст" 
End Sub

полёт норамльный.
Попробуй
Range.Text = rs.Fields("ndogovor") .Value
или еще жёстче
Range.Text = CStr( rs.Fields("ndogovor") .Value)
...
Рейтинг: 0 / 0
15.01.2004, 17:19
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377511
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
Range.Text = CStr(rs.Fields("ndogovor").Value)
нет, не помогло
Код: plaintext
1.
'6028'
Не удается удалить диапазон

OfficeXP
...
Рейтинг: 0 / 0
15.01.2004, 17:27
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377581
Shkurenko Alexander
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shkurenko Alexander
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub Test1()
    Dim App As Word.Application
    Dim Book As Word.Document
    Dim Range As Word.Range
    Dim rst As DAO.Recordset
    
    Set App = New Word.Application
    Set Book = App.Documents.Open( "c:\1 .doc")
    Set Range = Book.Bookmarks( "bbb" ).Range
    
    Set rst = CurrentDb.OpenRecordset( "SELECT * FROM tbl2" )
    Range.Text = rst.Fields( 0 ).Value
    
    App.Visible = True
    
    Set Range = Nothing
    Set Book = Nothing
    Set App = Nothing
    Set rst = Nothing
End Sub


Все прекрасно работает. (OfficeXP без сервиспаков). Скорее всего это не ошибка, а глюк чего-нибудь(начиная с офиса и заканчивая железом).
Больше ничего посоветовать не могу. :(
...
Рейтинг: 0 / 0
15.01.2004, 18:03
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377600
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
2 Артист:
А Range так объявлен?
Код: plaintext
Dim R As Word.Range
...
Рейтинг: 0 / 0
15.01.2004, 18:15
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377613
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Блин!!! Да какой же Range.Text!!! Внимательней посмотри!!!
R.Text!!!
...
Рейтинг: 0 / 0
15.01.2004, 18:21
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377621
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Извини... Самдурак... (это я про себя). И правда, глюк...
...
Рейтинг: 0 / 0
15.01.2004, 18:23
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377656
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Вот еще идея
Если бука сама задана как диапазон, она затирается такой вставкой, и в случае повторной вставки уже не существует. Не тот случай? Ошибка, правда, другая, но у меня 2000-й...
...
Рейтинг: 0 / 0
15.01.2004, 18:39
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377950
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
AlexJuice нет повторного затирания нет, это б я допетрил :)\r
всего скорее, как говорил Shkurenko Alexander это глюк чего нибудь ...\r
Shark по поводу/topic/68728#493834 :\r
ты имел ввиду символ имени закладки или поля рекордсета? две\r
одинаковые закладки не могут быть в одном документе...\r
у меня тоже бегает, но даже без бега, как в моем первом посте,\r
пишет ошибку кот. я приводил ...
...
Рейтинг: 0 / 0
16.01.2004, 09:10
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32377978
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
та же хрень и с таблицей
Код: plaintext
1.
Set Rng = Doc.Bookmarks( "tabl" ).Range
Set tbl = WordApp.Selection.Tables.Add(Rng, icrow,  6 )

не удается удалить диапазон
тока через селектион таблицу незнай как вставить
...
Рейтинг: 0 / 0
16.01.2004, 09:43
| Ответить | Цитировать | Написать  
Word.Application Range Не удается удалить диапазон.
    #32378587
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
1. Делай закладку при невыделенном тексте
2. Средствами Ворда перемещайся к ней (Doc.Bookmarks("tabl").Select)
3. Далее по тексту
...
Рейтинг: 0 / 0
16.01.2004, 14:41
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Word.Application Range Не удается удалить диапазон.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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