如何在WORD的文本框中写入字符?
假设:有个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"