没测试过
参考：https://learn.

Range(Start,End)
Start,End 是不是要表格要求

学习了

问了DeepSeek后，终于试成功了

CLEAR ALL
SET SAFETY off
SET engi 70
CLOSE DATABASES
cPath=ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cPath)
USE 统计表                                     &&& 在10楼已解决
COPY TO ls type xl5
FileName=cPath+"word_wj2.doc"
*---
oWord = CREATEOBJECT("Word.Application")       &&& 创建Word应用程序对象
oWord.Visible = .T.
oDoc = oWord.Documents.Add()                   &&& 创建新文档
oWord.Documents(1).range.Text = "销售统计表"   &&& 添加标题
oWord.Documents(1).range.Font.Size = 16
oWord.Documents(1).range.Font.Bold = .T.
oWord.Documents(1).range.Font.Name="宋体"
oWord.Documents(1).range.ParagraphFormat.Alignment = 1
*---
oe=CREATEOBJECT("excel.application")
oe.visible=.T.
oe.DisplayAlerts = 0                      &&& 关闭EXCEL的对话框
oe.WorkBooks.Open(cpath+"ls.xls")         &&& 打开EXCEL文档
as = oe.ActiveSheet
as.usedRange.BorderS(1).LineStyle=1       &&& 添加左边框线
as.usedRange.BorderS(2).LineStyle=1       &&& 添加右边框线
as.usedRange.BorderS(3).LineStyle=1       &&& 添加上边框线
as.usedRange.BorderS(4).LineStyle=1       &&& 添加下边框线  
as.UsedRange.copy                         &&& 拷贝用户数据区域
oWord.Selection.EndKey(6)                 &&& 移动到文档末尾
oWord.Selection.TypeParagraph()           &&& 插入换行
oWord.Selection.paste()                   &&& 表格整体粘贴。
*---
as.Activate  
oe.workbooks.Close
oe.DisplayAlerts = 1                      &&& 开启EXCEL的对话框
oE.Quit()
*---
oDoc.SaveAs(FileName)                     &&& 保存Word文档
oDoc.close
oWord.quit
CLOSE DATABASES
MESSAGEBOX("Word格式的销售统计表生成完成！", 64, "提示：")
QUIT

学习了

谢谢！