с нечетными номерами. На первый
Во второй части цикл For:Next использует метод DeleteLines для удаления строк с нечетными номерами. На первый взгляд кажется, что второй цикл должен просто стирать каждую вторую строку, однако следует принять во внимание, что после каждой операции удаления нумерация строк производится заново. Следовательно, на каждом шаге стирается каждая третья строка: первая строка пропускается, так как I увеличивается на единицу, а вторая -- поскольку больший номер строки каждый раз уменьшается на единицу.
For I = 1 to 26
Application.VBE.SelectedVBComponent.CodeModule.InsertLines i, Mid$("abcdefghijklmnopqrstuvwxyz", 1, I)
Next
For I = 1 to 13
Application.VBE.SelectedVBComponent.CodeModule.DeleteLines I
Next
Пример использования метода Export
В данном примере создается файл с именем test.bas и с помощью метода Export, в него копируется содержимое стандартного модуля VBComponents(1).
Application.VBE.ActiveVBProject.VBComponents(1).Export("test.bas")
Пример использования метода Find
В данном примере с помощью метода Find устанавливается, что указанная последовательность строк в области окна программы (строки с 1261 по 1279) содержит строку "Tabs.Clear".
Application.VBE.CodePanes(2).CodeModule.Find ("Tabs.Clear", 1261, 1, 1280, 1, False, False)
Пример использования метода GetSelection
В следующем примере возвращается местоположение начальных и конечных координат выделенного фрагмента в области окна программы CodePanes(1). В последней строке примера метод GetSelection используется для присвоения четырех значений четырем переменным.
Dim m As Long
Dim n As Long
Dim x As Long
Dim y As Long
Application.VBE.CodePanes(1).GetSelection m, n, x, y
Пример использования метода Import
В данном примере метод Import семейства VBComponents используется, чтобы скопировать содержимое файла test.bas в стандартный модуль.
Application.VBE.ActiveVBProject.VBComponents.Import("test.bas")
Пример использования метода InsertLines
В данном примере метод InsertLines используется, чтобы вставить строку "Option Explicit" в указанную область окна программы.
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий