[serg_io]

Сообщение от sandexs72

Должно быть расширение в конце, знак dot

Расширение такое и есть И отображается в папке как шаблон но...

[raus]

дома нет ПК СП но кажется так: Администрирование - шаблоны, метки - там просто - разберешься....

[Radnor]

Сообщение от serg_io

Расширение такое и есть И отображается в папке как шаблон но...

возможно у шаблона указана группа документов, например запросы, и прога ище его по пути templates\запросы\ а сам шаблон лежит в другой папке

[kalmar85]

Уважаемые коллеги, а в первую очередь наверное raus, имею ряд вопросов по программе, но послать личное сообщение не получается, т.к. на почту не пришло подтверждение регистрации. Так вот перед сдачей зачета имею несколько вопросов по всеми любимой программе(их всего то 10, много времени не отниму). Прошу того у кого выдастся свободная минутка написать мне в ICQ
[553][747][410], не очень хочется "засыпаться" из за такой, казалось бы, мелочи.
Спасибо за внимание, надеюсь на Вашу помощь.

переместил в нужную тему. ПК СП и ПК ОСП - это две большие разницы. Номер аськи разбил ибо... Raus

[БопоХ]

Вы наверное не в тот топик написали

[raus]

Сообщение от kalmar85

имею несколько вопросов по всеми любимой программе

пости сюда, посмотрим

Сообщение от БопоХ

Вы наверное не в тот топик написали

перенесу щаз

[raus]

переписал макрос "Желтые возбуждающе кнопки " под ОпенОфис, ибо перешли на него.

Несколько замечаний.
1 VB Опен Офис такой опен
2 сорри фор бед инглиш (лениво оптимизировать если чё)
3 пока жуткая альфа - в боевых условиях не проверял
4 пока на печать уходит одна копия, чё та не хочет проперти забирать (но можно скопировать строку oDoc.Print (Array ()) необходимое число раз и вероятнее всего вставить между ними wait 50 для уверенности
5 еснно заточен под под Винду. Скорее всего в Лине не будет работать
6 пока просто код, вручную нужно вставлять в "Сервис- Макросы - Управление макросами - добавить", потом возможно упакую в инсталляционный пакет
7 Интерфейс (вернее полное отсутствие) постарался сделать максимально похожим на "Желтые кнопки", нового при обращении ничего нет, думаю кто пользовался в МС Офис - будет понятно

собсна код

Sub Print2CopyCount 
 
  Dim oComp 
  dim document   as object 
  dim dispatcher as object 
  Dim objShell 
   
  NEXTFILE: 
   
 
  wait 1000 
   
  oComp = StarDesktop.getCurrentComponent() 
  If HasUnoInterfaces(oComp, "com.sun.star.frame.XStorable") Then 
	If oComp.hasLocation() Then 
	'  Print "Текущий компонент OOo  имеет адрес URL: " & oComp.getLocation() 
	   
 ' ------------- это печать 
	   
	  Dim PrintProperty(0) as New com.sun.star.beans.PropertyValue 
 
	  PrintProperty(0).Name = "CopyCount" 
 
	  PrintProperty(0).Value = 2 ' две копии 
	   wait 500 
	   oDoc = ThisComponent 
	  ' oDoc.Print (PrintProperty) 
	   oDoc.Print (Array ()) 
	   
 
    
 ' ------------- это печать конец 
  
 ' --------------------------закрытие документа  
 wait 500 
 'oDoc = ThisComponent 
 oDoc.close(True)  
  wait 50 
 ' ------------------------ конец закрытия документа   
  
 ' ----------------------- нажатие на кнопку Ок на вкладке Внимание 
 Set objShell = CreateObject("WScript.Shell")  
 
 objShell.AppActivate("Внимание!") 
  wait 50 
 
 objShell.SendKeys "{ENTER}",0 
  
 wait 1000 
  
  goto NEXTFILE 
  
 ' ----------------------- Конец  нажатие на кнопку Ок на вкладке Внимание 
  
	 
	   
	Else 
   '  Print "Текущий компонент не имеет адреса местоположения" 
	wait 1000 
	goto NEXTFILE 
    
	End If 
  Else 
  '  Print "Текущий компонент не может быть сохранен" 
		wait 1000 
	goto NEXTFILE 
  End If 
End Sub

забирайте, потестите ПЛЗ... Пожелания сюда

[raus]

собрал в пакет Желтые Кнопки. В Опен Офисе это называется "расширение"
. Потестите ПЛЗ..

скачать

[raus]

новая сборка Желтых Кнопок скачать

[raus]

Написал инструкцию к ЖВК. Поставте своим приставам и дайте инструкцию. Немножко жызнь этим облегчите.

скачать