Dim objWordApp ' Microsoft Word Application object
Dim objTable
Dim nCurrentRow
dim nTableIndex
Function BuildPlanDoc
changedata()
Dim bResult
Dim myRange
Dim objData, szTemp
Dim nLen
Dim nAbsolutePosition
nTableRows = 2
'Create Word Application object
Set objWordApp = CreateObject("Word.Application")
if objWordApp <> "Microsoft Word" then
alert ("Microsoft Word can not be launched !")
bResult = false
else
objWordApp.Documents.Add
objWordApp.WindowState = wdWindowStateNormal
objWordApp.ActiveWindow = "更新统计"
objWordApp.visible = true
bResult = true
end if
if objData.RecordCount <> 0 then
objData.MoveFirst
do while not objData.EOF
if Left(objData("Name").value, 6) = "Create" then
objTable.Cell(nTableRows, 1).Range.InsertAfter objData("Title").value & "(共" & Right(objData("Name").value, Len(objData("Name").value) - 6) & "篇)"
else
objTable.Cell(nTableRows, 1).Range.InsertAfter objData("Title").value
end if