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