摘    要： 在軟件中填充和擴展Word表格的實現原理及方法，并給出了VB程序示例。
關鍵詞： Word  RTF  表格  填充  Visual Basic

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

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