crossplatform.ru

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в данную темуНачать новую тему
> нужна помощь по VisualBasic'у
Litkevich Yuriy
  опции профиля:
сообщение 6.2.2010, 14:20
Сообщение #1


разработчик РЭА
*******

Группа: Сомодератор
Сообщений: 9656
Регистрация: 9.1.2008
Из: Тюмень
Пользователь №: 64

Спасибо сказали: 807 раз(а)




Репутация:   94  


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

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

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

П.С. свойство ActiveDocument только для чтения
Перейти в начало страницы
 
Быстрая цитата+Цитировать сообщение
alex977
  опции профиля:
сообщение 6.2.2010, 17:18
Сообщение #2


Активный участник
***

Группа: Участник
Сообщений: 310
Регистрация: 19.6.2008
Из: Россия, МО, г.Мытищи
Пользователь №: 206

Спасибо сказали: 77 раз(а)




Репутация:   8  


Работа с документом 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
  опции профиля:
сообщение 6.2.2010, 20:05
Сообщение #3


разработчик РЭА
*******

Группа: Сомодератор
Сообщений: 9656
Регистрация: 9.1.2008
Из: Тюмень
Пользователь №: 64

Спасибо сказали: 807 раз(а)




Репутация:   94  


ага я его нашёл с горем пополам. Получилось так:
myDocument = Documents.Open(tamplatePath + "myFile.doc", ReadOnly:=True)
...
Documents(myDocument).Activate
Перейти в начало страницы
 
Быстрая цитата+Цитировать сообщение

Быстрый ответОтветить в данную темуНачать новую тему
Теги
Нет тегов для показа


1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0




RSS Текстовая версия Сейчас: 3.12.2020, 13:29