Хелп !!! - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д