VBA и WORD

[baranich]

Такая проблема, у меня есть txt-файл и word-документ, на котором есть 50 textboxов, надо чтоб из файла первая строка перессылалась в 15 textboxов, например с номерами от 10-25, вся проблема в том что в wordе нет массивов.

[baranich]

Вот ещё вопросик,
есть папка, в которой лежит еще несколько папок и txt-файл, в котором будут прописаны названия этих папок, можно ли сделать так чтоб на VBA прописать код с помощью которого читался бы этот txt-файл и прочитав первую строку с названием папки направлялся бы в неё и читал её содержимое(в этой папке тоже будет справочный файл, но уже с названиями word-документов)

[Alf]

Конечно, можно. Подключи COM-объект Microsoft Scripting Runtime, в нем есть объекты TextStream (с его помощью прочитаешь текстовый файл), а также FileSystemObject, File, Folder и т.п. для работы с файлами и директориями. Пожалуй, для данной задачи этого достаточно.

See MSDN for details.

[baranich]

Спасибо за совет.

[baranich]

Вопросик на засыпку, почему у меня Listbox на форме не дает вписывать информацию при загрузке формы, т.е открыли форму и я хочу вписать информацию, разве нельзя?

[Alf]

Что означает фраза "не дает вписывать информацию при загрузке формы"? Пример кода, пожалуйста.

[baranich]

Кода нет, я не хочу чтобы при инициллизации формы в ListBoxе появлялся список, а надо чтобы  форма загрузилась и я кликаю мышкой и хочу внести сама туда данные, а у меня не получается. Почему? может надо копаться в свойствах  ListBox?

[Alf]

Насколько я знаком с ListBox'ом, копаться в его свойствах бесполезно - данный элемент управления позволяет вручную только выбирать из списка, сам список заполняется программно.

Если нужно, чтобы пользователь помимо выбора мог и сам вводить значения, нужно воспользоваться элементом управления ComboBox. В одном из режимов отображения он очень похож на ListBox, однако имеет свойство Locked; оно разрешает либо запрещает пользовательский ввод.

[baranich]

А в ComboBox можно вводить списком, я ввела одну строку, а на вторую он не переходит,  это можно сделать и кстати можно такое же сделать с textbox?

[Alf]

По пунктам:

1.

А в ComboBox можно вводить списком, я ввела одну строку, а на вторую он не переходит, это можно сделать

Нет, списком вводить нельзя. Нужно добавлять элементы в список по одному методом AddItem.

Дело в том, что ComboBox в первую очередь ориентирован на выбор из готового списка, а не на его формирование. Поэтому особых удобств для записи в список здесь нет, придется делать программно.

2.

и кстати можно такое же сделать с textbox?

"Такое же" - это вводить несколько строк в одном окне?

Вполне. Для этого необходимо установить свойство MultiLine в True. Для удобства имеет смысл также установить свойство ScrollBars, чтобы не искать потом убежавший за пределы окошка текст.

[baranich]

текст1
текст2
т.е я ввожу текст1 и у меня конец textbox  и следующая текст переходит на другую строку.
 Вопрос:
 введеный текст будет читаться как одна строка или как две строки?

[baranich]

Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
TextBox1.EnterKeyBehavior = True
End Sub
теперь вводиться нормально, но если я присваевую переменной

Dim q As String
q = TextBox1.Text

и если я ввожу
текст1
текст2
то q присваевается "текст1 текст2"
а надо только текст1, а текст2 другой переменной
Что делать?

[Alf]

Независимо от того, сколько строк отображается в окне TextBox, для программы это - одна строка (String). Экранные строки в ней разделены символами возврата каретки (десятичный код 13) и перевода строки (код 10). Если нужно выделить экранные строки, придется добавить немного кода. Совсем чуть-чуть. Например, так:

Код:

Private Sub Command1_Click()
Dim I As Integer
Dim S As String
    S = Text1.Text
    While (Len(S) > 0)
        I = InStr(S, vbCrLf)
        If (I = 0) Then I = Len(S) + 1
        Debug.Print Left(S, I - 1)
        S = Mid(S, I + 2)
    Wend
End Sub

Данная процедура выводит каждую из строчек на отладочную печать. Думаю, переделать ее по своему вкусу не составит труда.

[baranich]

Такая проблема:
 У меня в форме при нажатие кнопки, происходит выбор тестового файла, открытие его и чтение. Дальше надо чтоб textboxы, которые находяться на документе заполнялись первой строкой, но не все, а с номера 47-57. Как это сделать подскажите?

[Alf]

А в чем проблема-то? Вытащить первую строку или заполнить ее содержимым TextBox?

