Selection.Font.Color = lngColor
Selection.TypeText strTmp
Next
'
' '以下部分是为了美化输出，如搂住不需要可以将以下部分完全注释掉
' With Selection.Tables(1)
' .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
' .Borders(wdBorderRight).LineStyle = wdLineStyleNone
' .Borders(wdBorderTop).LineStyle = wdLineStyleNone
' .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
' .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
' .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
' .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
' .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
' .Borders.Shadow = False
' End With
For i = 1 To intMonthDays
intWeekDay = Weekday(InputYear & "-" & InputMonth & "-" & i)
intRow = ((intFirstDayWeek + i - 2) \ 7 + 1) * 2 + 2 '计算行位置
Selection.Tables(1).Cell(intRow, intWeekDay).Select
Selection.Font.Size = 16
Selection.TypeText Mid(m((CInt(member) + i - 1) Mod 9), 2)
Next
Application.ScreenUpdating = True
End Sub
'数据初始化
Private Sub Initialize()
Dim strTmp As String
LunarInfo(0) = &H4BD8
LunarInfo(1) = &H4AE0
LunarInfo(2) = &HA570
LunarInfo(3) = &H54D5
LunarInfo(4) = &HD260
LunarInfo(5) = &HD950
LunarInfo(6) = &H16554
LunarInfo(7) = &H56A0
LunarInfo(8) = &H9AD0
LunarInfo(9) = &H55D2
LunarInfo(10) = &H4AE0
LunarInfo(11) = &HA5B6
LunarInfo(12) = &HA4D0
LunarInfo(13) = &HD250
LunarInfo(14) = &H1D255
LunarInfo(15) = &HB540
LunarInfo(16) = &HD6A0
LunarInfo(17) = &HADA2
LunarInfo(18) = &H95B0
上一篇:青少年培养与网络文化漫谈（下篇）
下一篇:电脑使用者的眼睛保护须知
|
精品推荐