VBA и WORD

[baranich]

такая проблема,
надо в word сделать так
имеется рамка, внутри неё несколько. например 4 textbox, которые должны заполняться из другого word или excel файла.
Этих рамок на листе А4 должно быть 20 штук.
Эту задачу реально сделать?

[baranich]

В word на VBA сделана форма, на ней textbox.
надо чтоб текст из этого textbox, передавался в textbox, который находиться в документе word.

[Shurrik]

TextBox1 на документе, а TextBox2 на форме.

Private Sub TextBox2_Change()
ThisDocument.TextBox1.Text = TextBox2.Text
End Sub

[baranich]

а как сделать такое, при нажатие на кнопку у меня данные из Textbox2 переносяться в Textbox1 и VBA выгружается, но надо чтоб форма закрывалась и мы оставались в WORD, а не возвращались в VBA

[Al Khamid]

[baranich]

Мне надо чтоб форма загружалась при открытие документа?
Или как сделать кнопочку на панели?

[baranich]

Да и ещё как сделать, чтоб в один word-документ перенести шаблон, который находиться в др. word-документе

[baranich]

как прочитать текст из одного word-документ и передать его в другой

[baranich]

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

[lord0n]

вот читаю я это и думаю: давно бы уже сделал нормальную прогу на vb и не парился с формами в ворде

для чего тебе вообще нужны эти тексбоксы?

Мне надо чтоб форма загружалась при открытие документа?

Код: Выделить всё


Sub Auto_Open()


[K.Sergey]

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

Держи. Функция возращает текст файла. Процедура заполняет этим текстом все текстбоксы в активном документе.

Код: Выделить всё


Sub FillFields()
Dim MyText As String
MyText = GetMyText("c:\TextFile.txt") 'Измени имя файла на свое.
If ActiveDocument.FormFields.Count > 0 Then
    For Each mf In ActiveDocument.FormFields
         If mf.Type = wdFieldFormTextInput Then mf.Result = MyText
    Next mf
End If
End Sub


Function GetMyText(Path As String)
' Path - полный путь к файлу, например: "c:\testfile.txt",
    Const ForReading = 1, ForWriting = 2, ForAppending = 3
    Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile(Path, ForReading, TristateFalse)
    GetMyText = f.ReadAll
    f.Close
End Function

[baranich]

а если у меня выборочные textboxы, т.е в документе их 50 штук, а мне надо чтоб информация из файла попадала в 10 textboxов, например в TextBox47-TextBox57. Тогда как, ведь массивы в wordе не делаются.

[K.Sergey]

а если у меня выборочные textboxы, т.е в документе их 50 штук, а мне надо чтоб информация из файла попадала в 10 textboxов, например в TextBox47-TextBox57. Тогда как, ведь массивы в wordе не делаются.

Тогда можно так:

Код: Выделить всё


Sub FillFields()
Dim MyText As String
MyText = GetMyText("c:\TextFile.txt") 'Измени имя файла на свое.
If ActiveDocument.FormFields.Count > 0 Then
   For Each mf In ActiveDocument.FormFields
       If mf.Type = wdFieldFormTextInput Then
          For i = 47 to 57
               if mf.Name = "TextBox" & i then mf.Result = MyText
          Next i
       End if
   Next mf
End If
End Sub

[baranich]

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

[lord0n]

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

поиск в хелпе - dir

[baranich]

Sub Auto_Open()

Эта процедура не проходит, т.е при открытие документа никаких действий, которые там прописаны, не происходят. Почему???

[K.Sergey]

Для того, чтобы форма загружалась при открытии книги, в МОДУЛЕ РАБОЧЕЙ КНИГИ вставь (вместо UserForm1 - имя своей формы):

Код: Выделить всё

Private Sub Workbook_Open()
UserForm1.Show
End Sub

[baranich]

У меня WORD и форма пока называется UserForm1

т.е код
[/code]
Private Sub Auto_Open()
UserForm1.Show
End Sub

Код: Выделить всё

не работает

[baranich]

пордон нет так написала

Код: Выделить всё

Private Sub Auto_Open()
UserForm1.Show
End Sub

для word
вот этот код не работает.[/quote]

[K.Sergey]

У меня WORD и форма пока называется UserForm1

Сорри, тогда:

Код: Выделить всё

Private Sub Document_Open()
UserForm1.Show
End Sub

[baranich]

большое спасибо.
заработало

[baranich]

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

[lord0n]

а потамучта листбокс еще не успел подгрузится, поэтому и выдает ошибку
пользуйся Form_Initialize()

[baranich]

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

[lord0n]

additem не пробовала?

[baranich]

additem не пробовала?

нет. а что она даёт

[baranich]

функция additem не подходит, а что-нибудь ещё

[baranich]

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

[K.Sergey]

и кстати можно такое же сделать с textbox?( я ввожу не спомощью кода, а в ручную)

Код: Выделить всё

Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
End Sub

Либо в ручную в свойствах формы установи MultiLine = True

[K.Sergey]

в ComboBox можно вводить списком? я ввела одну строку, а на вторую он не переходит( я ввожу не спомощью кода, а в ручную)

Комбобокс предназначен для того, чтобы выбирать из существующего списка нужный элемент (+ позволяет его непосредственно ввести). А ты его пытаешься использовать не по назначению - составлять списки.