如何实现请示汇报流转?

[bbzy01]

想给自己的网站实现简单的办公功能,不知有什么可供借鉴的?
谢谢

[白夜花寒]

<script language='vbscript'>
on error resume next
set myword=createobject("word.application")
set wrddoc=myword.documents.add

Set myRange = wrddoc.Paragraphs(1).Range


myword.Documents(1).Activate
myword.ActiveDocument.select
wrddoc.tables.add myword.selection.Range, 3, 3
for i=1 to 100
myword.Selection.MoveDown i,1
if err.number=0 then
exit for
end if
next
myword.Selection.TypeParagraph
myword.ActiveDocument.Tables.Add myword.Selection.Range, 3, 3
myword.Selection.Font.Name = "Tahoma"
'Set aRange = wrddoc.Paragraphs(wrddoc.Paragraphs.count).Range
'wrddoc.tables.add aRange, 3, 3
wrddoc.saveas "c:\xxx.doc"
myword.quit()
set myword=nothing
</script>

vba

[bbzy01]

请大家出主意!

[yaotou]

帮楼主寒一下，这个程序不是很难，但是搞活流转难啊

[bbzy01]

我想有什么简单的,可供借鉴的!

[bbzy01]

help me

[bbzy01]

help me