月份、星期、生肖及图标.rar

    1. using Microsoft.Office.Core;
    2. using Microsoft.Office.Interop.Word;
    3. using System;
    4. using System.Diagnostics;
    5. using System.Globalization;
    6. using System.Reflection;
    7. using System.Windows.Forms;
    8. using Application = Microsoft.Office.Interop.Word.Application;
    9. using Shape = Microsoft.Office.Interop.Word.Shape;
    11. namespace CalendarGenerationTool
    12. {
    13.     public partial class MainFrm : Form
    14.     {
    15.         public static string ImageLocal { get; set; }
    16.         public static Application MSApp { get; set; }
    17.         public static Document MSdoc { get; set; } = new Document();
    18.         //由于使用的是COM库，因此有许多变量需要用Missing.Value代替
    19.         public static object Nothing = Missing.Value;
    20.         public MainFrm()
    21.         {
    22.             InitializeComponent();
    23.         }
    24.         private void MainFrm_Load(object sender, EventArgs e)
    25.         {
    26.             MyMethod.ImgFileInitialization();//图片路径初始化
    27.             ImageLocal = $"{MyMethod.GetLocalDirectory()}\\CalendarToolImage";//文件路径
    28.             CalendarYear.Text = DateTime.Now.Year.ToString();
    29.             ChinaDate.MyYear = int.Parse(CalendarYear.Text);
    30.             if (ChinaDate.MyYear == 1901) MyPBar.Maximum = CultureInfo.CurrentCulture.Calendar.GetDaysInYear(ChinaDate.MyYear) + 99;
    31.             else if (ChinaDate.MyYear == 2101) MyPBar.Maximum = 56;
    32.             else MyPBar.Maximum = CultureInfo.CurrentCulture.Calendar.GetDaysInYear(ChinaDate.MyYear) + 160;
    33.         }
    34.         private void AcceptOut_Click(object sender, EventArgs e)
    35.         {
    36.             try
    37.             {
    38.                 Stopwatch stopWatch = new Stopwatch();
    39.                 stopWatch.Start();
    40.                 MyPBar.Value = 0;
    41.                 object DocPath = $"{Environment.GetFolderPath(Environment.SpecialFolder.Desktop)}";
    42.                 DocPath = $"{DocPath}\\公元{ChinaDate.MyYear}({ChinaDate.GetEraYearZodiac(ChinaDate.MyYear)})年年历表({(Direction.Checked == true ? "竖向" : "横向")}).docx";
    43.                 MSApp = new Application
    44.                 {
    45.                     ScreenUpdating = false,
    46.                     DisplayAlerts = WdAlertLevel.wdAlertsNone
    47.                 };
    48.                 MSdoc = MSApp.Documents.Add(Missing.Value, ref Nothing, ref Nothing, ref Nothing);
    49.                 MSApp.ActiveWindow.View.ShowParagraphs = true;//隐藏段落标记
    50.                                                               //MSApp.Visible = true;
    51.                 MyPBar.PerformStep();
    52.                 //设置纸张方向
    53.                 MSdoc.PageSetup.Orientation = WdOrientation.wdOrientLandscape;//横向
    54.                 MyPBar.PerformStep();
    55.                 //if (Direction.Checked)
    56.                 //    MSdoc.PageSetup.Orientation = WdOrientation.wdOrientPortrait;//竖向
    57.                 //else
    58.                 //    MSdoc.PageSetup.Orientation = WdOrientation.wdOrientLandscape;//横向
    59.                 //页边距设置
    60.                 MSdoc.PageSetup.TopMargin = MSApp.MillimetersToPoints(0);
    61.                 MSdoc.PageSetup.BottomMargin = MSApp.MillimetersToPoints(0);
    62.                 MSdoc.PageSetup.LeftMargin = MSApp.MillimetersToPoints(0);
    63.                 MSdoc.PageSetup.RightMargin = MSApp.MillimetersToPoints(0);
    64.                 MyPBar.PerformStep();
    65.                 //行距设置
    66.                 MSApp.Selection.WholeStory();
    67.                 MSApp.Selection.ParagraphFormat.SpaceBeforeAuto = 0;
    68.                 MSApp.Selection.ParagraphFormat.SpaceAfterAuto = 0;
    69.                 MSApp.Selection.ParagraphFormat.LineSpacingRule = WdLineSpacing.wdLineSpaceAtLeast;
    70.                 MSApp.Selection.ParagraphFormat.LineSpacing = 0.7f;
    71.                 MyPBar.PerformStep();
    72.                 //添加7行9列的表格
    73.                 Table TabDad = MSdoc.Tables.Add(MSApp.Selection.Range, 7, 9, WdDefaultTableBehavior.wdWord9TableBehavior, WdAutoFitBehavior.wdAutoFitFixed);
    74.                 TabDad.PreferredWidth = MSApp.MillimetersToPoints(297);//设置表表格宽度
    75.                 //设置单元格水平垂直居中对齐
    76.                 TabDad.Range.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter;
    77.                 TabDad.Range.Cells.VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalCenter;
    78.                 MyPBar.PerformStep();
    79.                 //设置单元格边距
    80.                 SetPadding(TabDad);
    81.                 MyPBar.PerformStep();
    82.                 //设置行高
    83.                 TabDad.AutoFitBehavior(WdAutoFitBehavior.wdAutoFitFixed);
    84.                 float[] rowhig = { 19f, 17.5f, 42f, 21.4f, 42f, 21.4f, 42f };
    85.                 for (int i = 1; i <= TabDad.Rows.Count; i++)
    86.                 {
    87.                     Row row = TabDad.Rows[i];
    88.                     SetTabRowHig(row, rowhig[i - 1]);
    89.                 }
    90.                 TabDad.Rows.AllowBreakAcrossPages = 0;
    91.                 MyPBar.PerformStep();
    92.                 //设置行高
    93.                 float[] colwid = { 14.6f, 56f, 14.6f, 56f, 14.6f, 56f, 14.6f, 56f, 14.6f };
    94.                 for (int i = 1; i <= TabDad.Columns.Count; i++)
    95.                 {
    96.                     TabDad.Columns[i].PreferredWidthType = WdPreferredWidthType.wdPreferredWidthPoints;
    97.                     TabDad.Columns[i].PreferredWidth = MSApp.MillimetersToPoints(colwid[i - 1]);
    98.                 }
    99.                 MyPBar.PerformStep();
    100.                 //设置表格无轮廓
    101.                 TabDad.Borders.InsideLineStyle = WdLineStyle.wdLineStyleNone;
    102.                 TabDad.Borders.OutsideLineStyle = WdLineStyle.wdLineStyleNone;
    103.                 MyPBar.PerformStep();
    104.                 //第一行合并，文本水平垂直居中
    105.                 TabDad.Rows[1].Cells.Merge();
    106.                 TabDad.Rows[1].Range.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter;
    107.                 TabDad.Rows[1].Cells.VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalCenter;
    108.                 MyPBar.PerformStep();
    110.                 //在第一行插入文本框
    111.                 Shape shp = MSdoc.Shapes.AddTextbox(MsoTextOrientation.msoTextOrientationHorizontal, (float)((1 - 60) * 72 / 25.4), (float)(1 * 72 / 25.4), (float)(200 * 72 / 25.4), (float)(12 * 72 / 25.4), TabDad.Cell(1, 1).Range);
    112.                 shp.WrapFormat.Type = WdWrapType.wdWrapInline;
    113.                 shp.Name = "YearTBox";
    114.                 shp.Line.Visible = MsoTriState.msoFalse;//无轮廓
    115.                 MSApp.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter;//设置文本框架水平对齐方式
    116.                 MyPBar.PerformStep();
    117.                 ////设置文本框内部边距
    118.                 shp.TextFrame.MarginBottom = 0f;
    119.                 shp.TextFrame.MarginLeft = 0f;
    120.                 shp.TextFrame.MarginRight = 0f;
    121.                 shp.TextFrame.MarginTop = 0f;
    122.                 MyPBar.PerformStep();
    123.                 ////设置文本框填充颜色
    124.                 shp.Fill.BackColor.RGB = (int)XlRgbColor.xlLightGray;
    125.                 //shp.TextFrame.ContainingRange.HighlightColorIndex = WdColorIndex.wdGray25;
    126.                 shp.TextFrame.TextRange.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter;//设置文本框架中文本的水平对齐方式
    127.                 shp.TextFrame.VerticalAnchor = MsoVerticalAnchor.msoAnchorMiddle;//设置文本框架中文本的垂直居中对齐方式
    128.                 MyPBar.PerformStep();
    129.                 ////设置文本框行距
    130.                 shp.TextFrame.TextRange.ParagraphFormat.LineSpacingRule = WdLineSpacing.wdLineSpaceExactly;
    131.                 shp.TextFrame.TextRange.ParagraphFormat.LineSpacing = 32f;//设置行距
    132.                 MyPBar.PerformStep();
    133.                 //设置字体大小及字体名
    134.                 shp.TextFrame.TextRange.Font.Size = 23f;//设置字体大小
    135.                 shp.TextFrame.TextRange.Font.Name = "微软雅黑";//设置字体名
    136.                 shp.TextFrame.TextRange.Text = $"公元{ChinaDate.MyYear}({ChinaDate.GetEraYearZodiac(ChinaDate.MyYear)})年年历表";
    137.                 MyPBar.PerformStep();
    138.                 //InsertImg(TabDad, MyPBar);//插入月份星期图片
    139.                 InsertDateTab(TabDad, MyPBar);
    140.                 //移动光标
    141.                 object unite = WdUnits.wdStory;
    142.                 MSApp.Selection.EndKey(ref unite, ref Nothing);//将光标移到文本末尾
    143.                 MSApp.Selection.Font.Size = 1f;
    144.                 //插入生肖图片
    145.                 string imgpath = $"{ImageLocal}\\{ChinaDate.GetChineseZodiac(ChinaDate.MyYear)}1.jpg";
    146.                 Shape Zodiac = MSdoc.Shapes.AddPicture(imgpath, Nothing, Nothing, 0, (float)(206 * 72 / 25.4), (float)(297 * 72 / 25.4), (float)(210 * 72 / 25.4), Nothing);
    147.                 Zodiac.WrapFormat.Type = WdWrapType.wdWrapBehind;//嵌入型
    148.                 Zodiac.LayoutInCell = 0;//设置图片的表格单元格中的版式
    149.                 Zodiac.RelativeHorizontalPosition = WdRelativeHorizontalPosition.wdRelativeHorizontalPositionPage;//设置横向对齐于页面
    150.                 Zodiac.RelativeVerticalPosition = WdRelativeVerticalPosition.wdRelativeVerticalPositionPage;//设置垂直对齐于页面
    151.                 Zodiac.Top = (float)WdShapePosition.wdShapeCenter;//图片上下居中
    152.                 Zodiac.Left = (float)WdShapePosition.wdShapeCenter;//图片左右居中
    153.                 //Zodiac.Width = MSApp.MillimetersToPoints(297f);
    154.                 //Zodiac.Height = MSApp.MillimetersToPoints(210f);
    155.                 MSApp.ScreenUpdating = true;
    156.                 MSApp.DisplayAlerts = WdAlertLevel.wdAlertsMessageBox;
    157.                 MSApp.ScreenRefresh();
    158.                 object docformat = WdSaveFormat.wdFormatDocumentDefault;
    159.                 MSdoc.SaveAs(ref DocPath, ref docformat, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing);
    160.                 MSdoc.Close();
    161.                 MyPBar.PerformStep();
    162.                 stopWatch.Stop();
    163.                 TimeSpan tml = stopWatch.Elapsed;
    164.                 string elapsedTime = string.Format("{0:00} 时 {1:00} 分 {2:00} 秒 {3:00}", tml.Hours, tml.Minutes, tml.Seconds, tml.Milliseconds / 10);
    165.                 MessageBox.Show($"{ChinaDate.MyYear}年日历制作完成，共耗时：{elapsedTime}，感谢使用！");
    166.                 Process.Start("Explorer.exe", $"/select,{DocPath}");
    167.             }
    168.             catch (Exception)
    169.             {
    170.                 throw;
    171.             }
    172.             finally
    173.             {
    174.                 MSApp.Quit();
    175.             }
    176.         }
    178.         private static void SetPadding(Table TabDad)
    179.         {
    180.             //设置单元格边距
    181.             TabDad.TopPadding = MSApp.MillimetersToPoints(0);
    182.             TabDad.BottomPadding = MSApp.MillimetersToPoints(0);
    183.             TabDad.LeftPadding = MSApp.MillimetersToPoints(0);
    184.             TabDad.RightPadding = MSApp.MillimetersToPoints(0);
    185.             TabDad.Spacing = 0;
    186.             TabDad.AllowPageBreaks = true;
    187.             TabDad.AllowAutoFit = false;//不允许调整单元格间距
    188.         }
    190.         private static void SetTabRowHig(Row row, float height)
    191.         {
    192.             row.HeightRule = WdRowHeightRule.wdRowHeightExactly;
    193.             row.Height = MSApp.MillimetersToPoints(height);
    194.         }
    196.         private static void InsertDateTab(Table tab, ProgressBar MyPBar)
    197.         {
    198.             Range[] monthrags =
    199.             {
    200.                 tab.Cell(3, 2).Range, tab.Cell(3, 4).Range, tab.Cell(3, 6).Range, tab.Cell(3, 8).Range,
    201.                 tab.Cell(5, 2).Range, tab.Cell(5, 4).Range, tab.Cell(5, 6).Range, tab.Cell(5, 8).Range,
    202.                 tab.Cell(7, 2).Range, tab.Cell(7, 4).Range, tab.Cell(7, 6).Range, tab.Cell(7, 8).Range,
    203.             };
    204.             int MMin = 1, MMax = 13;
    205.             if (ChinaDate.MyYear == 1901) MMin = 2;
    206.             else if (ChinaDate.MyYear == 2101) MMax = 2;
    207.             for (int Mth = MMin; Mth < MMax; Mth++)//(int i = 3; i < 8; i += 2)
    208.             {
    209.                 Range wdrag = monthrags[Mth - 1];
    210.                 Table tbl = MSdoc.Tables.Add(wdrag, 1, 7, ref Nothing, ref Nothing);
    211.                 tbl.Select();
    212.                 object rows = 11;
    213.                 MSApp.Selection.InsertRowsBelow(ref rows);
    214.                 //设置表格总宽度
    215.                 tbl.PreferredWidth = MSApp.MillimetersToPoints(56);
    216.                 //设置表格每列宽度
    217.                 tbl.Columns.PreferredWidthType = WdPreferredWidthType.wdPreferredWidthPoints;
    218.                 tbl.Columns.PreferredWidth = MSApp.MillimetersToPoints(8);
    219.                 //设置单元格水平垂直居中对齐
    220.                 tbl.Range.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter;
    221.                 tbl.Range.Cells.VerticalAlignment = WdCellVerticalAlignment.wdCellAlignVerticalCenter;
    222.                 //设置单元格边距
    223.                 SetPadding(tbl);
    224.                 int days = DateTime.DaysInMonth(ChinaDate.MyYear, Mth), ds = 1, rw = 1;
    225.                 if (ChinaDate.MyYear == 1901 && Mth == 2)
    226.                 {
    227.                     //表示公历中1901年2月19日
    228.                     ds = 19;
    229.                     rw = ChinaDate.GetWeekOfMonth(new DateTime(ChinaDate.MyYear, Mth, ds)) * 2 - 1;
    230.                 }
    231.                 else if (ChinaDate.MyYear == 2101)
    232.                 {
    233.                     //表示公历上2101年1月28日
    234.                     days = 28;
    235.                 }
    236.                 for (int d = ds; d <= days; d++)
    237.                 {
    238.                     int col = ChinaDate.GetWeek(ChinaDate.MyYear, Mth, d) + 1;
    239.                     Range crg1 = tbl.Cell(rw, col).Range;
    240.                     crg1.Text = d.ToString();
    241.                     if (col == 1 || col == 7) crg1.Font.Color = WdColor.wdColorRed;
    242.                     Range crg2 = tbl.Cell(rw + 1, col).Range;
    243.                     string holidatstr = ChinaDate.GetDay(ChinaDate.MyYear, Mth, d, out bool isholiday);
    244.                     crg2.Text = holidatstr;
    245.                     if (isholiday)
    246.                     {
    247.                         crg2.Font.Color = WdColor.wdColorRed;
    248.                         if (holidatstr.Length == 4) crg2.Font.Scaling = 75;
    249.                         else if (holidatstr.Length == 5) crg2.Font.Scaling = 60;
    250.                         else if (holidatstr.Length == 6) crg2.Font.Scaling = 50;
    251.                     }
    252.                     if (col == 7) rw += 2;
    253.                     MyPBar.PerformStep();
    254.                 }
    255.                 //设置表格行高，字高行距等
    256.                 for (int k = 1; k <= tbl.Rows.Count; k++)
    257.                 {
    258.                     Row row = tbl.Rows[k];
    259.                     if (k % 2 == 1)
    260.                     {
    261.                         SetTabRowHig(row, 4f);
    262.                         ////设置文本框行距
    263.                         row.Range.ParagraphFormat.LineSpacingRule = WdLineSpacing.wdLineSpaceExactly;
    264.                         row.Range.ParagraphFormat.LineSpacing = 12.5f;//设置行距
    265.                         row.Range.Font.Name = "Yu Gothic Medium";
    266.                         row.Range.Font.Size = 12.5f;
    267.                         row.Range.Font.Bold = 1;
    268.                     }
    269.                     else
    270.                     {
    271.                         SetTabRowHig(row, 3f);
    272.                         row.Range.ParagraphFormat.LineSpacingRule = WdLineSpacing.wdLineSpaceExactly;
    273.                         row.Range.ParagraphFormat.LineSpacing = 7.5f;//设置行距
    274.                         row.Range.Font.Name = "Arial Unicode MS";
    275.                         row.Range.Font.Size = 7.5f;
    276.                     }
    277.                     MyPBar.PerformStep();
    278.                 }
    279.             }
    280.         }
    281.         //private static void InsertImg(Table tab, ProgressBar MyPBar)
    282.         //{
    283.         //    int k = 1;
    284.         //    List<string> imglist = new List<string>() { "Week", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sept", "Oct", "Nov", "Dec" };
    285.         //    for (int i = 2; i < 13; i += 5)
    286.         //    {
    287.         //        for (int j = 2; j < 9; j += 2)
    288.         //        {
    289.         //            InlineShape ils1 = tab.Cell(i, j).Range.InlineShapes.AddPicture($"{ImageLocal}\\{imglist[k++]}.png", Nothing, Nothing, Nothing);
    290.         //            ils1.Width = MSApp.MillimetersToPoints(35f);
    291.         //            ils1.Height = MSApp.MillimetersToPoints(7f);
    292.         //            InlineShape ils2 = tab.Cell(i + 1, j).Range.InlineShapes.AddPicture($"{ImageLocal}\\{imglist[0]}.png", Nothing, Nothing, Nothing);
    293.         //            ils2.Width = MSApp.MillimetersToPoints(56f);
    294.         //            ils2.Height = MSApp.MillimetersToPoints(9f);
    295.         //            MyPBar.PerformStep();
    296.         //        }
    297.         //    }
    298.         //}
    299.         private void CalendarYear_SelectedValueChanged(object sender, EventArgs e)
    300.         {
    301.             if (MyPBar.Value > 0) MyPBar.Value = 0;
    302.             ChinaDate.MyYear = int.Parse(CalendarYear.Text);
    303.             if (ChinaDate.MyYear == 1901) MyPBar.Maximum = CultureInfo.CurrentCulture.Calendar.GetDaysInYear(ChinaDate.MyYear) + 99;
    304.             else if (ChinaDate.MyYear == 2101) MyPBar.Maximum = 56;
    305.             else MyPBar.Maximum = CultureInfo.CurrentCulture.Calendar.GetDaysInYear(ChinaDate.MyYear) + 160;
    306.         }
    308.         private void NowYear_Click(object sender, EventArgs e)
    309.         {
    310.             CalendarYear.Text = DateTime.Now.Year.ToString();
    311.         }
    312.     }
    313. }