[baranich]

а как вытащить только первую строку, у меня  TextBoxы последовательно заполняются разными строками, а нодо только первой

[Alf]

Я бы для чтения файла использовал объект TextStream. В нем есть метод ReadLine, который именно это и делает.

[baranich]

    Set file1 = Ïàïêà.GetFile("C:\òàëîíû\ñèíèå\ÎÈÒ\ÎÈÒ.txt")
    Set zx1 = file1.OpenAsTextStream(ForReading)
        ThisDocument.TextBox47.Text = zx1.ReadLine
        ThisDocument.TextBox48.Text = zx1.ReadLine
       ThisDocument.TextBox49.Text = zx1.ReadLine
          zx1.Close
И получается в TextBox47 - первая строка, в TextBox48 - вторая строка, TextBox49 - третия строка, а  надо чтоб в этих трех TextBoхах была первая строка

[Alf]

Само собой. Надо немного по-другому:

Код:

 
Dim firstString as String;
...
Set file1 = Ïàïêà.GetFile("C:\òàëîíû\ñèíèå\ÎÈÒ\ÎÈÒ.txt")
Set zx1 = file1.OpenAsTextStream(ForReading)
firstString = zx1.ReadLine
ThisDocument.TextBox47.Text = firstString 
ThisDocument.TextBox48.Text = firstString 
ThisDocument.TextBox49.Text = firstString 
zx1.Close

[Алексей++]

кстати - глюк форума:

русские буквы (я так понимаю) показываются как Ïàïê&#224

или что это?

[baranich]

спасибо за помощь

[baranich]

For ii = 70 To 92
For aa = FirstOfNextMonth To EndOfNextMonth
   Деньнедели = Weekday(aa)
        If Деньнедели = 7 Then
        Поле(ii) = FirstOfNextMonth + ii - 68
        Exit For
        ElseIf Деньнедели = 1 Then
        Поле(ii) = FirstOfNextMonth + ii - 69
        Exit For
        Else
       Поле(ii) = FirstOfNextMonth + ii - 70
        Exit For
        End If
Next aa
Next ii
Помогите не пойму где происходит сбой в циклах, смысл такой когда Деньнедели = 7(суббота), то textboxу присваеватся дата = 2, т.е понедельник,  Деньнедели = 1, то textboxу присваеватся дата = 2, но у меня первые выходные убираются, а остальные не убираются.

[Alf]

Что должен делать этот фрагмент?

[baranich]

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

[Alf]

Я в виде псевдокода идею набросаю, перевести на VBA труда не составит, полагаю:

Код:

date = начальная_дата
for I = 70 to 92 ' цикл по всем полям
  ' пропускаем выходные
  while выходной(date)
    date = date + 1 ' пропускаем этот день
  wend
  поле(I) = date
next I

P.S. Как-то все слишком сложно получается. Если в форме больше десятка текстовых полей, это наталкивает на мысль, что интерфейс программы не подуман как следует. Действительно удобные программы имеют небольшое число элементов управления.

Придется либо добавить функцию выходной(date), либо явно вписать условие определения выходного.

[baranich]

выходной(date) - эту функцию надо вводить самой, я так понимаю

[baranich]

Я сделала так:
For ii = 70 To 92
   Деньнедели = Weekday(FirstOfNextMonth)
        If FirstOfNextMonth = EndOfNextMonth Then
         Exit For
         Unload Me
        ElseIf Деньнедели = 7 Then
         FirstOfNextMonth = FirstOfNextMonth + 2
        Поле(ii) = FirstOfNextMonth
        ElseIf Деньнедели = 1 Then
         FirstOfNextMonth = FirstOfNextMonth + 1
        Поле(ii) = FirstOfNextMonth
        Else
         FirstOfNextMonth = FirstOfNextMonth
        Поле(ii) = FirstOfNextMonth
        End If
      FirstOfNextMonth = FirstOfNextMonth + 1
Next ii
но после того как я убрала цикл по первому и последнему дня месяца, появилось ошибка, достигнув последнего дня машина начинает заполнять даты на следующий месяц, а этого нельзя.

[Alf]

А зачем этот клубок городить? Чем он лучше варианта, который я предложил?

выходной(date) - эту функцию надо вводить самой, я так понимаю

Если функция нигде больше не понадобится, можно заменить ее вызов условием

Код:

(Weekday(date) = 1) or (Weekday(date) = 7)

[baranich]

Нет, этот код делает так что все тестбокс, получается заполнены датой=date и она постояна, а мне надо чтоб были все рабочие дни, кроме выходных.

[Alf]

Пардон, конечно же, пропустил последнюю строчку цикла. Нужно в конце перейти на следующую дату. Поспешил. Вот так:

Код:

date = начальная_дата
for I = 70 to 92 ' цикл по всем полям
  ' пропускаем выходные
  while выходной(date)
    date = date + 1 ' пропускаем этот день
  wend
  поле(I) = date
  date = date + 1
next I

[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]

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

[baranich]

Так что ли
Private Sub CommandButton3_Click()
i = 0
Holliday(i) = CInt(ComboBox1.Text)
i = i + 1
End Sub

[Alf]

Не так. Счетчик не должен быть локальным в обработчике нажатия кнопки. Сейчас при каждом нажатии i обнуляется, поэтому дальше единицы дело никогда не продвинется.

[baranich]

Поняла, а вот вопросик
ThisDocument.TextBox1.Text=FirstOfNextMonth
т.е TextBox получает дату в виде 10.01.05, а мне надо чтобы месяц был написан, т.е не 01, а январь

[Alf]

Нужно привести дату к нужному представлению функцией Format.

Строка формата будет что-то вроде "dd mmmm yyyy"

[baranich]

Вопрос

Код:

For i = 70 To 92
    While (Weekday(FirstOfNextMonth) = 1) Or (Weekday(FirstOfNextMonth) = 7)
        For oa = 0 To p
            While (FirstOfNextMonth = WDay(oa))
                a(i) = FirstOfNextMonth
                Exit For
      
            Wend
        Next oa
       FirstOfNextMonth = FirstOfNextMonth + 1 
    Wend
............
............
............

FirstOfNextMonth = FirstOfNextMonth + 1

Вопрос вот в чем, можно ли на VBA сделать чтобы в цикле While (FirstOfNextMonth = WDay(oa)) после  Exit For вставить какой-нибудь оператор(я не знаю существует он или нет), который позволял бы пройти мимо операции(они показаны точками) и сразу переходил на операцию FirstOfNextMonth = FirstOfNextMonth + 1

[Alf]

Такой оператор существует. Это столь нелюбимый программистами оператор перехода GOTO.

[baranich]

Такой вопрсик, есть текстовый документ, у которого такое содержание

Код:

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

текст3
текст4

Между текст2 и текст3 две строки пусты, как сделать  цикл, чтобы текст1 и текст3 передавались в один массив, а текст2 и текст4 в другой, т.е когда доходит до двух пустых строк цикл начинался заново?

[Alf]

Именно так и сделать - подсчитывать число идущих подряд пустых строк и, когда их число достигнет двух, начать новый цикл.

[baranich]

а если такой файл

Код:

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

текст3
........
тукст10


текст11
текст12

текст13
........
тукст20

Между строками текст2 текст3 и текст12 текст13 - одна пустая строка, а между текст10 и текст11 две строки.

[Alf]

В чем суть вопроса-то? Это утверждение, а не вопрос.

[baranich]

а как посчитать пустые строки, что то я не пойму.

[baranich]

текст1 и текст11 заносятся в один массив, текст2 и текст12 заносятся в другой массив, текст3-10 и текст13-20 заносятся в ещё один  массив, как это сделать?

[Alf]

а как посчитать пустые строки, что то я не пойму.

Точно так же, как делала бы это сама, без компьютера:

Код:

...
EmptyStringCount = 0;
...
Str = InStream.ReadLine
if Len(Str) = 0 then
  EmptyStringCount = EmptyStringCount + 1
else
  EmptyStringCount = 0
end if
...
if (EmptyStringCount >= 2) then ...

[Alf]

текст1 и текст11 заносятся в один массив, текст2 и текст12 заносятся в другой массив, текст3-10 и текст13-20 заносятся в ещё один массив, как это сделать?

Не уловил закономерность. По какому принципу строки распределяются по массивам?

[baranich]

Код:

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

текст3
........
тукст10


текст11
текст12

текст13
........
тукст20

 с текст1 по текст10- это первый блок,  с текст11 по текст20 - это второй блок
первая строка каждого блока заноситься в один массив, вторая сторока - в другой массив, потом идет пустая строка, потом в каждом блоке идут несколько строк друг за другом их надо поместить в третий массив

[baranich]

между блоками идет две пустые строки

[Alf]

Так и сделать.

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

[baranich]

что означает эта строка?
EmptyStringCount = 0

[Alf]

Переменной по имени EmptyStringCount присвоить значение ноль.

[baranich]

Вопросик, если у меня строка такая

Иванов Иван Иванович
Сидоров Сергей Сергеевич
в массив1 занести фамилии, в массив2 занести имена, а в массив3 занести отчества
как это сделать

