Вернуться   Forums > Основной раздел > Трещалка

Важная информация

Ответ
 
Опции темы Опции просмотра

Макрос для Ворда :)
Старый 17.12.2008, 15:57   #1
Yuchiro
Рыцарь
 
Аватар для Yuchiro
Беcпартийная
 
Регистрация: 01.11.2008
Адрес: Город, улица, дом, квартира
Сообщений: 914
Ник: Burzum
Профа/ур: Арб(Arb)/20
По умолчанию Макрос для Ворда :)

От нех(рен) делать решил заморочаться и сделать для народа в отделе небольшой макросик: снизу текста добавляется табличка с невидимыми границами с текстом и полями для заполнения.

Трабла: почему-то в части таблицы кегль шрифта 12, а в другой - 11 Как сие выправить?

Код:
Sub однакомазафако()
'
' однакомазафако Макрос
'
'
  Selection.Font.Size = 12
  ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _
  2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
  wdAutoFitFixed
  Selection.Font.Size = 12
  With Selection.Tables(1)
  If .Style <> "Сетка таблицы" Then
  .Style = "Сетка таблицы"
  End If
  .ApplyStyleHeadingRows = True
  .ApplyStyleLastRow = False
  .ApplyStyleFirstColumn = True
  .ApplyStyleLastColumn = False
  .ApplyStyleRowBands = True
  .ApplyStyleColumnBands = False
  End With
  Selection.Font.Size = 12
  With Selection.Tables(1)
  .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
  .Borders(wdBorderRight).LineStyle = wdLineStyleNone
  .Borders(wdBorderTop).LineStyle = wdLineStyleNone
  .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
  .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
  .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
  .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
  .Borders.Shadow = False
  End With
  With Options
  .DefaultBorderLineStyle = wdLineStyleSingle
  .DefaultBorderLineWidth = wdLineWidth050pt
  .DefaultBorderColor = -587137025
  End With
  Selection.TypeText Text:="_______пись_________________"
  Selection.TypeParagraph
  Selection.TypeParagraph
  Selection.TypeText Text:="_______пись___________________"
  Selection.TypeParagraph
  Selection.TypeParagraph
  Selection.TypeText Text:=" Бабаков В.О."
  Selection.TypeParagraph
      Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:= _
        False, DateLanguage:=wdRussian, CalendarType:=wdCalendarWestern, _
        InsertAsFullWidth:=False
  Selection.MoveRight Unit:=wdCharacter, Count:=1
  Selection.MoveLeft Unit:=wdCharacter, Count:=1
  Selection.MoveUp Unit:=wdLine, Count:=3, Extend:=wdExtend
  Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
  Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
  Selection.Font.Shrink
  Selection.MoveRight Unit:=wdCell
  Application.Keyboard (1033)
  Application.Keyboard (1049)
  Application.Keyboard (1033)
  Application.Keyboard (1049)
  Application.Keyboard (1033)
  Application.Keyboard (1049)
  Selection.Font.Size = 12
  Selection.TypeText Text:="Направлено факсом ""____""_________200__г"
  Selection.MoveDown Unit:=wdLine, Count:=0
  Selection.MoveUp Unit:=wdLine, Count:=0
  Selection.TypeParagraph
  Selection.TypeText Text:="____ч. ____мин."
  Selection.TypeParagraph
  Selection.TypeText Text:="по телефону_______________"
  Selection.TypeParagraph
  Selection.TypeText Text:="принял(а):_____________________________"
  Selection.TypeParagraph
  Selection.TypeText Text:="отправил :_____________________________"
End Sub
__________________
Двадцать пятого числа сего ​месяца старый дворник во дворе у нас повесился но не будем мы о нем ​горевать дворник старый молодым вперед шагать. (с) дядя Федор. Вперед микс!!!!
Yuchiro вне форума   Ответить с цитированием

Старый 18.12.2008, 00:21   #2
Blood
Кнехт
 
Аватар для Blood
melee party Blood
 
Регистрация: 31.10.2008
Адрес: Рязань
Сообщений: 419
Ник: Blood
Профа/ур: ВВ(WC)/63
По умолчанию

В чём смысл сего кода?
__________________
Наше от нас не уйдёт, то что ушло было не наше...
Blood вне форума   Ответить с цитированием

Старый 20.12.2008, 02:19   #3
ХимоБиоШмалеДоп
Командор
 
Аватар для ХимоБиоШмалеДоп
Беcпартийный
 
Регистрация: 01.11.2008
Адрес: Москва
Сообщений: 1,237
Ник: EVE online
По умолчанию

бррр, ты макросы пишешь чтоле? щ_Щ
уж0снах, в таком УГ я пасс ковыряться, проще самому написать с нуля!
__________________
PHP код:
#!/usr/bin/perl
open(A,__FILE__);
while(<
A>)
{print;} 
ХимоБиоШмалеДоп вне форума   Ответить с цитированием

Старый 20.12.2008, 15:21   #4
Yuchiro
Рыцарь
 
Аватар для Yuchiro
Беcпартийная
 
Регистрация: 01.11.2008
Адрес: Город, улица, дом, квартира
Сообщений: 914
Ник: Burzum
Профа/ур: Арб(Arb)/20
По умолчанию

