论坛 › 『 提问交流 』 › 如何把Word合并单元格拆分成合并前的状态，并填充拆分后的单元格内容。

njupter 发表于 2014-5-28 11:16:30

如何把Word合并单元格拆分成合并前的状态，并填充拆分后的单元格内容。

看图就明白了。先感谢各位大神。

nmgwddj 发表于 2014-5-28 13:03:57

#include <Word.au3>

Local $oWordApp = _Word_Create("")
Local $oDoc = _Word_DocOpen($oWordApp, @ScriptDir & "\Test.doc", 1)

MsgBox(0, '', '点击确定插入表格')
$oDoc.Tables.Add($oDoc.Range,3, 5, 1, 0)
MsgBox(0, '', '点击确定分割表格')
$oDoc.Tables(1).Cell(1,1).Split(2, 1)

_Word_DocClose($oDoc)
_Word_Quit($oDoc, 0)

kevinch 发表于 2014-5-28 18:05:46

#include <array.au3>
$doc=ObjGet(@ScriptDir&"\word源文件.doc")
If IsObj($doc) Then
        If $doc.tables.count>0 Then
                For $tbl In $doc.tables
                        With $tbl
                                Dim $arr[.rows.count][.columns.count]
                                For $cell In .range.cells
                                        $arr[$cell.rowindex-1][$cell.columnindex-1]=StringTrimRight($cell.range.text,2)
                                Next
                                _ArrayDisplay($arr)
                                ConsoleWrite(UBound($arr)&@TAB&UBound($arr,2)&@CRLF)
                                For $n=1 To UBound($arr)-1
                                        For $i=0 To UBound($arr,2)-1
                                                If StringLen($arr[$n][$i])=0 Then $arr[$n][$i]=$arr[$n-1][$i]
                                        Next
                                Next
                                _ArrayDisplay($arr)
                        EndWith
                Next
        EndIf
        $doc.saved=True
        $doc.close
EndIf单纯的同列单元格合并可以试下，复杂的不行

查看完整版本: 如何把Word合并单元格拆分成合并前的状态，并填充拆分后的单元格内容。