C# VBA 填充Word表格 ，並隨意轉移儲存格焦點或插入文本，及相關文字的顏色、粗體等相關屬性。

Word內建的宏，可以給我們在VBA調用時，給予足夠的協助與支援。  ，方便，快捷。

using Microsoft.Office.Interop.Word;
using System.IO;
using System.Web;
using Microsoft.Win32;
using System.Text.RegularExpressions;
using System.Net;

/// <summary>
  /// 把資料匯入到.doc檔案
  /// </summary>
  /// <param name="ds"></param>
  public void ExportToWord()
  {
      object tempFileName = @"C:\eeeeee.doc";
      object filename = @"C:\555555.doc";
    object tableBehavior = Microsoft.Office.Interop.Word.WdDefaultTableBehavior.wdWord9TableBehavior;
    object autoFitBehavior = Microsoft.Office.Interop.Word.WdAutoFitBehavior.wdAutoFitFixed;
    object unit = Microsoft.Office.Interop.Word.WdUnits.wdLine;//移到未尾
    object extend = System.Reflection.Missing.Value;
    object breakType = (int)Microsoft.Office.Interop.Word.WdBreakType.wdSectionBreakNextPage;
    object count = 7;
    object character = Microsoft.Office.Interop.Word.WdUnits.wdCharacter;
    object Nothing =  System.Reflection.Missing.Value;    
     
    Microsoft.Office.Interop.Word.Application myWord = new Microsoft.Office.Interop.Word.ApplicationClass();
    Microsoft.Office.Interop.Word._Document myDoc = new Microsoft.Office.Interop.Word.DocumentClass();
    object oMissing = System.Reflection.Missing.Value;
    object oReadOnly = false;
    myDoc = myWord.Documents.Open(ref tempFileName, ref oMissing, ref oReadOnly, ref oMissing, ref oMissing,
    ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing);
     myDoc.Activate();

     Table newTable = myDoc.Tables[1];
     //設定表格樣式 
     newTable.Borders.OutsideLineStyle = WdLineStyle.wdLineStyleThickThinLargeGap;
     newTable.Borders.InsideLineStyle = WdLineStyle.wdLineStyleSingle;

     ////填充表格內容 
     //newTable.Cell(1, 1).Range.Text = "產品詳細資料表   \n\r ssdfgdfg  \n\r ";
     //newTable.Cell(1, 1).Range.Bold = 2; //設定儲存格中字型為粗體 
    
     ////填充表格內容 
     //newTable.Cell(1, 1).Range.Text = "產品詳細資料表   \n\r d \n\r ";
     //newTable.Cell(1, 1).Range.Bold = 2; //設定儲存格中字型為粗體     
     object dirc = Microsoft.Office.Interop.Word.WdCollapseDirection.wdCollapseStart;
     object tend = Microsoft.Office.Interop.Word.WdMovementType.wdMove;
   
     newTable.Cell(1, 1).Range.Select();  //擷取焦點
     count = 1;
     myDoc.ActiveWindow.Selection.MoveRight(ref character, ref count, ref tend);
     newTable.Cell(1, 1).Range.Text = "填充表格內容f";
     newTable.Cell(1, 1).Range.Font.Color = WdColor.wdColorRed;
     myDoc.ActiveWindow.Selection.Collapse(ref dirc);
     myDoc.ActiveWindow.Selection.Font.Color = WdColor.wdColorRed;

     newTable.Cell(1, 1).Range.Select(); //擷取焦點
      unit = Microsoft.Office.Interop.Word.WdUnits.wdLine;//移到未尾
      myDoc.ActiveWindow.Selection.EndKey(ref unit, ref extend);
      myDoc.ActiveWindow.Selection.InsertAfter("第二次插入");
      myDoc.ActiveWindow.Selection.Font.Color = WdColor.wdColorGreen;
      myDoc.ActiveWindow.Selection.Font.Bold = 1;
 
      newTable.Cell(1, 1).Range.Select(); //擷取焦點
      unit = Microsoft.Office.Interop.Word.WdUnits.wdLine;//移到未尾
      myDoc.ActiveWindow.Selection.EndKey(ref unit, ref extend);
     
      myDoc.ActiveWindow.Selection.InsertAfter("第三次插入");
      myDoc.ActiveWindow.Selection.Font.Color = WdColor.wdColorDarkBlue;
      myDoc.ActiveWindow.Selection.Font.Bold = 1;

      newTable.Cell(1, 1).Range.Select(); //擷取焦點
      unit = Microsoft.Office.Interop.Word.WdUnits.wdLine;//移到未尾
      myDoc.ActiveWindow.Selection.EndKey(ref unit, ref extend);
      myWord.Application.Selection.TypeParagraph(); //重新起新行
      myWord.Application.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphRight;
      myDoc.ActiveWindow.Selection.InsertAfter("第4次插入");
      myDoc.ActiveWindow.Selection.Font.Color = WdColor.wdColorDarkGreen;
      myDoc.ActiveWindow.Selection.Font.Italic = 1;
      newTable.Cell(1, 1).Range.Select(); //擷取焦點
      unit = Microsoft.Office.Interop.Word.WdUnits.wdLine;//移到未尾
      myDoc.ActiveWindow.Selection.EndKey(ref unit, ref extend);
  
      myWord.Application.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphRight;
      myDoc.ActiveWindow.Selection.InsertAfter(" 日期：" +DateTime.Today);
      myDoc.ActiveWindow.Selection.Font.Color = WdColor.wdColorBlue;
      myDoc.ActiveWindow.Selection.Font.Bold = 1;
     //儲存word檔案到指定的目錄下
     try
     {
         myDoc.SaveAs(ref filename, 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, ref Nothing);
      myWord.Visible = true;
     }
     catch
     {
         return;
     }  
      myWord.Visible = true;
    }

產生以下表格的儲存格：