Что нового

[Элементы GUI] Мини-Word

Egorkaru

Новичок
Сообщения
20
Репутация
1
Версия AutoIt: 3.3.9.21 beta.

Описание: Текстовый процессор, похожий на Microsoft Word, только с урезанными возможностями. Документ сохраняется в формате RTF.

Возможности: печать, предварительный просмотр, вставка времени и даты, вставка картинок (в форматах JPG, GIF, BMP), изменение шрифта, начертания шрифта, размера шрифта, цвета шрифта, изменение цвета выделения.

Примечания: нет.
 

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5,379
Репутация
2,724
Я что-то вас не пойму. То вам какая-то беспонтовая игра нужна, теперь вот текстовый чудо-редактор. У вас курсовые работы? WordPad - это то, что вы хотите. На крайняк в сети можно найти очень много текстовых редакторов, включая исходники на разных ЯП. На AutoIt, думаю, таким мазохизмом заниматься никто не будет, т.к. нерентабельно.
 

Bingo888

Новичок
Сообщения
36
Репутация
0
Печать с папки всех документов Word

Добрый день! есть следующая проблема - Есть папка в которую программа формирует документы с розширением .rtf нужен скрипт который будет сразу отправлять их на печать , желательно без открытия самого документа так как открытие занимает некоторое время(
Набросал скриптик по примеру:

#include <Word.au3>
$gPut = "D:\DDD\*.rtf"

Local $oWord = _Word_Create()
Local $oDoc = _Word_DocOpen($oWord, $gPut, Default, Default, True)
Local $sActivePrinter = $oDoc.Application.ActivePrinter
_Word_DocPrint($oDoc)

Но он долго откривает документ:
Что не так делаю? как ускорить процес?
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
А так ?
Код:
#include <Word.au3>
#include <File.au3>

$gPut = 'D:\DDD'

Local $oWord = _Word_Create(False)
$aAllFile = _FileListToArray($gPut, '*.rtf', 1)
If Not @error Then
	For $i = 1 To $aAllFile[0]
		$oDoc = _Word_DocOpen($oWord, $gPut & '\' & $aAllFile[$i], Default, Default, True)
		_Word_DocPrint($oDoc)
		_Word_DocClose($oDoc)
	Next
EndIf
 _Word_Quit($oWord)
OffTopic:
Заключайте текст скрипта в сообщении в соответсвующие теги.
 

Bingo888

Новичок
Сообщения
36
Репутация
0
Добрый день! Ваш пример работает, документ не открывается, но очень долго обрабатывается пока роспечатает((( Можно както ускорить этот процес?
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
документ не открывается
Документ обрабатывается в скрытом режиме, для того, что бы открывался документ замените строку:
Код:
Local $oWord = _Word_Create(False)
;Заменить на
Local $oWord = _Word_Create()

очень долго обрабатывается пока роспечатает
Если в ручную печатаете , то быстрее всё происходит?
Попробуйте заменить строку:
Код:
_Word_DocPrint($oDoc)
;заменить на
_Word_DocPrint($oDoc,True)
;Позволит выполняться скрипту, пока идёт печать документа - накидает документов в очередь на печать, дальше всё будет зависеть от принтера
 

Bingo888

Новичок
Сообщения
36
Репутация
0
Спасибо огромное вам печатает гараздо быстрее! Ещо один вопросик можно ли както сделать чтоб после печаити файли с папки удалялись?
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Можно, Замените строки
Код:
_Word_DocPrint($oDoc,True)
_Word_DocClose($oDoc)
;Заменить на:
If _Word_DocPrint($oDoc,True) Then 
   _Word_DocClose($oDoc)
   FileDelete ($gPut & '\' & $aAllFile[$i] )
Else
   MsgBox(48,'Ошибка печати','Ошибка печати документа'&@CR&$aAllFile[$i])
   _Word_DocClose($oDoc)
EndIf
 

Bingo888

Новичок
Сообщения
36
Репутация
0
Спасибо огромное! :ok: :IL_AutoIt_1:



Добавлено:
Сообщение автоматически объединено:

Не подскажите почему скрипт процесор грузит на 98-100% после того как я его в цикл поставил?
 

Bingo888

Новичок
Сообщения
36
Репутация
0
Добры день! Нужна ваша помощь. Ситуация следующая есть программа которая генерирует файл druk.rtf в определенную папку 1 в фале есть определений текст внутри этого текста есть несколько слов которые нужно заменить на другие к примеру ..... 111... нужно чтоб било не 111, а 333 и потом сохранить изменения и перместить етот файл в другую папку 2 при этом изменение нужно вносить только в файл druk.rtf остальные файлы с этим розширением нужно сразу переносить в папку 2.
 

ra4o

AutoIT Гуру
Сообщения
1,165
Репутация
246
Можно всё это сделать, только создайте новую тему, а то это уже ни как не связано с данной темой.
 
Верх