word表格处理,带拆分表的转换,急 QQ:160103088 sldemo@qq.com
http://topic.csdn.net/u/20080304/16/b598e579-3d9a-4a29-a7e9-d6e7b79642f5.html
--------------------编程问答--------------------
我也想知道,正在找這方面的資料~~~~~
--------------------编程问答--------------------
这个简单啊,网上搜一下就得到答案了.
--------------------编程问答--------------------
顶!
--------------------编程问答--------------------
Sub Macro1()
Dim t As Table
ActiveDocument.PageSetup.Orientation = wdOrientLandscape
Set t = ActiveDocument.Tables.Add(Selection.Range, 2, 5) 'Range:=Selection.Range, NumRows:=2, NumColumns:=5)
t.Cell(2, 3).Range.Cells.Split 3, 1
t.Cell(2, 3).Range.Cells.Split 1, 2
t.Cell(1, 2).Range.Cells.Split 2, 2
t.Cell(1, 1).Range.Text = "[BG(]" & vbCr & "[BHDG6,K6,K6,K6,K6] "
t.Cell(1, 2).Range.Text = "[][ZB(]" & vbCr & "[BHDG2,K3,K3]"
t.Cell(3, 3).Range.Text = "[][ZB(]" & vbCr & "[BHDG2,K3,K3]"
For i = 3 To 6
t.Cell(1, i).Range.Text = "[]"
Next
t.Range.Font.Size = 7
End Sub
'剩下的自己填吧
--------------------编程问答--------------------
补充:VB , VBA