将VFP的数据表导出到WORD

以下这段代码就能直接把一个ＤＢＦ转为ＤＯＣ

什么参数都不用加，在要在当前工作区打开表就行了

************************************

IF EMPTY(ALIAS())

MessageBox( "当前工作区没有打开工作表！",48,"不能生成表格")

ENDIF

WAIT "正在访问 Word 软件……" WINDOW NOWAIT

WordApp=CREATEOBJECT("Word.application") &&访问WORD

If Type("WordApp")#"O"

WAIT CLEAR

MessageBox( "访问Word失败！请检查你的系统是否正确安装 Word 软件！",48,"没有安装Word") RETURN

ENDIF

WAIT "正在生成表格……" WINDOW NOWAIT

WordApp.Visible =.f.

WordApp.Caption ='https://www.360docs.net/doc/663911614.html,'

WordApp.Documents.Add

WordApp.Documents(1).Range.Text=ALIAS()

WordApp.Documents(1).Range.Font.Size=15

WordApp.Documents(1)https://www.360docs.net/doc/663911614.html,="黑体"

WordApp.Documents(1).Range.Paragraphs.Alignment= 1

WordAppRang=WordApp.Documents(1).Range(LENC(WordApp.Documents(1).Range.Text)-1,LENC(WordApp. Documents(1).Range.Text)-1)

WordTable=WordApp.Documents(1).Tables.Add(WordAppRang,RECCOUNT()+1,FCOUNT())

WordTable.Range.Paragraphs.Alignment= 0

https://www.360docs.net/doc/663911614.html,="宋体"

WordTable.Range.Font.Size=11

WordTable.Borders.Enable=1

WordTable.Borders(1).LineWidth = 12

WordTable.Borders(2).LineWidth = 12

WordTable.Borders(3).LineWidth = 12

WordTable.Borders(4).LineWidth = 12

WordTable.Rows(1).Borders(3).LineWidth = 12

WordTable.Rows(1).Range.Font.Bold=.t.

WordTable.Rows(1).Cells.VerticalAlignment= 1

WordTable.Rows(1).Range.Paragraphs.Alignment = 1

WordTable.Rows(1).HeadingFormat=.t.

FOR i=1 TO FCOUNT()

WordTable.Cell(1,i).Range.Text=FIELD(i)

FOR i2=2 TO RECCOUNT()+1

GO i2-1

WordCellText=EVALUATE(FIELD(i))

DO CASE

CASE ISNULL(WordCellText)

WordCellText=""

CASE TYPE("WordCellText")="N"

CASE TYPE("WordCellText")="D"

WordCellText=DTOC(WordCellText)

CASE TYPE("WordCellText")="T"

WordCellText=TTOC(WordCellText)

CASE EMPTY(WordCellText)

WordCellText=""

OTHERWISE

* WordCellText=""

ENDCASE

WordTable.Cell(i2,i).Range.Text=WordCellText NEXT

WordTable.Columns(i).AutoFit

WordApp.Documents(1).SaveAs("C:\Xwy.doc")

WordApp.Quit

RELEASE WordApp

WAIT CLEAR

MessageBox( "生成WORD文件完毕，文件位置 C:\Xwy.doc ！",64,"完毕") RETURN