假設：有個DOCX檔案，有2個文本框，想在第一個文本框中寫入“第1個文本框”，在第二個文本框中寫入“第2個文本框”，求代碼，謝謝。
以下是我錄制的宏，不知代碼如何寫
Sub 宏4()
'
' 宏4 宏
'
'
ActiveDocument.Shapes.Range(Array("文本框 2")).Select
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeText Text:="第1個文本框"
ActiveDocument.Shapes.Range(Array("文本框 2")).Select
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeText Text:="第2個文本框"
End Sub
------------------------------------------------------------------
oWrd=CREATEOBJECT("Word.application")
owrd.Documents.Open(GETFILE("DOCX"))&&打開已有檔案
owrd.Visible=.T.
owrd.ActiveDocument.Shapes(2).Range.text="KKK" && 此行運行出錯，why ?
*owrd.ActiveDocument.Shapes.Range(Array("文本框 2")).Range.text="KKK"
uj5u.com熱心網友回復：
搞定了，結貼oWrd=CREATEOBJECT("Word.application")
owrd.Documents.Open(GETFILE("DOCX"))&&打開已有檔案
owrd.Visible=.T.
*with owrd
owrd.ActiveDocument.Shapes.Range(1).Select
owrd.Selection.Range.text="第1個文本框"
owrd.ActiveDocument.Shapes.Range(2).Select
owrd.Selection.Range.text="第2個文本框"
*ENDWITH
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/57374.html
標籤：VFP
下一篇：求一條關聯SQL的寫法？