нужна помощь по VisualBasic'у Опции Подписка на тему Сообщить другу Версия для печати Скачать тему Подписка на этот форум Режимы отображения Переключить на: Древовидный Переключить на: Стандартный Линейный

[Litkevich Yuriy]

Ни как в ООП на VisualBasic'е въехать не могу, да и в способ поиска зеркального метода, например, если знаю getter, то как найти setter
Тем более в ситуации, когда в основном используются не getter/setter, а свойства, да ещё и только для чтения.

Суть такая, есть свойство ActiveDocument типа Document. Т.е. написав так:
MyDocument = ActiveDocument
Я узнаю текущий (активный документ)
но как мне установить MyDocument в качестве текущего?

т.е. хочется что-то типа setActiveDocument, но я ничего подобного не нашёл

П.С. свойство ActiveDocument только для чтения

[alex977]

Работа с документом Word? Может тогда поможет вот это:

Для активизации уже открытого документа используйте метод Activate коллекции объектов Documents. Предположим, что нам необходимо, чтобы наша VBA-программа активизировала определенный документ, который и момент запуска программы может быть и открыт, и закрыт. Используйте код, подобный показанному ниже, для активизации открытого документа или открытия документа, если он еще не открыт:

Sub   DocActivateOrOpen()
Dim  docFileName As   String,    docPath   as   String
docFileNane =   "Старые   игрушки.doc"
docPath   =   "C:\Toys\"
For   Each   targetDoc   In   Documents
    If targetDoc.Name =  docFileName Then
         targetDoсIsOpen =   True
    End  If
Next  targetDoc
If   targetDocIsOpen   =   True   Then
    Documents(docFileName).Activate
Else
    Documents.Open FileName   :=  docPath & docFileName
End If
End Sub

Сообщение отредактировал alex977 - 6.2.2010, 17:26

[Litkevich Yuriy]

ага я его нашёл с горем пополам. Получилось так:

myDocument = Documents.Open(tamplatePath + "myFile.doc", ReadOnly:=True)
...
Documents(myDocument).Activate