Страница: 1 |
Вопрос: Эпопея с Вордом | Добавлено: 05.04.11 21:52 |
Автор вопроса: ![]() |
Есть вот такая заготовка.
Private Sub click_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Index = 0 Then Timer1.Enabled = True OLE1.Enabled = True End If If Index = 1 Then Timer2.Enabled = True OLE1.Enabled = True End If End Sub Private Sub click_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) Timer1.Enabled = False Timer2.Enabled = False OLE1.Action = 6 OLE1.Enabled = False End Sub Private Sub Form_Load() 'OLE1.CreateEmbed "", "WORD.DOCUMENT" OLE1.CreateEmbed "c:/1.doc", "WORD.DOCUMENT" End Sub Private Sub Timer1_Timer() If OLE1.AppIsRunning Then OLE1.object.Application.WordBasic.Vpage 1 Else OLE1.Action = 7 'Activate End If End Sub Private Sub Timer2_Timer() If OLE1.AppIsRunning Then OLE1.object.Application.WordBasic.Vpage -1 Else OLE1.Action = 7 'Activate End If End Sub Может кто знает, как курсор переместить по документу? а то при прокрутке, после того как OLE перестаёт быть активным, всё возвращается на позицию с которой начинали. |
Ответы | Всего ответов: 9 |
Номер ответа: 1 Автор ответа: ![]() ![]() Вопросов: 39 Ответов: 127 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 05.04.11 23:56 |
нашел вот-такую документацию (http://msdn.microsoft.com/en-us/library/aa212149(v=office.11).aspx) но пока результатов нет |
Номер ответа: 2 Автор ответа: ![]() ![]() Вопросов: 39 Ответов: 127 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 08.04.11 20:49 |
Нашел вот это: Свойства и методы объекта Selection -- http://www.askit.ru/custom/vba_office/m10/10_05_02_word_selection_members.htm
но применить не удается, вылетает с ошибкой. нужна помощь. |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 08.04.11 21:05 |
при чем тут выделение текста? |
Номер ответа: 4 Автор ответа: ![]() ![]() Вопросов: 39 Ответов: 127 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 08.04.11 23:46 |
Там текстовый курсор, он по дефолту в начале документа. Если документ в OLE прокрутить (в коде выше click - label) а потом отпустить мышь, то OLE становится вновь не активным, но снова отматывается на первую страницу. |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 09.04.11 01:48 |
запоминай положение и прокручивай при активации оле |
Номер ответа: 6 Автор ответа: ![]() ![]() Вопросов: 39 Ответов: 127 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 09.04.11 14:28 |
Winand, мне не надо при активации. мне надо чтоб промотал, (активировав, т.к. по другому никуда) отпустил мышь и читаешь.
Совсем не получается пока.. |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 09.04.11 16:19 |
пробовал совет terry_mtw? http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_20150766.html
у меня правда скроллбары пропадают всё время, но я не сильно заморачивался ![]() ![]() |
Номер ответа: 8 Автор ответа: ![]() ![]() Вопросов: 39 Ответов: 127 |
Web-сайт: Профиль | Цитата | #8 | Добавлено: 09.04.11 16:45 |
Блин.. Там слишком много инфы)
А может тогда пробовать открывать в ворде, но не давать скопировать/сохранить? Это как, вообще реализуемо? |
Номер ответа: 9 Автор ответа: ![]() ![]() Вопросов: 39 Ответов: 127 |
Web-сайт: Профиль | Цитата | #9 | Добавлено: 10.04.11 02:06 |
Хотя.. надоело всё, делаю джипеги.
Winand, спасибо (: |
Страница: 1 |
|