1、生成word檔案，插入了表格，但是沒有邊框線，怎么設定呢？代碼如下：
Dim MyWord As Word.Application 'word應用程式物件
Dim MyDocument As Word.Document '打開的檔案物件
Dim MyRange As Word.Range '檔案內位置
Dim MySelect As Word.Selection '檔案內所選內容
Dim MyTable As Word.Table '檔案內表格
Set MyWord = CreateObject("Word.Application") '創建word物件
MyWord.Visible = True '讓檔案顯示
Set MyDocument = MyWord.Documents.Add '新增word檔案
Set MyRange = MyDocument.Range(Start:=0, End:=0) '將游標定位在第一行第一位
'在Word中增加一個表格,4行、4列
Set MyTable = MyWord.ActiveDocument.Tables.Add(MyWord.Selection.Range, 4, 4)
For i = 1 To 4
For j = 1 To 4
'MyTable.Cell(i, j).Range.InsertAfter "4"
If iCount Mod 4 = 1 Then
oCell.Range.InsertAfter "第 " & (iCount - 1) / 4 + 1 & " 行"
End If
MyTable.Cell(i, j).Range.InsertAfter "23"
Next j
Next i
MyDocument.Activate '讓檔案處于活動狀態'MyWord.Activate '同樣讓檔案處于活動狀態
MyWord.Visible = True '讓檔案顯示
Set MyWord = Nothing
Set MyDocument = Nothing
2、MyTable.Cell(1, 3).Range.InsertAfter "你好"
如何能夠替代原單元格的內容呢？即清楚內容后再插入內容的？
3、如何設定插入單元格內容的字體、大小、顏色、居中等格式呢？
uj5u.com熱心網友回復：
http://bbs.csdn.net/topics/50473889uj5u.com熱心網友回復：
先在WORD中錄制宏，然后將宏代碼加入到你的VB程式中uj5u.com熱心網友回復：
請問如何錄制宏呢？錄制完后如何查看生成的代碼呢？麻煩給出具體的方法步驟咯，謝謝了！或者哪位直接告訴我設定 表格某單元字體、加粗、顏色、居中這些基本格式操作的吧
uj5u.com熱心網友回復：
在Word 2003中“工具、宏、錄制新宏”開始記錄宏，手動完成所需功能，“按結束宏按鈕”結束記錄宏，按Alt+F11鍵，查看剛才記錄的宏對應的VBA代碼。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/113898.html
標籤：VB基礎類
上一篇：VB陣列計算中的奇怪問題