Что нового

Получение значений из ComboBox и отправка их в Word

Animatronics

Новичок
Сообщения
3
Репутация
0
Добрый день, в данной программе новичок, уже голову сломал и перепробовал все функции чтобы из выпадающего списка ComboBox значение вставлялось в Word файл через поиск и замену, но за место значений из GUICtrlSetData всегда вставляется цифра 7, объясните недалекому на каком этапе ошибаюсь?
P.S. Как сделать Спойлер не нашел, код во вложении и здесь ниже:

#include <ButtonConstants.au3>
#include <GuiComboBoxEx.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <Word.au3>
#include <GuiComboBox.au3>
#Region ### START Koda GUI section ### Form=C:\Users\ROMAN\Desktop\Form1.kxf
Global $Form1 = GUICreate("Оформление заявки на топливозаправщик", 435, 438, 301, 154)
Global $Checkbox1 = GUICtrlCreateCheckbox("- 6 кубов", 80, 128, 65, 23)
Global $Label1 = GUICtrlCreateLabel("АИ-92", 88, 104, 34, 17)
Global $Date1 = GUICtrlCreateDate("2025/04/03 17:10:42", 232, 32, 186, 21)
Global $Label2 = GUICtrlCreateLabel("ВЫБЕРИТЕ ДАТУ ЗАЯВКИ", 256, 8, 145, 17)

$Combo1 = GUICtrlCreateCombo("Водитель", 232, 248, 185, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData($Combo1,"Ефименко|Финк")
Local $tInfo,$Combo1

Global $Label5 = GUICtrlCreateLabel("ВЫБЕРИТЕ ВОДИТЕЛЯ", 256, 216, 129, 17)
Global $Button1 = GUICtrlCreateButton("СФОРМИРОВАТЬ ЗАЯВКУ", 232, 333, 187, 89)
Global $Label6 = GUICtrlCreateLabel("ВЫБЕРИТЕ ВИД И ОБЪЕМ ТОПЛИВА", 16, 72, 200, 17)
Global $Checkbox2 = GUICtrlCreateCheckbox("- 5 кубов", 80, 153, 65, 23)
Global $Checkbox3 = GUICtrlCreateCheckbox("- 4 куба", 80, 176, 65, 23)
Global $Checkbox4 = GUICtrlCreateCheckbox("- 6 кубов", 80, 244, 65, 23)
Global $Label3 = GUICtrlCreateLabel("АИ-95", 88, 220, 34, 17)
Global $Checkbox5 = GUICtrlCreateCheckbox("- 5 кубов", 80, 269, 65, 23)
Global $Checkbox6 = GUICtrlCreateCheckbox("- 4 куба", 80, 292, 65, 23)
Global $Checkbox7 = GUICtrlCreateCheckbox("- 5980 литров", 83, 361, 97, 23)
Global $Label4 = GUICtrlCreateLabel("ДТ", 91, 337, 20, 17)
Global $Checkbox8 = GUICtrlCreateCheckbox("- 5920 литров", 83, 386, 89, 23)
$Group1 = GUICtrlCreateGroup("", 8, 88, 209, 121)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("", 8, 206, 209, 121)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("", 8, 327, 209, 97)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

$oWord = _Word_Create(True,False)
$oDocTemp=_Word_DocOpen($oWord, @ScriptDir&'\Документ Microsoft Word (2).docx') ;
WinActivate("Документ Microsoft Word (2).docx - Word")
Sleep(50)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Combo1
If _GUICtrlComboBox_GetComboBoxInfo($Combo1,$tInfo) Then
_Word_DocFindReplace($oDocTemp, "111",$Combo1)
EndIf
EndSwitch
WEnd
 

Вложения

  • Функция завершения и Экспорта — копия (2).au3
    2.7 КБ · Просмотры: 0
Верх