写入word_010 Ruby Excel逐行写入Word

上期，我们讲解了如何从Word题库将题干、选项、答案分离，并在excel里保存。

很多时候我们整理了一套Excel试题题库，想生成一套试卷进行自我测评，如果自己手工整理，2天2夜也做不完。

这期，我们就一起看一看。

如何使用Ruby，20秒内完成一套150题的试卷输出。

【Python，我都没学会，又想骗我学Ruby？】——笑cry~

其实，某些情况下，Ruby确实比Python好用，仁者见仁智者见智。

001 需求分析

如图所示，我需要将Excel转换为Word。我该怎么做呢？

002 思路解析

很显然，我们先把Excel区域读入内存数组，再通过循环建立Wdc.paragraphs(m).range.text和arr[i][j]的连接即可。

003 源码展示

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
    }
  }

附：第9期 C#实现Word->Excel的方法演示代码。

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();
    }
  }
}