База ответов ИНТУИТ

Основы офисного программирования и язык VBA

<<- Назад к вопросам

Как будет выглядеть в языке VBA показ диалогового окна "Open" из меню File в приложении Word?

(Отметьте один правильный вариант ответа.)

Варианты ответа
Dialogs(wdDialogFileOpen).Show
Dialogs(wdDialogFileOpen). Display(Верный ответ)
Application.Dialogs(xlDialogOpen).Show
Dialogs(xlDialogOpen).Show
Dialogs(xlDialogFileOpen).Show
Похожие вопросы
Как будет выглядеть в языке VBA открытие диалогового окна "Open" из меню File в приложении Word?
Как будет выглядеть в языке VBA открытие диалогового окна "Open" из меню File в приложении Excel?
С помощью какого диалогового окна можно спроектировать собственное головное меню визуально?
Какие имена книг останутся в коллекции Documents приложения Word после завершения работы этой программы?
Public Sub WorkWithDocuments()Dim N As Long, I As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Documents    .Add NewTemplate:=True    .Open (PathDir & "DocThree")    .Open (PathDir & "DocFive")    .Item(3).CloseEnd WithEnd Sub
Какие имена книг останутся в коллекции Documents приложения Word после завершения работы этой программы?
Public Sub WorkWithDocuments()Dim N As Long, I As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Documents    .Add    .Add NewTemplate:=True    .Open (PathDir & "DocThree")    .Open (PathDir & "DocFive")    .Item(1).Close    .Item(2).CloseEnd WithEnd Sub
Какие имена книг останутся в коллекции Documents приложения Word после завершения работы этой программы?
Public Sub WorkWithDocuments()Dim N As Long, I As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Documents    .Add NewTemplate:=True    .Add    .Open (PathDir & "DocFive")    .Open (PathDir & "DocThree")    .Item(2).Close    .Item(3).CloseEnd WithEnd Sub
Какие основные, новые свойства, встроенные в объекты Application в Office 2000 присутствуют в приложении Word?
Какие имена книг останутся в коллекции Workbooks приложения Excel после завершения работы этой программы?
Public Sub WorkWithbooks()Dim N As Long, i As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Workbooks    .Open (PathDir & "BookThree.xls")    .Add    .Open (PathDir & "BookFive.xls")    .Add    .Item(5).Close    .Item(4).CloseEnd WithEnd Sub
Какие имена книг останутся в коллекции Workbooks приложения Excel после завершения работы этой программы?
Public Sub WorkWithbooks()Dim N As Long, i As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Workbooks    .Add    .Open (PathDir & "BookThree.xls")    .Open (PathDir & "BookFive.xls")    .Item(2).Close    .Item(3).CloseEnd WithEnd Sub
Какие имена книг останутся в коллекции Workbooks приложения Excel после завершения работы этой программы?
Public Sub WorkWithbooks()Dim N As Long, i As ByteDim PathDir As StringPathDir = "e:\O2000\CD2000\Ch1\"With Workbooks    .Open (PathDir & "BookThree.xls")    .Open (PathDir & "BookFive.xls")    .Add    .Item(2).Close    .Item(3).CloseEnd WithEnd Sub