作者:乔山办公网日期:
返回目录:word文档
恩,不知道你想要百达到什么效果,度但我知道一种方法:问在命令窗口中输入答如下代码:版IMPORT FROM "f:\新建 microsoft excel 工作表.xls" TYPE XLS
BROWSE LAST运行后,会生成一个权dbf文件。
用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、插入e799bee5baa6e997aee7ad94e78988e69d83361文字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为下删到下一个标点 第二个数字为数量
可以安装WPS后,再打开word文档。zd
1、打开手机桌面的软件商店;
2、查内找WPS,点击安装;
3、打开WPS软件,然后选择容打开;
4、选择DOC,也就是word;
5、选择要打开的word文档;
6、点击即可打开。
DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,;
STRING lpszOP, ;
STRING lpszFile, ;
STRING lpszParams, ;
STRING lpszDir, ;
INTEGER fsshowcmd
DECLARE INTEGER GetDesktopWindow IN win32api
HWND = GetDesktopWindow()
lpszOP = "open"
* 指定要zhidao打开的文件回名
lpszFile =alltrim(filedir)+"help.doc"
lpszParams = ""
lpszDir = filedir
fsshowcmd =1
* 执行答ShellExecute命令
LNRETURN = ShellExecute(HWND, lpszOP,lpszFile, lpszParams, lpszDir,fsshowcmd)