VBA и WORD

[baranich]

ну у этого кода такой же промах, он не прекращает работать когда достигает последнего дня месяца, а продолжает и последние тестбокс заполняются датами уже следующего месяца, у моего такая же проблема, надо как-то ограничить цикл

[Alf]

Это не промах, а ответ на вопрос:

у меня с 70 по 92 textbox, должны заполняться датами месяца, но надо исключить выходные, а у меня исключаются только первые выходные, но код немного кривой, если есть другие идеи буду только рада.

Про следующий месяц ни слова. Каков вопрос - таков ответ. Тем более если речь идет о компьютере.

А что делать с ячейками, которые попадают на следующий месяц? Оставлять пустыми?

[baranich]

да пустыми, но я уже сделала сама, спасибо

[baranich]

  Documents.Open FileName:="шаблон.doc", ConfirmConversions:=False, ReadOnly _
        :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
        :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
        , Format:=wdOpenFormatAuto, XMLTransform:=""
    Selection.WholeStory
    Selection.Copy
    Documents("шаблон.doc").Close SaveChange
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selection.TypeBackspace
    Selecion.PasteAndFormat (wdPasteDefault)
Данный код работает когда запускается документ файл1, смысл в том что при открытие документа файл1, открывается шаблон, выделяется и копируется все его содержание и должно быть вставлено в документ  файл1, но операция Selecion.PasteAndFormat (wdPasteDefault) вызывает ошибку Object required. Почему или может просто сделать как отдельный макрос и вызывать его при открытие файла?

[baranich]

А вот ещё вопрос
Private Sub CommandButton1_Click()
опреции
операции
vizov
end sub
При нажатие кнопки, у меня сначало выполняется процедура vizov, а не операции, почему?

[Alf]

Из чего следует, что операции не выполняются? Это явно показывает отладчик, или вывод сделан косвенно по отсутствию результата их действий?

Нужно на входе в процедуру установить точку останова отладчика и пройти ее пошагово.

Если операции не условные, нет причины, по которой они бы не выполнялись. Скорее они выполняются, но делают что-то не то.

[baranich]

Но когда закомпилируешь процедуру vizov, всё работает нормально.

[Alf]

Теперь совсем непонятно... Что означает фраза

Но когда закомпилируешь процедуру vizov, всё работает нормально.

применительно к VBA, который в принципе является скриптовым языком (в отличие от своего старшего собрата VB) и компилировать не умеет?

[baranich]

пордон описка, закомментируешь.

[baranich]

У меня проблема при копирование текста одного документа в другой, мне надо с помощью кода поднять курсив на несколько строк. Как это сделать?

[Alf]

Что означает "поднять курсив"? Сделать несколько строк курсивными?

[baranich]

текст1
текст2

Курсив - это место откудо начинаем печатать текст, он напимер в конце текст2, а надо на начало текст1

[Alf]

Курсив - это разновидность написания шрифта. А "место откудо начинаем печатать текст" больше на курсор похоже. Я угадал на этот раз?

[baranich]

упс, мда работа убивает все остатки ума, пордон, да конечно ты прав

[baranich]

Вопросик, есть такой, в Comboboxе есть список, периодически выбирается сначало одно число из Comboboxа, потом ещё одно, и надо чтоб эти числа сохранялись в массиве, как это сделать?

[Alf]

Массив из двух элементов?

Так и сделать - первому элементу массива присвоить первый выбранный элемент Combobox'а, второму - второй выбранный. Только, конечно, не забыть преобразовать строчку из Combobox'а в число.

[baranich]

а если у меня 30 чисел и они происходит выборка случайно

[Alf]

Ну тогда в цикле 30 раз,что это меняет по существу?

[baranich]

присвоить первый выбранный элемент Combobox'а, второму - второй выбранный

а как присваивать элементы Combobox'а,?

[Alf]

У Combobox'а есть свойство Text.

[baranich]

массив()=combobox1.text
так что ли

[Alf]

Если массив строковый, то так.
Если числовой, то не так. Напрямую текст числу присвоить нельзя, преобразовать нужно.

Код:

массив()=CInt(combobox1.text)

или

Код:

массив()=CLng(combobox1.text)

, смотря какой тип элементов массива.

[baranich]

 а куда поместить данную операцию, в тело кнопки не получиться, там тогда всем элементам массива будет присваиваться одно и тоже значение, в тело combobox'а или куда?

[Alf]

Да куда душе угодно. Главное - завести переменную-счетчик текущего элемента и не забывать обновлять.

[baranich]

Код:

for i=0 to 10
массив(i)=CInt(combobox1.text)
next i

Куда поместить в Form_Initilization(), form_click
не работает, куда?

[Alf]

А как должно работать в принципе?

[baranich]

Я ввожу постепено числа, выбирая из combobox'а и нажимая на кнопку,  надо чтобы они сохранялись в массив()

[Alf]

Значит, в обработчике нажатия на кнопку нужно заносить очередное значение в массив, а затем инкрементировать счетчик.

[baranich]

Что значит "инкрементировать счетчик"?

[Alf]

Увеличить значение счетчика на единицу.