Макрос для Ворда :)

[Yuchiro]

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

Трабла: почему-то в части таблицы кегль шрифта 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

[Blood]

В чём смысл сего кода?

[ХимоБиоШмалеДоп]

бррр, ты макросы пишешь чтоле? щ_Щ
уж0снах, в таком УГ я пасс ковыряться, проще самому написать с нуля!

[Yuchiro]

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

[ХимоБиоШмалеДоп]

скажи что надо сделать, возможно наконструячу...

[Yuchiro]

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

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

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

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

[ХимоБиоШмалеДоп]

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

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

[ХимоБиоШмалеДоп]

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

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

[Yuchiro]

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

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

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

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

[ХимоБиоШмалеДоп]

ок, будет время, переделаю тебе в макрос, а то работа, да еще и украшать кабинет надо, как никак кризис к нам приходит, т.е. Новый Год!!!

[Yuchiro]

в субботу работат ето страшниы грех!

[ХимоБиоШмалеДоп]

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

в субботу работат ето страшниы грех!

работать два через два - это лучше, чем пять через два