|
|
|
Как считывать переменные?
|
|||
|---|---|---|---|
|
#18+
До сих пор не научился работать с переменными. Я создал форму, объявляю объектную переменную: автор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 "воспринимались" этим и другими макросами из другой процедуры? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.02.2006, 22:24:47 |
|
||
|
Как считывать переменные?
|
|||
|---|---|---|---|
|
#18+
Если хочешь заполнить данными в переменнйую и потом использовать эту же переменную с данными нужно или объявить ее в начале модуля (формы) для того что бы можно было использовать в операторах данного модуля (формы) Dim pos As String или обявить в любом модуле (не формы) Public pos as String и можно использовать эту перемнную во всех операторах проэтка в том числе и в модулях Public=дает видимость по всему проэкту объявленным переменным ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.02.2006, 07:22:06 |
|
||
|
Как считывать переменные?
|
|||
|---|---|---|---|
|
#18+
В своих сообщениях: Выделите текст с кодом программы и нажмите src (кнопка вверху окна ввода ссобщения) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.02.2006, 09:13:09 |
|
||
|
|

start [/forum/topic.php?fid=60&msg=33539104&tid=2166213]: |
0ms |
get settings: |
5ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
805ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
2ms |
| others: | 205ms |
| total: | 1088ms |

| 0 / 0 |
