vbs操作office

'option explicit
Dim infile,outFile
’ 检查传入的参数个数
If WScript.Arguments.Count < 2 Then
WScript.Echo “请至少提供一个参数。”
’ WScript.Quit
infile=“C:\Users\admin\Desktop\doc\20136d.doc”
outFile=“C:\Users\admin\Desktop\out123.doc”
else
’ 读取第一个参数
infile = WScript.Arguments(0)
outFile = WScript.Arguments(1)
End If

WScript.Echo "第一个参数是: " & infile
WScript.Echo "第2个参数是: " & outFile
dim wrd,doc,i,hcount
Set wrd =CreateObject( “kwps.Application”)
'wrd.Visible = True
wrd.Visible = False

wrd.Documents.Open(infile)
Set doc=wrd.ActiveDocument
Set section=doc.Sections.Item(CLng(1))
'WScript.Echo section.Headers.Count
set hcount= section.Headers
'WScript.Echo hcount.count
for i=1 to hcount.count
'MsgBox section.Headers.Item(i).Range.delete():
section.Headers.Item(i).Range.delete()
next
for i=1 to section.Footers.count
'MsgBox section.Headers.Item(i).Range.delete():
section.Footers.Item(i).Range.delete()
next

'WScript.Echo "The value of a is: "
doc.SaveAs2(outFile)
wrd.Quit()