使用VBA操作Word表格使用VBA操作Word表格使用VBA操作Word表格xxx公司使用VBA操作Word表格文件編號：文件日期：修訂次數(shù)：第1.0次更改批準(zhǔn)審核制定方案設(shè)計，管理制度使用VBA操作Word表格一、生成表格PrivateSubCreateTable(mRowsAsInteger,mColumns)DimmRangeAsRangeSetmRange=Start:=End:=SelfGenTable=NumRows:=mRows,NumColumns:=mColumns)EndSub上面過程的作用是在活動文檔的末尾插入一個mRows行，mColumns列的表格。二、在讀寫表格中的單元格寫入單元格使用如下代碼：(Row:=curRow,Column:=curColumn)."文本"上面代碼的做用時在curRow行，curColumn列處插入字符“文本”。其中TableObject為表格對象，如果使用了生成表格中的例子，那么可以用SelfGenTable來替代TableObject。三、調(diào)整單元格對齊方式水平對齊設(shè)置水平對齊常數(shù)（具體的常數(shù)可以查看幫助文件的說明）如何選擇單元格選定特定單元格(Row:=1,Column:=1).Select’選定單元格1,1選定行(i).Select’選定第i行選定列(i).Select’選定第i列選定整個表格首先執(zhí)行表格元素選擇程序，然后再使用設(shè)置對齊方式。垂直對齊方式垂直對齊常數(shù)也是首先選擇表格元素，可以使單個單元格，單個行、單個列或者整個表格。似乎也可以同時選擇多個單元格、多個行、多個列，有興趣的朋友可以自行尋找答案。四、設(shè)置表格邊線類型下面的代碼對整個表格的所有邊線設(shè)置成細(xì)實線：WithSelection

.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle

.Borders(wdBorderLeft).LineStyle=wdLineStyleSingle

.Borders(wdBorderRight).LineStyle=wdLineStyleSingle

.Borders(wdBorderTop).LineStyle=wdLineStyleSingle

.Borders(wdBorderHorizontal).LineStyle=wdLineStyleSingle

.Borders(wdBorderVertical).LineStyle=wdLineStyleSingleEndWith同樣是對Selection進(jìn)行設(shè)置，所以可以依照上面的方法對特定的單元格、行或者列的邊線樣式進(jìn)行分別設(shè)置，這里就不再列舉了。五、調(diào)整表格尺寸下面的代碼對一個六列的表格設(shè)置寬度，寬度采用百分比寬度，從左至右的寬度百分比依次為：30，10，10，30，10，10：DimWidthP(0To2)AsIntegerDimjAsIntegerdimiasIntegerWidthP(0)=30WidthP(1)=10WidthP(2)=10j=0Fori=0To-1

Ifj>2Then

j=0

EndIf

(i+1).PreferredWidthType=wdPreferredWidthPercent

(i+1).PreferredWidth=WidthP(j)

j=j+1Next上面的代碼通過Columns的PreferredWidthType屬性設(shè)置表格列寬的形式，這里選擇的是百分比列寬，可以根據(jù)自己的實際情況選擇其他列寬形式，然后再設(shè)置相應(yīng)的數(shù)值。表格的行高請讀者以此類推（實際上我還沒設(shè)置過行高，都用自動生成的就夠了）===============================================編寫操作表格的程序時需要注意，Word表格的行列起始值為1，而不是0。===============================================下面是一個拆分字符串的代碼，當(dāng)插入表格的文本過長時，可以設(shè)定一個長度，超過這個長度就進(jìn)行回車，這樣保證在設(shè)定的單元格寬度內(nèi)能夠?qū)懴麻L文本。單元格的高度會自動調(diào)整以使文本能完整的顯示，這也就是我為什么沒有通過代碼設(shè)置單元格高度的原因。PrivateFunctionFoldText(mLenAsInteger,mStrAsString)AsString'折疊文字函數(shù)，mLen為折疊前的文字長度，mStr為文字的內(nèi)容DimiAsIntegerDimtmpStr(0To1)AsString'臨時字符串IfLen(mStr)>mLenThen

DoWhileLen(mStr)>mLen

tmpStr(0)=Left(mStr,mLen)

mStr=Right(mStr,Len(mStr)-mLen)

tmpStr(1)=tmpStr(1)+tmpStr(0)+vbCrLf

Loop

tmpStr(1)=tmpSt