Forums

Forums (http://l2.prioz.ru/forum/index.php)
-   Трещалка (http://l2.prioz.ru/forum/forumdisplay.php?f=6)
-   -   Макрос для Ворда :) (http://l2.prioz.ru/forum/showthread.php?t=2307)

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

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

Код:
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

Blood 18.12.2008 00:21
В чём смысл сего кода?

ХимоБиоШмалеДоп 20.12.2008 02:19
бррр, ты макросы пишешь чтоле? щ_Щ
уж0снах, в таком УГ я пасс ковыряться, проще самому написать с нуля!

Yuchiro 20.12.2008 15:21
какой писать. я йуристъ :crazy:
нажал кнопачьку запесь макреса и получилось. не до конца правда (

ХимоБиоШмалеДоп 20.12.2008 15:43
скажи что надо сделать, возможно наконструячу...

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

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

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

Шрифт визде 12цытый =)

ХимоБиоШмалеДоп 20.12.2008 16:17
ща попробую что-нибудь сделать...

зЫ а может проще шаблон новый такой сделать ;)

ХимоБиоШмалеДоп 20.12.2008 16:46
http://dump.ru/file/1340229
Смотри ;)

зЫ шаблоны рулят (:

Yuchiro 20.12.2008 17:38
Цитата:
Сообщение от DjSelecT (Сообщение 63716)
http://dump.ru/file/1340229
Смотри ;)

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

ХимоБиоШмалеДоп 20.12.2008 17:49
ок, будет время, переделаю тебе в макрос, а то работа, да еще и украшать кабинет надо, как никак кризис к нам приходит, т.е. Новый Год!!! :lol:

Yuchiro 20.12.2008 18:12
в субботу работат ето страшниы грех!

ХимоБиоШмалеДоп 20.12.2008 18:50
Цитата:
Сообщение от Yuchiro (Сообщение 63764)
в субботу работат ето страшниы грех!
работать два через два - это лучше, чем пять через два :blum1:


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

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