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

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

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

Какие имена книг останутся в коллекции 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

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

Варианты ответа
DocFive.doc
Template1Dex1.dot
(Верный ответ)
DocThree.doc
Document1Dex1.dot
DocFive.docDocThree.docDocument1
Похожие вопросы
Какие имена книг останутся в коллекции 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
Какие имена книг останутся в коллекции 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
Какие имена книг останутся в коллекции 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    .Open (PathDir & "BookThree.xls")    .Open (PathDir & "BookFive.xls")    .Add    .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    .Add    .Open (PathDir & "BookThree.xls")    .Open (PathDir & "BookFive.xls")    .Item(2).Close    .Item(3).CloseEnd WithEnd Sub
Какие свойства имеют коллекции Characters, Words, Sentences приложения Word?
Какие методы имеют коллекции Characters, Words, Sentences приложения Word?
Какой метод коллекции Sections приложения Word используется для удаления раздела из коллекции?
Какое свойство коллекции Sections приложения Word позволяют установить характеристики страницы одновременно для всех разделов коллекции?
Какое свойство коллекции Sections приложения Word позволяет добавить новый раздел в документ?