010 Ruby Excel逐行写入Word

require "win32ole"
Pth=File.dirname(__FILE__)
  
Eap=WIN32OLE::new("Excel.Application");Eap.visible=true
Ebk=Eap.workbooks.open(Pth+'/excel.xls')

Wap=WIN32OLE::new("word.Application");Wap.visible=true
Wdc=Wap.documents.open(Pth+'/题库.doc')

arr=Array
arr=Ebk.worksheets(1).range("a1:g150").value

m=1;(0..149).each{|i|
    (0..6).each{|j|
      if arr[i][j]!=nil 
        Wdc.paragraphs(m).range.text=arr[i][j]
        m+=1
      end
    }
  }

using System;
using System.IO; 
using System.Diagnostics;

using Word=Microsoft.Office.Interop.Word;
using Excel=Microsoft.Office.Interop.Excel;

namespace tiku_to_excel
{
  class Program
  {
    public static void Main(string[] args)
    {
      Stopwatch timer = new Stopwatch();
            timer.Start();
            
      string Pth=AppDomain.CurrentDomain.BaseDirectory;
      Word._Application Wap = new Word.Application();Wap.Visible=true;  
      Word._Document Wdc = Wap.Documents.Open(Pth + @"/2020年安全生产月全国安全知识网络竞赛活动题库.doc");

      string s1="A.";
      string s4="D.";
      string s5="正确答案";
      string [,] arr= new string [150,7];
      int t = Wdc.Paragraphs.Count;         
      int i=0;  
    
            for(int j = 1 ;j<=t;j++)
            {
              Word.Paragraph Wph = Wdc.Paragraphs[j];
              if (Wph.Range.Text.IndexOf(s1)==0)
                {
                  arr[i,0] = Wdc.Paragraphs[j-2].Range.Text;
                  arr[i,1] = Wdc.Paragraphs[j-1].Range.Text;
                arr[i,2] = Wdc.Paragraphs[j].Range.Text;
                  arr[i,3] = Wdc.Paragraphs[j+1].Range.Text;
                  arr[i,4] = Wdc.Paragraphs[j+2].Range.Text;
              }
                else if(Wph.Range.Text.IndexOf(s4)==0)
                {
                  arr[i,5] = Wph.Range.Text;
                }
                else if(Wph.Range.Text.IndexOf(s5)==0)
                {
                  arr[i,6] = Wph.Range.Text;
                  i++;
                }  
            }
      Excel._Application Eap = new Excel.Application();Eap.Visible=true;
      Excel._Workbook Ebk = Eap.Workbooks.Open( Pth + @"/tiku_to_excel.xls");
      Ebk.Worksheets[1].Range("A1").Resize(150,7).value=arr;
      timer.Stop();
      Console.WriteLine("使用C#用时："+timer.Elapsed.TotalSeconds+" 秒");
      Console.ReadLine();
    }
  }
}