摘    要： 在軟件中填充和擴(kuò)展Word表格的實(shí)現(xiàn)原理及方法，并給出了VB程序示例。
關(guān)鍵詞： Word  RTF  表格  填充  Visual Basic

 　　在一些軟件的使用過程中，用戶需要把計(jì)算結(jié)果生成一定格式的Word環(huán)境下的數(shù)據(jù)表格，以便直接插入到工作報(bào)告中。本文將介紹一種Word表格的自動(dòng)填充方法。該方法利用Word文件的RTF(Rich Text Format)存儲(chǔ)格式的特點(diǎn)，可滿足用戶的要求，并能進(jìn)一步實(shí)現(xiàn)行列數(shù)可變的表格的生成。本方法簡(jiǎn)單有效，且無需Word軟件的支持。
1  RTF格式簡(jiǎn)介
　　Word文件有多種存儲(chǔ)格式，除常用的“.doc”外，還有一種“.rtf”。本文將借助RTF格式實(shí)現(xiàn)對(duì)表格的操作。RTF是一種純文本描述性的格式。文件內(nèi)容全部為ASCII碼，可用記事本打開，從而可以看到其全部的描述內(nèi)容，也可以在應(yīng)用軟件中打開該文件并進(jìn)行修改。表格的自動(dòng)填充及擴(kuò)展就是通過這種方式實(shí)現(xiàn)的。
在一個(gè)RTF格式的Word文件中，可以看到用“\”隔開的表示各種格式的字符串和數(shù)字，且Word版本越高其格式越復(fù)雜。但是只需知道幾個(gè)有針對(duì)性的關(guān)鍵的格式字符串及其規(guī)律即可。
任何編程語言對(duì)文本文件和字符串的操作都比較簡(jiǎn)單，故用任何一種語言實(shí)現(xiàn)對(duì)表格的操作都將是簡(jiǎn)單可行的。
2  創(chuàng)建表格模板
 　　先要根據(jù)用戶的需要，借助于Word軟件創(chuàng)建表格模板文件，步驟如下。
　　(1)運(yùn)行Word軟件，按照用戶的要求插入表格，設(shè)置格式，并根據(jù)操作的需要預(yù)填單元格。表格模板示例如表1所示。

　　(2)單擊菜單的“文件/另存為”，文件類型選為“.rtf”，保存即可。此文件即為表格模板文件。
　　(3)在程序中打開此文件，進(jìn)行相應(yīng)操作后，另存為新的目標(biāo)文件。這就是用戶需要的數(shù)據(jù)表格。
　　(4)用戶用Word軟件打開該新文件，可看到填充后的表格，將該表格復(fù)制、粘貼到用戶的Word文檔中即可。
　　下面以Visual Basic為例介紹如何實(shí)現(xiàn)對(duì)模板文件的操作。
3  表格的填充
 　　在RTF格式的模板文件的ASCII碼中，可以看到類似“……\hich\af0\dbch\af15\loch\f0 AA22\cell……”的字符串。其中，“\cell”表示這是在描述一個(gè)單元格的格式及內(nèi)容，“AA22”是單元格內(nèi)容，前邊的字符串是關(guān)于其字體、字號(hào)等格式的描述。
　　RTF在格式描述符中極少用大寫字母，且不會(huì)連續(xù)使用大寫字母，例如有可能出現(xiàn)“Width”但不會(huì)出現(xiàn)“WIDTH”、“WI”及“A2”等字樣。所以，如果每個(gè)單元格的內(nèi)容都是大寫字母或數(shù)字且互不相同(如表1)，則它們?cè)谡麄€(gè)文件的描述字符串中就是惟一的。在軟件中找到該惟一的特征字符串并用相應(yīng)的字符串替換，就實(shí)現(xiàn)了表格的自動(dòng)填充。由于這種填充方式只涉及單元格內(nèi)容而與格式無關(guān)，所以預(yù)先創(chuàng)建的模板表格可以是任意復(fù)雜的，且每個(gè)單元格的字體、字號(hào)等格式也是任意的。
　　在替換時(shí)如果有漢字，則應(yīng)先將其轉(zhuǎn)換成用ASCII碼，如“日”要轉(zhuǎn)換成“\′c8\′d5”（“日”的十六進(jìn)制編碼為“C8D5”）。
　　實(shí)現(xiàn)表格自動(dòng)填充的VB源代碼如下：
　　Private Sub FillGrid(MaxDimension As Integer，
　　　　StrSourceFile As String，StrTargetFile As String，
　　　　　　StrSource( ) As String，StrTarget( ) As String)
　　　　 　　'功能：替換RTF格式的模板源文件中的單元格內(nèi)容，
　　　　　　　′并生成新的RTF格式的目標(biāo)文件
　　′MaxDimension為內(nèi)容數(shù)組的維數(shù)，可以大于表格單元的總個(gè)數(shù)
　    ′StrSourceFile和StrTargetFile分別為RTF格式的模板文件名和目標(biāo)文件名
　    ′StrSource( )和StrTarget( )分別為被替換單元的原始容內(nèi)和新內(nèi)容的字符串?dāng)?shù)組
　    Dim i As Integer，S1 As String，P As Long
    　LoadFileToStr StrSourceFile，S1′把模板文件讀入到字符串S1中，源代碼略
