Что нового

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

Egorkaru

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

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

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

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

Yashied

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

Bingo888

Чайник
Сообщения
22
Репутация
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

Скриптер
Сообщения
978
Репутация
180
А так ?
Код:
#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)
[off title=OffTopic]Заключайте текст скрипта в сообщении в соответсвующие теги.[/off]
 

Bingo888

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

ra4o

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

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

Bingo888

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

ra4o

Скриптер
Сообщения
978
Репутация
180
Можно, Замените строки
Код:
_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

Чайник
Сообщения
22
Репутация
0
Спасибо огромное! :ok: :IL_AutoIt_1:



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

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

Bingo888

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

ra4o

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