樓主你好!我按你的方法去做,但是在執行table.cell(2,3).select時報錯,錯誤為實時錯誤'424',要求對象,我不知道是不是在table前需要加上wdapp還是wdbook,或者是myselection,不過我都試過了,還是不行,后面的就寫不下去了。我主要是想生成一個7列27行的表格,第1列的1、2兩行合并為一個單元格,第1列的第5行和第6行合并做一個帶斜線的表頭,斜線上下要分別輸入“壓力計”和“測試點”作為表頭分類,第4行的第2、3、4列單元格合并為一個單元格,5、6、7列合并為一個單元格,望樓主能詳細寫一下代碼。非常感謝!我的代碼如下:
Dim wdApp As Word.Application
Dim wdBook As Word.Document
Set wdApp = CreateObject("Word.Application")
Set wdBook = wdApp.Documents.Add
wdApp.Visible = True
wdApp.Selection.Font.Name = "黑體"
wdApp.Selection.Font.Size = 22
wdApp.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
wdApp.Selection.TypeText Text:="通風機調試報告"
wdApp.Selection.TypeParagraph
wdApp.Selection.TypeParagraph
wdApp.Selection.Font.Name = "仿宋_GB2312"
wdApp.Selection.Font.Size = 12
Call wdApp.ActiveDocument.Tables.Add(wdApp.Application.Selection.Range, NumRows:=27, NumColumns _
:=7, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed)
Set mySelection = wdApp.Documents.Application.Selection
mySelection.Cells.Borders(-7).LineStyle = 1
'選中表格的第2行第3列
--> Table.Cell(2, 3).Select
'向下移動6格,第1個參數和第3個是常數
Call wdBook.Application.Selection.MoveDown(5, 6, 1)
'合并
wdBook.Application.Selection.Cells.Merge
'拆分成7行2列
Call wdBook.Application.Selection.Cells.Split(7, 2, True)
Set wdBook = Nothing
回復 更多評論