想批量在word最后末尾加上簽名： Name, Designation, Signature&Stamp
uj5u.com熱心網友回復：
寫好了,vbs腳本代碼如下:
Const wdcharacter = 1
Const wdmove = 0
Set word = createobject("word.application")
word.visible = True
Set fso = createobject("scripting.filesystemobject")
curdir = fso.getparentfoldername(wscript.scriptfullname)
Set objfolder = fso.getfolder(curdir)
For Each objfile In objfolder.files
Select Case LCase(fso.getextensionname(objfile.name))
Case "doc","docx","docm"
Set doc = word.documents.open(objfile.path)
doc.content.Select
word.selection.moveright wdcharacter,1,wdmove
word.selection.Text = vbcrlf & "Name, Designation, Signature&Stamp"
doc.save
doc.close
End Select
Next
word.quit
msgbox "done!"
運行示例:
下載地址:
鏈接：https://pan.baidu.com/s/1GY-Cv2hGB_ru8DhGVtUoNQ
提取碼：wt70
uj5u.com熱心網友回復：
怎么在值欄位里加回車uj5u.com熱心網友回復：
怎么在值欄位里加回車值變數后面跟個“ & vbcrlf”
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/30218.html
標籤：VBA
上一篇：這段陳述句有什么問題？？？
下一篇：查詢選修全部課程的學生姓名