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

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

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

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

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

Варианты ответа
DocFive.docDocThree.docDocument1
(Верный ответ)
DocFive.docTemplate1Dex1.dot
DocThree.docDocument1Dex1.dot
Похожие вопросы
Какие имена книг останутся в коллекции 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 NewTemplate:=True    .Open (PathDir & "DocThree")    .Open (PathDir & "DocFive")    .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")    .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 позволяет добавить новый раздел в документ?