　    For i=0 To MaxDimension-1
  　　　P=InStr(S1，StrSource(i))′在源文件字符串中搜索將被替換的字符串的位置
　　      If P>0 Then　′如果找到則進(jìn)行字符串替換在字符串替換時(shí)，因?yàn)樾麓赡鼙扰f串長，
　　　　　　　　　　′所以不能使用串替換命令，而應(yīng)把整個(gè)字符串分成3段，并重新組合
　　　   S1=Left(S1，P-1)+StrTarget(i)+Mid(S1，P+Len
　　　　　　　　　　　　　　　　　　　(StrSource(i)))
　　　   　　End If
　　　　Next i
    　　　WriteStringToFile StrTargetFile，S1′寫入目標(biāo)文件，源代碼略
　　End Sub
　　該程序的特點(diǎn)是參數(shù)表中數(shù)據(jù)字符串StrTarget( )的維數(shù)與當(dāng)前表格單元格的個(gè)數(shù)無關(guān)。這是因?yàn)?，一個(gè)軟件一般支持多種數(shù)據(jù)類型，通常希望生成含有不同種類數(shù)據(jù)的多種表格。如果將每種數(shù)據(jù)均與某個(gè)互不相同的特征字符串綁定，所有特征字符串和數(shù)據(jù)均放在StrSource( )和StrTarget( )中，則不論表格有多大，該程序均完全適用。
4  增加表格的列數(shù)
　　在有些應(yīng)用軟件中，要處理數(shù)據(jù)的種類（表格的列項(xiàng)）很多，但用戶希望表格的列數(shù)可以任意變化。這時(shí)可采用對(duì)最少列數(shù)的標(biāo)準(zhǔn)表格模板任意增加列的方法，得到與模板表格的行數(shù)相同但列數(shù)任意多的表格。新列的格式與所選定的被復(fù)制列相同。
　　下面介紹簡(jiǎn)單表格(整行整列)的增列方法。對(duì)于特殊表格的加列，則需根據(jù)具體情況編程，雖然程序復(fù)雜一些，但方法大同小異。
　　一個(gè)有表格的RTF文件中，在該表格的描述字符串的前、后和中間都會(huì)有對(duì)該表格的坐標(biāo)等很多參數(shù)的描述。其中最容易理解的是表格豎線的坐標(biāo)描述，例如對(duì)于“cellx2732”，修改其數(shù)值會(huì)改變豎線的位置，而如果將2個(gè)“cellx***”間的描述串（不必知其具體含義）原地復(fù)制一遍（坐標(biāo)值當(dāng)然要做相應(yīng)的修改），同時(shí)將描述相應(yīng)單元格的以“ABC\cell”(“ABC”為單元格內(nèi)容)為標(biāo)志的描述串也原地復(fù)制一遍，則再次打開Word時(shí)，就會(huì)發(fā)現(xiàn)增加了一列。
　　在下面的源代碼中，為了簡(jiǎn)化程序，要求表格模板的單元格內(nèi)容完全相同，并且擴(kuò)充后的表格的單元格內(nèi)容也完全相同，且等列寬。其實(shí)，要想使新表格中單元格內(nèi)容各不相同并能任意設(shè)置列寬是很容易實(shí)現(xiàn)的。
　　在表格中增加列的VB源代碼如下：
　　Private Sub ExpandVolumes(OldVols As Integer，
　　CopiedVol As Integer，NewVols As Integer，
　　MaxWidth As Integer，StrSourceFile As String，
　　StrTargetFile As String，StrCell As String)
　　　　　　　    ′功能：把表格的指定列(不能是第1列)進(jìn)行復(fù)制，形成均勻列寬的多列表格
　　　　　　　    ′說明：原始模板的單元格內(nèi)容必須全部相同(為 Str
　　′Cell，如“ABC”)，新單元格也按此填充
　　　　　　    ′OldVols、CopiedVol和NewVols分別為原始模板的列數(shù)、被復(fù)制列的序號(hào)和擴(kuò)展后的列數(shù)
　　　    　　　′MaxWidth為擴(kuò)展后表格的寬度，此處只考慮4位數(shù)的情況
　    Dim i As Integer，j As Integer，P1 As Long，StartP As Long
　    Dim S1 As String，S2 As String
    　Dim CellPos As Integer，StrTemp As String，ITemp As Integer
　    LoadFileToStr StrSourceFile，S1′把模板文件讀入到字符串S1中
　    S2=″″′S2用于臨時(shí)保存處理過的字符串
    　Do′增加表格的列描述
  　　　For i=1 To OldVols ′原始模板為3列
