powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как считывать переменные?
4 сообщений из 4, страница 1 из 1
Как считывать переменные?
    #33539104
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 "воспринимались" этим и другими макросами из другой процедуры?
...
Рейтинг: 0 / 0
Как считывать переменные?
    #33539850
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Если хочешь заполнить данными в переменнйую и потом использовать эту же переменную с данными нужно или объявить ее в начале модуля (формы) для того что бы можно было использовать в операторах данного модуля (формы)
Dim pos As String
или обявить в любом модуле (не формы)
Public pos as String
и можно использовать эту перемнную во всех операторах проэтка в том числе и в модулях
Public=дает видимость по всему проэкту объявленным переменным
...
Рейтинг: 0 / 0
Как считывать переменные?
    #33539920
Фотография Worobjoff
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В своих сообщениях:
Выделите текст с кодом программы и нажмите src (кнопка вверху окна ввода ссобщения)
...
Рейтинг: 0 / 0
Как считывать переменные?
    #33606687
kminas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Большое спасибо всем!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как считывать переменные?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]