|
VFP ·R¥ÎªÌªÀ°Ï ¥»°Q½×°Ï¬° Visual Foxpro ·R¥ÎªÌ¸gÅç¥æ¬yªº¦a¤è, ½Ð¦h¦h§Q¥Î"·j´M"ªº¥\¯à, ¥ý¬d¬Ý¬Ý¦³µL«e¨Ò¥i´`, ¦pªGÁÙ¦³¤£À´ªº¦Aµo°Ý. ³¡¥÷¥DÃD¦³ªþ¥[ÀÉ®×, ¶·¥ýµù¥U¦¨¬°ªÀ°Ï©~¥Á¤~¥i¥H¤U¸ü.
|
¤W¤@½g¥DÃD :: ¤U¤@½g¥DÃD |
µoªí¤H |
¤º®e |
Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤@ ¤E¤ë 01, 2003 8:57 pm ¤å³¹¥DÃD: ²£¥ÍWord¤å¥ó(Âà¶K) |
|
|
²£¥ÍWord¤å¥ó(Âà¶K)
¥N½X: | ****************************************
* Word±±¨î¤§¥Ü¨Ò½g *
* 1.0 2003.06.18 *
* ¶®ª°½×¾Â www.yafox.com *
****************************************
WAIT "¥¿¦b³X°Ý Word ³n¥ó " WINDOW NOWAIT
WordApp=CREATEOBJECT("Word.application")
If Type("WordApp")#"O"
WAIT CLEAR
MessageBox( "³X°ÝWord¥¢±Ñ¡I½ÐÀˬd§AªºÃ´²Î¬O§_¥¿½T¦w¸Ë Word ³n¥ó¡I",48,"Word¤£¥¿±`")
RETURN .f.
ENDIF
WAIT "¥¿¦b³]¸m Word ¶± " WINDOW NOWAIT
WordApp.Visible =.f.
WordApp.Caption ='´ú¸Õ'
WordApp.Documents.Add
WordApp.Documents(1).PageSetup.PaperSize =7
WordApp.ActiveDocument.PageSetup.Orientation =0
WordApp.Documents(1).PageSetup.TopMargin =26.4 *2.835
WordApp.Documents(1).PageSetup.BottomMargin =25.4 *2.835
WordApp.Documents(1).PageSetup.LeftMargin =19.0 *2.835
WordApp.Documents(1).PageSetup.RightMargin =19.0 *2.835
WordApp.Documents(1).PageSetup.VerticalAlignment =0
WordApp.Documents(1).PageSetup.HeaderDistance =22.0*2.835
WordApp.Documents(1).PageSetup.FooterDistance =19.0*2.835
WordApp.Documents(1).Sections(1).Headers(1).Range.Text="www.yafox.com ³\¤å»· xuwy@21cn.com"
WordApp.Documents(1).Sections(1).Headers(1).Range.Paragraphs.Alignment=2
*WordApp.Documents(1).Sections(1).Footers(1).Range.Text="¶¸}"
WordApp.Documents(1).Sections(1).Footers(1).PageNumbers.Add.Alignment= 1
WordApp.Documents(1).Range.Text="§Úªº¼ÐÃD"
WordApp.Documents(1).Range.Font.Size=13
WordApp.Documents(1).Range.Font.Name="¶ÂÅé"
WordApp.Documents(1).Range.Paragraphs.Alignment= 1
WAIT "¥¿¦b³]¸m Word ªí®æ " WINDOW NOWAIT
WordTable=WordApp.Documents(1).Tables.Add(WordApp.Documents(1).Range(LENC(WordApp.Documents(1).Range.Text)-1,LENC(WordApp.Documents(1).Range.Text)-1),100,5) &&´¡¤Jªí®æ
WordTable.Range.Paragraphs.Alignment= 0
WordTable.Range.Font.Name="§ºÅé"
WordTable.Range.Font.Size=11
WordTable.Range.Font.Bold=.f.
WordTable.Range.Font.Italic =.f.
WordTable.Range.Font.Underline =.f.
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(1).LineWidth = 12
WordTable.Rows(1).Borders(2).LineWidth = 12
WordTable.Rows(1).Borders(3).LineWidth = 12
WordTable.Rows(1).Borders(4).LineWidth = 12
WordTable.Columns(1).Width=10 *2.835
WordTable.Rows(1).Range.Font.Size=12
WordTable.Rows(1).Range.Font.Bold=.t.
*WordTable.Rows(1).Height=10 *2.835
WordTable.Rows(1).Cells.VerticalAlignment= 1
WordTable.Rows(1).Range.Paragraphs.Alignment = 1
WordTable.Rows(1).HeadingFormat=.t.
WAIT "¥¿¦b¥Í¦¨¼Æ¾Ú " WINDOW NOWAIT
FOR i=1 TO WordTable.Columns.Count
WordTable.Cell(1,i).Range.Text=CHR(64+i)
NEXT
FOR i=2 TO WordTable.Rows.Count
WordTable.Cell(i,1).Range.Text=i
NEXT
WAIT CLEAR
WordApp.Visible =.t.
****************************************
&&¬ÛÃö¤å³¹:
&&¶±½g http://www.yafox.com/dispbbs.asp?boardID=7&ID=163
&&ªí®æ½g http://www.yafox.com/dispbbs.asp?boardID=7&ID=200 |
_________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
############################# |
|
¦^³»ºÝ |
|
|
|
|
±z µLªk ¦b³oÓª©±µoªí¤å³¹ ±z µLªk ¦b³oÓª©±¦^ÂФ峹 ±z µLªk ¦b³oÓª©±½s¿è¤å³¹ ±z µLªk ¦b³oÓª©±§R°£¤å³¹ ±z µLªk ¦b³oÓª©±¶i¦æ§ë²¼ ±z µLªk ¦b³oÓª©±ªþ¥[ÀÉ®× ±z µLªk ¦b³oÓª©±¤U¸üÀÉ®×
|
Powered by phpBB © 2001, 2005 phpBB Group ¥¿Å餤¤å»y¨t¥Ñ phpbb-tw ºûÅ@»s§@
|