LOCAL my_title,my_alias
SET PATH TO D:\表
my_alias="档案"
my_title= " "
my_dbfopen=.F.
IF EMPTY(my_alias)
RETURN
ENDIF
IF !USED(my_alias)
USE &my_alias IN 0
ELSE
SELECT (my_alias)
my_dbfopen=.T.
ENDIF
SELECT(my_alias)
IF EOF()
GO TOP
IF EOF()
IF my_dbfopen=.F.
SELECT(my_alias)
USE
ENDIF
RETURN
ENDIF
ENDIF
IF EMPTY(ALLTRIM(my_title))
my_title=my_alias
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 =.T.
WordApp.Documents.Add
*WordApp.ActiveDocument.PageSetup.PageWidth=18.4/0.035 &&设置页宽
*WordApp.ActiveDocument.PageSetup.PageHeight=26/0.035 &&设置页高
WordApp.ActiveDocument.PageSetup.LinesPage = 35 &&设置每页打印行数
WordApp.Documents(1).Range.Text=ALIAS()+"一览表"
WordApp.Documents(1).Range.Font.Size= 15
WordApp.Documents(1).Range.Font.Name="黑体"
WordApp.Documents(1).Range.Paragraphs.Alignment= 1
#define NUM_AFIELDS 16
PUBLIC aWizFList
DIMENSION aWizFList[1]
=AFIELDS(aWizFList)
* 下面为页面设置
WordApp.ActiveDocument.PageSetup.PaperSize=7
WordApp.ActiveDocument.PageSetup.Orientation=0 &&页面竖放 0-竖放 1-横放
*WordTable.Rows.HorizontalPosition=-999995 &&表格水平居中
WordApp.ActiveDocument.PageSetup.TopMargin=22.0*2.835 &&设置上边距
WordApp.ActiveDocument.PageSetup.BottomMargin=22.0*2.835 &&设置下边距
WordApp.ActiveDocument.PageSetup.LeftMargin=19.0*2.835 &&设置左边距
WordApp.ActiveDocument.PageSetup.RightMargin=19.0*2.835 &&设置右边距
WordApp.ActiveDocument.PageSetup.VerticalAlignment=0 &&页面对齐方;式 0-上 1-中 2-下
WordApp.ActiveDocument.PageSetup.HeaderDistance=22.0*2.835 &&页眉位置
WordApp.ActiveDocument.PageSetup.FooterDistance=19.0*2.835 &&页脚位置
mydate=subst(dtos(date()),1,4)+"年"+subst(dtos(date()),5,2)+;
"月"+subst(dtos(date()),7,2)+"日"
WordApp.Documents(1).Sections(1).Headers(1).Range.Text="制表期: ;
"+mydate+" " &&页眉
WordApp.Documents(1).Sections(1).Headers(1).Range.Paragraphs.Alignment=2 &&页眉右齐
WordApp.Documents(1).Sections(1).Footers(1).Range.Paragraphs.Alignment= 2 &&页脚居中
WordApp.Documents(1).Sections(1).Footers(1).Range.Select
WordApp.Selection.InsertAfter("第")
WordApp.Selection.Start =WordApp.Selection.End
WordApp.Selection.InsertFormula("PAGE")
WordApp.Selection.Start =WordApp.Selection.End
WordApp.Selection.InsertBefore("页/共")
WordApp.Selection.Start =WordApp.Selection.End
WordApp.Selection.InsertFormula("NUMPAGES")
WordApp.Selection.Start =WordApp.Selection.End
WordApp.Selection.InsertBefore("页")
WordApp.Selection.Range.Paragraphs.Alignment= 1
WordTable.Rows(1).HeadingFormat=.t.
WordTable.Columns().AutoFit &&自动调整列宽
WordApp.Documents(1).SaveAs("E:\"+my_title+".doc") &&自动保存文件
RELEASE WordApp
WAIT CLEAR
MessageBox( "生成Word文件完毕,文件位置E:\"+my_title+".doc!",64,"完毕")
RETURN
联系客服