какой писать. я йуристъ
нажал кнопачьку запесь макреса и получилось. не до конца правда (
__________________
Двадцать пятого числа сего ​месяца старый дворник во дворе у нас повесился но не будем мы о нем ​горевать дворник старый молодым вперед шагать. (с) дядя Федор. Вперед микс!!!!
Yuchiro вне форума   Ответить с цитированием

Старый 20.12.2008, 15:43   #5
ХимоБиоШмалеДоп
Командор
 
Аватар для ХимоБиоШмалеДоп
Беcпартийный
 
Регистрация: 01.11.2008
Адрес: Москва
Сообщений: 1,237
Ник: EVE online
По умолчанию

скажи что надо сделать, возможно наконструячу...
__________________
PHP код:
#!/usr/bin/perl
open(A,__FILE__);
while(<
A>)
{print;} 
ХимоБиоШмалеДоп вне форума   Ответить с цитированием

Старый 20.12.2008, 16:06   #6
Yuchiro
Рыцарь
 
Аватар для Yuchiro
Беcпартийная
 
Регистрация: 01.11.2008
Адрес: Город, улица, дом, квартира
Сообщений: 914
Ник: Burzum
Профа/ур: Арб(Arb)/20
По умолчанию

чтоп вниз от текста добавлялась табличка с невидимыми гранями.

В левой ячейке были две фамилии с местом под подписи
снизу от фамилий фамилия исполнителя и текущая дата

В правой ячейке :
Направлено факсом "____""_________200__г"
____ч. ____мин.
по телефону_______________
принял(а):_____________________________
отправил :_____________________________

Шрифт визде 12цытый =)
__________________
Двадцать пятого числа сего ​месяца старый дворник во дворе у нас повесился но не будем мы о нем ​горевать дворник старый молодым вперед шагать. (с) дядя Федор. Вперед микс!!!!
Yuchiro вне форума   Ответить с цитированием

Старый 20.12.2008, 16:17   #7
ХимоБиоШмалеДоп
Командор
 
Аватар для ХимоБиоШмалеДоп
Беcпартийный
 
Регистрация: 01.11.2008
Адрес: Москва
Сообщений: 1,237
Ник: EVE online
По умолчанию

ща попробую что-нибудь сделать...

зЫ а может проще шаблон новый такой сделать ;)
__________________
PHP код:
#!/usr/bin/perl
open(A,__FILE__);
while(<
A>)
{print;} 

Последний раз редактировалось ХимоБиоШмалеДоп; 20.12.2008 в 16:20..
ХимоБиоШмалеДоп вне форума   Ответить с цитированием

Старый 20.12.2008, 16:46   #8
ХимоБиоШмалеДоп
Командор
 
Аватар для ХимоБиоШмалеДоп
Беcпартийный
 
Регистрация: 01.11.2008
Адрес: Москва
Сообщений: 1,237
Ник: EVE online
По умолчанию

http://dump.ru/file/1340229
Смотри ;)

зЫ шаблоны рулят (:
__________________
PHP код:
#!/usr/bin/perl
open(A,__FILE__);
while(<
A>)
{print;} 
ХимоБиоШмалеДоп вне форума   Ответить с цитированием

Старый 20.12.2008, 17:38   #9
Yuchiro
Рыцарь
 
Аватар для Yuchiro
Беcпартийная
 
Регистрация: 01.11.2008
Адрес: Город, улица, дом, квартира
Сообщений: 914
Ник: Burzum
Профа/ур: Арб(Arb)/20
По умолчанию

Цитата:
Сообщение от DjSelecT Посмотреть сообщение
http://dump.ru/file/1340229
Смотри ;)

зЫ шаблоны рулят (:
Биг сенксъ! =)))
Шаблоны не оч. подходят, т.к. бывает пишешь документ, проблескивает умная мысля и решаешь в догон к почте заюзать факсъ, а тут и бацъ на кнопачгу и макрос выполняется )))
__________________
Двадцать пятого числа сего ​месяца старый дворник во дворе у нас повесился но не будем мы о нем ​горевать дворник старый молодым вперед шагать. (с) дядя Федор. Вперед микс!!!!
Yuchiro вне форума   Ответить с цитированием

Старый 20.12.2008, 17:49   #10
ХимоБиоШмалеДоп
Командор
 
Аватар для ХимоБиоШмалеДоп
Беcпартийный
 
Регистрация: 01.11.2008
Адрес: Москва
Сообщений: 1,237
Ник: EVE online
По умолчанию

ок, будет время, переделаю тебе в макрос, а то работа, да еще и украшать кабинет надо, как никак кризис к нам приходит, т.е. Новый Год!!!
__________________
PHP код:
#!/usr/bin/perl
open(A,__FILE__);
while(<
A>)
{print;} 
ХимоБиоШмалеДоп вне форума   Ответить с цитированием

Старый 20.12.2008, 18:12   #11
Yuchiro
Рыцарь
 
Аватар для Yuchiro
Беcпартийная
 
Регистрация: 01.11.2008
Адрес: Город, улица, дом, квартира
Сообщений: 914
Ник: Burzum
Профа/ур: Арб(Arb)/20
По умолчанию

в субботу работат ето страшниы грех!
__________________
Двадцать пятого числа сего ​месяца старый дворник во дворе у нас повесился но не будем мы о нем ​горевать дворник старый молодым вперед шагать. (с) дядя Федор. Вперед микс!!!!
Yuchiro вне форума   Ответить с цитированием

Старый 20.12.2008, 18:50   #12
ХимоБиоШмалеДоп
Командор
 
Аватар для ХимоБиоШмалеДоп
Беcпартийный
 
Регистрация: 01.11.2008
Адрес: Москва
Сообщений: 1,237
Ник: EVE online
По умолчанию

Цитата:
Сообщение от Yuchiro Посмотреть сообщение
в субботу работат ето страшниы грех!
работать два через два - это лучше, чем пять через два
__________________
PHP код:
#!/usr/bin/perl
open(A,__FILE__);
while(<
A>)
{print;} 
ХимоБиоШмалеДоп вне форума   Ответить с цитированием
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход



Часовой пояс GMT +4, время: 03:16.


vBulletin skin developed by: eXtremepixels
Powered by vBulletin® Version 3.8.12 by vBS
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot