Хелп !!! - VB

Узнай цену своей работы

Формулировка задачи:

Привет всем !!!
Подскажите неопытному программеру,
я открываю файл - допустим doc из кода VB
причем он открывается с помощью Word'a ,к которой прикреплен
а каким образом можно поставить в нем закладку,с помощью
кода VB ,что бы при следующим открытии он открывался
на том месте ,где я остановил чтение ???
....если можно то по поводу закладки по HTML,TXT форматам тоже
или ссылочку по теме

Решение задачи: «Хелп !!!»

textual
Листинг программы
Dim oWord, oDoc <font color="blue">As</font> Object
    
    <font color="blue">Set</font> oWord = CreateObject(<font color="green">"Word.Application"</font>)
    oWord.Visible = True
    <font color="blue">Set</font> oDoc = oWord.Documents.<font color="blue">Open</font>(<font color="green">"C:\myfile.doc"</font>)
    <font color="green">' Чтение ворда или ещё что-то...
    '</font> Нужно передвинуть Selection на ту отметку на тексте, с которой
    ' будет начинаться в следующий раз чтение (см. методы для Selection, типа Selection.MoveDown и т.п.)
    oDoc.Bookmarks.Add <font color="green">"myBookmark1"</font>, Selection
    oDoc.Save
    oDoc.Close
    
    <font color="blue">Set</font> oDoc = oWord.Documents.<font color="blue">Open</font>(<font color="green">"C:\myfile.doc"</font>)
    <font color="blue">If</font> oDoc.Bookmarks.<font color="blue">Exists</font>(<font color="green">"myBookmark1"</font>) <font color="blue">Then</font>
        Selection.Start = oDoc.Bookmarks(<font color="green">"myBookmark1"</font>).<font color="blue">End</font>
        Selection.<font color="blue">End</font> = oDoc.Bookmarks(<font color="green">"myBookmark1"</font>).<font color="blue">End</font>
    <font color="blue">End</font> <font color="blue">If</font>

   oDoc.Save
   oDoc.Close
   oWord.Quit
   <font color="blue">Set</font> oWord = Nothing

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.818 из 5