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

Вопрос: Как считывать переменные? Добавлено: 11.02.06 22:37

Автор вопроса: kminas

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

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

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

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 "воспринимались" этим и другими макросами из другой процедуры?
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: ProgLamer Вопросов: 1 Ответов: 29	Профиль \| \| #1	Добавлено: 12.02.06 10:34
	FileName[B]:=[/B]"Спецификация.doc" Ахтунг! Pascal на форуме Ответить

Номер ответа: 2 Автор ответа: Dushes ICQ: 249195431 Вопросов: 8 Ответов: 110	Профиль \| \| #2	Добавлено: 12.02.06 17:09
	2ProgLamer Блин, ну что за ник подходящий - производное от ламер... Шутка... На самом деле ":=" - присвоение наименованных аргументов... Ну в случае, если ты вызываешь процедуру или функцию, и не хочешь указывать (или не можешь) все аргументы через запятую, ты можешь сделать это в любои порядке через :=... MyFunc Arg3:=1,Arg1:=12,Arg2:=0 Ответить

Страница: 1 |