|
| |
 精品推荐 |
 |
|
| |
|
|
|
|
利用 wordXP 实现自动排班
|
日期：2007年8月16日 作者： 查看:[大字体
中字体 小字体]
|
intTableRows = Int(intTableRows / 7) + 1
Else
intTableRows = intTableRows / 7
End If
ActiveDocument.PageSetup.PaperSize = wdPaperA4
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=intTableRows * 2 + 2, NumColumns:= _
7, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitWindow
Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Selection.Tables(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Tables(1).LeftPadding = CentimetersToPoints(0.05)
Selection.Tables(1).RightPadding = CentimetersToPoints(0.05)
Selection.Tables(1).Spacing = 0
'生成表头
Selection.Tables(1).Cell(1, 1).Select
Selection.SelectRow
Selection.Cells.Merge
Selection.Cells.Shading.BackgroundPatternColor = wdColorIndigo
Selection.Font.Size = 15
Selection.Font.Color = wdColorWhite
Selection.TypeText "公元" & InputYear & "年" & InputMonth & "月 "
Selection.Font.Color = wdColorYellow
Selection.TypeText "农历 " & cyclical(InputYear) & Animal(InputYear) & "年"
For i = 1 To 7
If i = 1 Or i = 7 Then
Selection.Tables(1).Cell(2, i).Range.Font.Color = wdColorRed
Else
Selection.Tables(1).Cell(2, i).Range.Font.Color = wdColorBlack
End If
Selection.Tables(1).Cell(2, i).Range.Font.Size = 15
Selection.Tables(1).Cell(2, i).Range.Font.Bold = True
Selection.Tables(1).Cell(2, i).Range.Text = " 星期" & nStr1(i - 1)
上一篇:新一代开源系统ubuntu，免费寄送光盘。
下一篇:17.2 Class members
|
| 利用 wordXP 实现自动排班 相关文章： |
|
|
|
| 利用 wordXP 实现自动排班 相关软件： |
|
|
|
|
