VBNet - Форум - Эпопея с Вордом

Вопрос: Эпопея с Вордом Добавлено: 05.04.11 21:52

Автор вопроса: gekko | Web-сайт: kalamfur.ru

Есть вот такая заготовка.

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 Автор ответа: gekko Вопросов: 39 Ответов: 127	Web-сайт: kalamfur.ru Профиль \| \| #1	Добавлено: 05.04.11 23:56
	нашел вот-такую документацию (http://msdn.microsoft.com/en-us/library/aa212149(v=office.11).aspx) но пока результатов нет Ответить

Номер ответа: 2 Автор ответа: gekko Вопросов: 39 Ответов: 127	Web-сайт: kalamfur.ru Профиль \| \| #2	Добавлено: 08.04.11 20:49
	Нашел вот это: Свойства и методы объекта Selection -- http://www.askit.ru/custom/vba_office/m10/10_05_02_word_selection_members.htm но применить не удается, вылетает с ошибкой. нужна помощь. Ответить

Номер ответа: 3 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #3	Добавлено: 08.04.11 21:05
	при чем тут выделение текста? Ответить

Номер ответа: 4 Автор ответа: gekko Вопросов: 39 Ответов: 127	Web-сайт: kalamfur.ru Профиль \| \| #4	Добавлено: 08.04.11 23:46
	Там текстовый курсор, он по дефолту в начале документа. Если документ в OLE прокрутить (в коде выше click - label) а потом отпустить мышь, то OLE становится вновь не активным, но снова отматывается на первую страницу. Ответить

Номер ответа: 5 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #5	Добавлено: 09.04.11 01:48
	запоминай положение и прокручивай при активации оле Ответить

Номер ответа: 6 Автор ответа: gekko Вопросов: 39 Ответов: 127	Web-сайт: kalamfur.ru Профиль \| \| #6	Добавлено: 09.04.11 14:28
	Winand, мне не надо при активации. мне надо чтоб промотал, (активировав, т.к. по другому никуда) отпустил мышь и читаешь. Совсем не получается пока.. Ответить

Номер ответа: 7 Автор ответа: Winand Вопросов: 87 Ответов: 2795	Web-сайт: winandfx.narod.ru Профиль \| \| #7	Добавлено: 09.04.11 16:19
	пробовал совет terry_mtw? http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_20150766.html у меня правда скроллбары пропадают всё время, но я не сильно заморачивался и кстати. а что может помешать выделить весь текст и скопипастить в другой документ? просто вся эта идея - только чтение документа, без возможности сохранить идёт нафиг. Так что начинай переводить документы в джипеги Ответить

Номер ответа: 8 Автор ответа: gekko Вопросов: 39 Ответов: 127	Web-сайт: kalamfur.ru Профиль \| \| #8	Добавлено: 09.04.11 16:45
	Блин.. Там слишком много инфы) А может тогда пробовать открывать в ворде, но не давать скопировать/сохранить? Это как, вообще реализуемо? Ответить

Номер ответа: 9 Автор ответа: gekko Вопросов: 39 Ответов: 127	Web-сайт: kalamfur.ru Профиль \| \| #9	Добавлено: 10.04.11 02:06
	Хотя.. надоело всё, делаю джипеги. Winand, спасибо (: Ответить

Страница: 1 |