[Alf]

Использовать функцию Split(str).

Эта функция вернет массив, заполненный отдельными словами из строки str. Дальше останется только раскидать элементы по нужным местам.

[baranich]

У меня проблемы всё с этим текстовым файлом.

Код:

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

текст3
........
тукст10


текст11
текст12

текст13
........
тукст20

Можно ли посчитать количество строк в каждом блоке, я знаю как посчитать во всем файле, а как посчитать строки в блоке, т.к в разных блоках количество строк разное? помогите

[Alf]

Я не совсем понял насчет того, каким образом текст разбивается на блоки. Ранее говорилось, что между блоками по две пустые строки. А если одна пустая, то в этом случае блок продолжается дальше?

[baranich]

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

Код:

ЗАО «КорпусГрупп»
ОИТ
                                  'данную строку можно убрать
Зиновьев Иван Петрович
Чунцов Андрей Олегович

                                  'каждый отдел - это новый блок, между блоками две пустые строки, чтоб как-то отделить их друг от друга
ЗАО «КорпусГрупп»
АХО

Киркина Марина Викторовна
Комсова Ирина Валерьевна

                                      ' Количество Людей в каждом отделе разное
ООО "Сервис Клининг"
Отдел продаж

Гуров Владимир Иванович
Маков Дмитрий Владимирович
Сидоров Константин Пертович

Вот как  посчитать количество людей в каждом отделе?

[Alf]

Вот как посчитать количество людей в каждом отделе?

Код:

отдел = 0
счетчик_сотрудников = 0
счетчик_пустых_строк = 0
while not конец_входного файла
  отдел = отдел + 1
  счетчик_сотрудников = 0
  считать_строку(название_фирмы)
  считать_строку(название_отдела)
  do
    считать_строку(стр)
    if (пустая строка(стр)) then
      счетчик_пустых_строк = счетчик_пустых_строк + 1
    else
      счетчик_сотрудников = счетчик_сотрудников + 1
      счетчик_пустых_строк = 0
    end if
  loop until (счетчик_пустых_строк >= 2)
  вывести(название_фирмы, название_отдела, счетчик_сотрудников)
wend

Примерно так.

[baranich]

спасибо, сейчас попробую

[baranich]

Спасибо, за советы они мне очень помогли, то теперь у меня вопросик как с помощью VBA  в  WORD'е можно очистить буфер обмена?

[Alf]

Напрямую - не знаю, но можно попробовать схитрить - выделить пустую область и сохранить ее в буфере, она должна затереть предыдущее содержание.

[baranich]

у меня проблема именно в том, что переполняется буфер обмена и его надо очистить полностью.

[baranich]

Возможно этот вопрос не для программистов, но очень важный вопрос.
Возможно ли увеличить в Word'е буфера обмена(у меня он 24 копирования) и поэтому когда моя программа работает и достигнув 48-ого копирования он выдает ошибку. Можно ли увеличить буфера обмена?

[Alf]

Увеличить - вряд ли.

Вижу два способа решения проблемы:

1. Переписать программу таким образом, чтобы буфер обмена не использовался.
2. Отключить буфер обмена MS Word и пользоваться системным, на один элемент, который никогда не переполняется.

[baranich]

Я отключила в WORD буфер обмена и что он должен автоматически записывать в системный буфер или надо это как-то прописать.

У меня копирования в офисный буфер обмена был прописан так:
    Selection.WholeStory
    Selection.Copy
А в системный так же или по другому?

[Alf]

Абсолютно так же. Собственно, этот самый буфер появился на нашу голову не так давно. То ли в последней версии Офиса, то ли в предпоследней. Раньше прекрасно без него обходились, не знали даже, что такое переполнение буфера.

[baranich]

Попробывала скопировать текст и он снова появился в офисном буфере обмена, я отключала его с помощью "Параметры" в буфере обмена, может есть др. способ его отключить?

[Alf]

Вот что указано на этот счет в справке:

Отключение буфера обмена Office

• В области задач Буфер обмена нажмите кнопку Параметры.
• Снимите флажок Автоматическое отображение буфера обмена Office.
• Снимите флажок Открывать буфер обмена Office при двойном нажатии Ctrl+C.

Примечание.  Чтобы скопировать элементы в буфер обмена, когда он отключен, установите флажок Собирать данные без отображения буфера обмена Office.

Я попробовал, вроде получилось.

[baranich]

я проделала, тоже самое, но уже при следующем копирование в окошке буфера обмена, появился мой скопированный текст, это что у меня глюк какой то что ли?

[Alf]

Не должно быть никакого окошка, закрыть его нужно.