VBA

[konopello]

VBA плохо знаю, не могу на VBA воспроизвести этот код:

   COMAppl         = new COM("Word.Application");
    COMDocuments    = COMAppl.documents();

    COMDocument     = COMDocuments.add(''E:\\data\\222.dot');
    COMBookmarks    = COMDocument.bookmarks();
    COMBookmark     = COMBookmarks.item('label');
    COMrange        = COMBookmark.range();
    COMrange.InsertAfter('label');

а вобще не могу в helpe VBA найти обисание объекта COMrange и его методов. Помогите!

Кстати этот код из 7-ой главы новой книги.

[macklakov]

Цитата:

Сообщение от konopello

VBA плохо знаю, не могу на VBA воспроизвести этот код

А в какой строке возникает ошибка?
Общий совет, для начала, проверь этот код в word или excel, если все работает, переноси в аксу.

[Gustav]

Цитата:

Сообщение от macklakov

для начала, проверь этот код в word или excel, если все работает, переноси в аксу.

да ему вроде наоборот надо - из Аксы в VBA...

[konopello]

В том то и дело что не могу проверить, хотя код работает правельно, просто COMrange.InsertAfter('label'); вставляет значение не в поле а после него стало интерестно как вставить в поле но немогу в VBA найти описание ни объекта ни метода

[Gustav]

На скорую руку, не описывая переменные как-то так:

Sub Test()
    Set COMAppl = CreateObject("Word.Application")
    
    COMAppl.Visible = True
    
    Set COMDocuments = COMAppl.documents
    Set COMDocument = COMDocuments.Add("E:\data\222.dot")
    Set COMBookmarks = COMDocument.bookmarks
    Set COMBookmark = COMBookmarks.Item("label")
    Set COMrange = COMBookmark.Range
    COMrange.InsertAfter "label"
    
End Sub

[Gustav]

Запускаю из Excel. Если в начало модуля вставится оператор Option Explicit - удалить его. Ну или описывать переменные.
Протестировать не могу полностью из-за отсутствия шаблона, а создавать лениво

P.S. В предыдущем посте конечно код VBA, а не X++, как подписано. Просто использовал тэг xpp, потому что он не кушает ведущие пробелы.

[macklakov]

Цитата:

Сообщение от konopello

В том то и дело что не могу проверить, хотя код работает правельно, просто COMrange.InsertAfter('label'); вставляет значение не в поле а после него стало интерестно как вставить в поле но немогу в VBA найти описание ни объекта ни метода

COMrange, это объект класса Range в VB. Если посмотрим на его описание, то увидим, что метод InsertAfter "Inserts the specified text at the end of a range or selection. After this method is applied, the range or selection expands to include the new text", а для того, чтобы просто вставить значение, лучше использовать свойство text

[konopello]

2 macklakov: COMrange, это объект класса Range в VB

Смотрю методы класса Range но этого метода найти не могу

[Gustav]

Цитата:

Сообщение от konopello

немогу в VBA найти описание ни объекта ни метода

Ищи на компе файл типа VBAWRD9.CHM . Это хелп по VBA для Ворда 2000. Для более поздних наверное цифра будет больше, типа 10

Кстати, попутный вопрос - кто-нибудь знает, как посмотреть в открытом хелпе какой именно хелп-файл отображается в данный момент?

[konopello]

Сори нашел, я смотрел Excel метод Range а надо Word. Всем спасибо просто туплю. С самого начало колупался с обектами Excel поэтому и ни чего и не получалась

[AndyD]

Цитата:

Сообщение от Gustav

Кстати, попутный вопрос - кто-нибудь знает, как посмотреть в открытом хелпе какой именно хелп-файл отображается в данный момент?

В свойствах открытой страницы указывается файл CHM и HTML внутри него.
VBAWD10.CHM::/html/woobjWords1.htm

[Gustav]

Цитата:

Сообщение от AndyD

В свойствах открытой страницы указывается файл CHM и HTML внутри него.
VBAWD10.CHM::/html/woobjWords1.htm

Спасибо. Тоже уже что-то нашёл. Только у меня всё более древнее (типа 2000)
Мой путь познания такой: в открытом хелпе внутри текущей темы (та, которая в большом окне справа) щелкаю правой кнопкой и там можно выбрать и покопаться либо в "Свойствах" (там можно увидеть папку), либо "В виде HTML" (там можно найти имя файла по строке примерно следующего вида: Project='vbawrd9.chm' - она одна из первых, но в некоторых хелп-файлах я ее, увы, не нашёл)

[AndyD]

В свойствах указывается и имя файла, просто обычно строка большая и не влезает вся целиком в окошка. Сделайте на этой строке "Выделить все" и скопируйте выделение куда-либо. Или зажмите на этой строке мышку и поведите ей вниз - текст скроллируется

[Gustav]

Цитата:

Сообщение от AndyD

В свойствах указывается и имя файла, просто обычно строка большая и не влезает вся целиком в окошка. Сделайте на этой строке "Выделить все" и скопируйте выделение куда-либо. Или зажмите на этой строке мышку и поведите ей вниз - текст скроллируется

Спасибо-2. ЗдОрово! "Век живи - век учись!"