　　　　      P1=InStr(S1，″cellx″)′在余下的字符串中從起始查找
　　　　      If P1=0 Then′搜索完畢
　　　　　　 S1=S2+S1′轉(zhuǎn)換完成的字符串仍賦給S1
    　　　　　Exit Do
　    End If
    　  If i=CopiedVol Then′復(fù)制指定列參數(shù)串并修改坐標(biāo)值
　　    　For j=CopiedVol To CopiedVol+NewVols-
　　　　OldVols ′2 To NewVols-1
     　　　S2=S2+Left(S1，P1+4)+Trim(Str(Int(MaxWidth/NewVols)*j))
   　    Next j
      　 ElseIf i<CopiedVol Then ′修改坐標(biāo)值
        　    S2=S2+Left(S1，P1+4)+Trim(Str(Int(MaxWidth/ NewVols*i)))
　　Else ′i>CopiedVol，修改坐標(biāo)值
    　　　S2=S2+Left(S1，P1+4)+Trim(Str(Int(MaxWidth/ NewVols*(i+NewVols-OldVols))))
　    End If
     　　  S1=Mid(S1，P1+9) ′剩余字符串
　　　　 Next i
　　Loop
    　S2=″″
    　ITemp=Len(StrCell)
    　Do ′增加表格單元格
  　　　　For i=1 To OldVols
      　　　　P1=InStr(S1，StrCell) ′搜索″ABC″
      　　　　If P1=0 Then ′搜索完畢
    　　　　　　　S1=S2+S1 ′轉(zhuǎn)換完成的字符串仍賦給S1
　    　　　　　　Exit Do
    　　　　End If
　　　        If i=CopiedVol Then′復(fù)制單元格
　    　　　　　　For j=CopiedVol To CopiedVol+NewVols-OldVols
　　　        S2=S2+Left(S1，P1+ITemp-1)
    　 　Next j
　　Else
    　　　　　S2=S2+Left(S1，P1+ITemp-1)
　　　　　　End If
        　　　S1=Mid(S1，P1+ITemp) ′剩余字符串
  　　　Next i
　　Loop
　　      WriteStringToFile StrTargetFile，S1′保存成新的模板文件
　　End Sub
　　生成的新的模板文件的單元格內(nèi)容是完全相同的，可以用各不相同的特征字符串逐一替換，形成如表1所示的表格模板后，就可以調(diào)用FillGrid進(jìn)行自動(dòng)填充了。
5  為表格增加行
　　在RTF文件中，表格的描述是以行為單位的，所以增加行比增加列要容易得多。其描述符中，有一個(gè)出現(xiàn)頻率不是很高的字符串“}\pard”，其中“}”是對(duì)一段完整描述內(nèi)容的分隔（與“{”對(duì)應(yīng)），而“\par”或“\pard”是一段描述內(nèi)容的結(jié)束符。在只有一個(gè)表格的文件中，“}\pard”只在文件頭結(jié)束（其后即為文件的全部?jī)?nèi)容的描述)及每行表格的描述結(jié)束時(shí)才出現(xiàn)。據(jù)此，就可以很容易地找到某行表格的完整的描述字符串，將其復(fù)制就可為表格增加一行，其實(shí)現(xiàn)非常簡(jiǎn)單。
6  結(jié)  論
　　以上介紹了對(duì)任意固定表格的填充方法和對(duì)簡(jiǎn)單表格增加行列的方法。該方法的最大優(yōu)點(diǎn)在于，只要編程者對(duì)RTF格式的文件進(jìn)行簡(jiǎn)單分析并熟悉字符串的編程，就可以完成表格的操作。如果進(jìn)一步對(duì)復(fù)雜表格的RTF文件進(jìn)行分析，還可以繼續(xù)編程實(shí)現(xiàn)對(duì)其行或列的添加，但如果其行列變化不多，建議多制幾個(gè)標(biāo)準(zhǔn)表格模板則會(huì)更方便。
 　　當(dāng)然，利用OLE編程也可以實(shí)現(xiàn)上述功能，但要求編程者必須熟悉OLE編程，且運(yùn)行時(shí)必須有Word軟件環(huán)境。在某些特殊場(chǎng)合(如用于工業(yè)實(shí)時(shí)控制的工控機(jī)上)，為了避免感染病毒，是不允許安裝Office等軟件的，這時(shí)該種方法就顯得更為實(shí)用。
參考文獻(xiàn)
1   劉廣孚.以讀解的方式實(shí)現(xiàn)RTF文件的打印和預(yù)覽.計(jì)算機(jī)應(yīng)用研究(精擴(kuò)本)，2001
2   Microsoft Corporation著，希望圖書創(chuàng)作室譯.Microsoft  Visual Basic 6.0組件工具指南.北京：北京希望電子出版社，1999
3   Halvorson M著，希望圖書創(chuàng)作室譯.Microsoft Visual Basic  6.0專業(yè)版循序漸進(jìn)教程.北京：北京希望電子出版社，1999