ç¨VFPå½ä»¤æ§å¶Word1ãå建Wordææ¡£Appword=CreateObject("word.application")2ãæ¾ç¤ºWordææ¡£Appword.Visible=.t.3ã建ç«æ°ææ¡£Appword.Documents.Add()4ãä¿åææ¡£Appword.ActiveDocument.SaveAs("E:\abc.doc")5ãæå¼ææ¡£Appword.ActiveDocument.Open("E:\abc.doc")6ãä¿åAppword.ActiveDocument.Save7ãå
³éAppword.ActiveDocument.Close8ãéåºAppword.Application.Quit9ãæå°Appword.ActiveDocument.PrintOut10ã设置ä¸é¡µè¾¹è·Appword.ActiveDocument.PageSetup.TopMargin=1.5/0.03511ã设置ä¸é¡µè¾¹è·Appword.ActiveDocument.PageSetup.BottomMargin=1.5/0.03512ã设置左页边è·Appword.ActiveDocument.PageSetup.LeftMargin=1.5/0.03513ã设置å³é¡µè¾¹è·Appword.ActiveDocument.PageSetup.RightMargin=1.5/0.03514ã设置页宽Appword.ActiveDocument.PageSetup.PageWidth=18.4/0.03515ã设置页é«Appword.ActiveDocument.PageSetup.PageHeight=26/0.03516ã设置页é¢ç«æ¾Appword.ActiveDocument.PageSetup.Orientation=117ã设置页é¢æ¨ªæ¾Appword.ActiveDocument.PageSetup.Orientation=218 ãæå®ç½æ ¼Appword.ActiveDocument.PageSetup.LayoutMode=0 && 0--ä¸æå®ç½æ ¼ 1--æå®ç½æ ¼åå符ç½æ ¼ 2--æå®è¡ç½æ ¼ 3--æå对é½ç½æ ¼19ã设置æ¯é¡µè¡æ°Appword.ActiveDocument.PageSetup.LinesPage=4220ã设置æ¯è¡åæ°Appword.ActiveDocument.PageSetup.ChartLine=1021ã页é¢è®¾ä¸º4æ Appword.ActiveDocument.PageSetup.TextColumns.SetCount(4)22ã设置æ 宽Appword.ActiveDocument.PageSetup.TextColumns.Width=3/0.03523ã设置æ é´è·Appword.ActiveDocument.PageSetup.TextColumns.Specing=0.5/0.03524ãæå
¥æåAppword.Selection.Text="å¦æå建äºå·¥å
·æ "25ãæå
¥æåAppword.Selection.InsertAfter(space(6)+"å¤è°¢è´µå
¬å¸çæ¯æï¼")26ãæå®åå·Appword.Selection.FontSize=10.527ã设置对é½æ¹å¼Appword.Selection.ParagraphFormat.Alignment=0 && 0ä¸ºå·¦å¯¹é½ 1å±
ä¸ 2å³å¯¹é½ 3两端对é½28ã设置åä½Appword.Selection.FontName="å®ä½"29ãå é¤å
æ åé¢çå符ï¼å车符çï¼Appword.Selection.Typebackspace30ãå é¤å符Appword.Selection.Delete(1,1) && 第ä¸ä¸ªæ°åï¼1为ä¸å ä¸åï¼2为ä¸å å°ä¸ä¸ä¸ªæ ç¹ ç¬¬äºä¸ªæ°å为æ°é
温馨提示:答案为网友推荐,仅供参考