Цитата(Loiste @ 4.10.2005, 10:54)

Так правильно будет?

поскольку используешь Selection , то поиск будет идти только в выденном диапазоне,если нужен поиск в опред диапазоне - используй Range или Content - для поиска по всему доку.

Цитата(Loiste @ 4.10.2005, 10:54)

прочитать следующий абзац

Код

NextParText = Selection.Next(Unit:=wdParagraph, Count:=1).Text

Цитата(likhobory @ 4.10.2005, 10:38)

Content - для поиска по всему доку.

При:

Код

Dim WordApp As Word.Application  Dim DocWord As Word.Document

Так?:

Код

DocWord.Content.Find.Text = "текст"

Добавлено @ 12:54

Цитата(likhobory @ 4.10.2005, 10:38)

Код NextParText = Selection.Next(Unit:=wdParagraph, Count:=1).Text

Какого типа должен быть NextParText?
Строка не подходит, параграф тоже.

именно строка, проверяй, где-нть нахимичил

Я уже замучала вопросами Но..

Как вставить данные из буфера обмена (скопированные из Word) в ячейку таблицы Access (поле OLE)?

Цитата(likhobory @ 4.10.2005, 14:30)

именно строка, проверяй, где-нть нахимичил

Подставила строку. Работает

Но..почему-то через раз о_О
Один раз запускаю все работает.
Запускаю второй раз на этой строке выдает ошибку:

Remote server machine does not exist or is unavailable

Еще раз запускаю, снова работает. И так все время..

проверь, не создаешь ли несколько word-объектов, а лучше код выложи

Цитата(Loiste @ 4.10.2005, 15:31)

Как вставить данные из буфера обмена

что именно копируешь??

Цитата(likhobory @ 4.10.2005, 15:17)

что именно копируешь??

обзац с текстом и формулой Equation

покажи док. с формулами.
уже обсуждалось - если не хочешь раздувать БД - храни в ней только ссылки на файлы с формулами

какая версия офиса ??

Это сообщение отредактировал(а) likhobory - 4.10.2005, 16:38

Я сейчас хочу по другому сделать.
Я из этого файла читаю данные и создаю отдельные вордовские файлы для вопросов и ответов. Это у меня уже получилось

Хочу связать программно каждый такой файл с ячейкой Access (поле OLE). А это пока не знаю как организовать. Не подскажите?

И у меня еще вопросик. Как программно очистить буфер обмена в ворде перед его закрытием. А то у меня ворд закрывается, а буфер не очищается.

Вот примерный файлик. Я сейчас с ним экспериментирую

Это сообщение отредактировал(а) Loiste - 5.10.2005, 09:15

Присоединённый файл ( Кол-во скачиваний: 3 )
 _____.doc 22,00 Kb

Код

Private Sub Knopka0_Click()    Dim Zadanie, indexV, indexO As Integer    Dim WordApp As Word.Application    Dim DocWord, WordDocCreate As Word.Document    Dim par As Paragraph    Dim str As String           Set WordApp = New Word.Application    WordApp.Visible = True    Set DocWord = WordApp.Documents.Open("D:\...\Novii.doc")    DocWord.Activate    indexV = 0        For Each par In DocWord.Paragraphs       str = par.Range.Text              If str Like "*Zadanie*" Then         Vopros = 1              Else         par.Range.Copy         If Vopros = 0 Then            Set DocWordCreate = WordApp.Documents.Open("D:\...\Pustoi.doc")            indexO = indexO + 1            DocWordCreate.Activate            Selection.Paste            DocWordCreate.SaveAs "D:\...\Otveti\" & indexV & "_" & indexO & ".doc"            DocWord.Activate            DocWordCreate.Close True            Set DocWordCreate = Nothing                     Else            Set DocWordCreate = WordApp.Documents.Open("D:\...\Pustoi.doc")            indexV = indexV + 1            indexO = 0            DocWordCreate.Activate            Selection.Paste            DocWordCreate.SaveAs "D:\...\Voprosi\" & indexV & ".doc"            DocWord.Activate            DocWordCreate.Close True            Set DocWordCreate = Nothing            Vopros = 0         End If            End If   DocWord.Activate   Next      DocWord.Close True   WordApp.Quit True   Set DocWord = Nothing   Set WordApp = Nothing       End Sub

Вот мой код.
В коде русские слова пришлось написать латинскими буквами.
Смысл такой.
Открывается документ "Новый" и читаются его параграфы.
Соответственно вопросы и ответы отправляются в разные файлы ворда, сохраняются и закрываются. Для каждого вопроса создается отдельный файл и для каждого ответа также создается отдельный файл.
При этом копирование и вставка информации происходит через буфер обмена.

Но код выполняется через раз. Один раз выполняется. В другой выдает ошибку:

Remote server machine does not exist or is unavailable

и запускает отладчик ставя курсор на строку

38: Selection.Paste

Это сообщение отредактировал(а) Loiste - 5.10.2005, 09:37

Модератор: на время решения проблемы, озвученной в предыдущем постинге, тема переносится в соотв. раздел.

Так..Я организовала все так, что в ячейки соответствующих таблиц заносятся пути к соответствующим файлам

так:

Код

rcdVoprosi!Vopros = "D:\...\Voprosi\" & indexV & ".doc"

и так:

Код

rcdOtveti!Otvet = "D:\...\Otveti\" & indexV & "_" & indexO & ".doc"

На форме разместила элемент "Присоединенная рамка объекта" и связываю его с документами Ворд через ссылки в поле таблицы.

Как организовать все так, чтобы при нажатии кнопки эта связь менялась на ссылку из следующей ячейки таблицы и в Присоединенной рамке был виден соответствующий ей объект?

Если я объявляю все переменные и открываю таблицу в процедуре нажатия кнопки, то выходит, что таблица каждый раз открывается заново.
Если открываю ее в General, в процедуре нажатия кнопки он не видит открытый объект таблицы и ругается.

Это сообщение отредактировал(а) Loiste - 5.10.2005, 13:40

еще раз: какая версия офиса ??

Модератор: Сколько можно мешать вопросы в кучу??? Придерживайтесь правила: один топик = один вопрос.

Цитата(likhobory @ 5.10.2005, 16:37)

еще раз: какая версия офиса ??

Сорри, забыла указать. Office 2000

Модератор: Сколько можно мешать вопросы в кучу??? Придерживайтесь правила: один топик = один вопрос.
Прошу прощения.
Буду исправляться

Это сообщение отредактировал(а) Loiste - 6.10.2005, 07:43