VPF::Как считывать переменные? - Форум программистов

kminas

Дата 11.2.2006, 22:20 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет

До сих пор не научился работать с переменными.
Я создал форму, объявляю объектную переменную:

Код


Dim oapp As Object

Затем кнопкой открываю Word-овский документ с таблицей, которую придется заполнять готовым текстом из Word-овских макросов и добавлением информации из элементов формы:
TextBox, ComboBox, OptionBox, CheckBox

Код


Private Sub cmdSave_Click() 
Set oapp = CreateObject("Word.Application") 
oapp.Visible = True 
oapp.ChangeFileOpenDirectory "c:\WINDOWS\Application Data\Microsoft\Templates\" 
oapp.Documents.Open FileName:="Спецификация.doc" 
oapp.ActiveDocument.SaveAs FileName:="\Мои документы\Спецификации\Задай ИМЯ файла", FileFormat:=wdFormatDocument, _ 
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ 
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ 
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ 
        False 
oapp.Selection.MoveDown Unit:=wdLine, Count:=3 

oapp.Dialogs(wdDialogFileSaveAs).Show 

Form1.Show 
End Sub

Код


Private Sub Text1_Change() 
Dim pos As String 
pos = Text1.Text 
End Sub

Вот начало одного макроса:

[code=nocolor]

Код


Private Sub Command1_Click() 
oapp.Selection.TypeText Text:="pos" 'вместо pos должна вставляться информация, например, из TextBox 
oapp.Selection.MoveRight Unit:=wdCell 
oapp.Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft 
oapp.Selection.TypeText Text:= _ 
        "Нория производительностью 175 т/час, с электродвигателем " 
oapp.Selection.MoveRight Unit:=wdCharacter, Count:=1 
oapp.Selection.TypeText Text:="У8-УН-175 по графической " 
oapp.Selection.MoveRight Unit:=wdCharacter, Count:=1 
oapp.Selection.TypeText Text:="---" 
oapp.Selection.MoveRight Unit:=wdCharacter, Count:=1 
oapp.Selection.TypeText Text:= _ 
        "ОАО Грязинский     "

Все работает, текст вставляется в ячейки, но я не знаю как пользоваться переменными, как сделать, чтобы переменные из TextBox, ComboBox, OptionBox, CheckBox "воспринимались" этим и другими макросами из другой процедуры?

Staruha

Дата 12.2.2006, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Insert-Modul и пишешь там свой макрос.А потом в процедуре пишешь имя модуля.
Или просто напиши в процедуре Command_Click.

--------------------

Возмездие настигнет

kminas

Дата 12.2.2006, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет

Спасибо! Просто я поставил кавычки
, а надо просто

Код


oapp.Selection.TypeText Text:=Text1.Text

Это сообщение отредактировал(а) kminas - 12.2.2006, 23:27

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »