|
用VFP命令控制Word
1、創(chuàng)建Word文檔
Appword=CreateObject("word.application")
2、顯示W(wǎng)ord文檔
Appword.Visible=.t.
3、建立新文檔
Appword.Documents.Add()
4、保存文檔
Appword.ActiveDocument.SaveAs("E:\abc.doc")
5、打開文檔
Appword.ActiveDocument.Open("E:\abc.doc")
6、保存
Appword.ActiveDocument.Save
7、關(guān)閉
Appword.ActiveDocument.Close
8、退出
Appword.Application.Quit
9、打印
Appword.ActiveDocument.PrintOut
10、設(shè)置上頁邊距
Appword.ActiveDocument.PageSetup.TopMargin=1.5/0.035
11、設(shè)置下頁邊距
Appword.ActiveDocument.PageSetup.BottomMargin=1.5/0.035
12、設(shè)置左頁邊距
Appword.ActiveDocument.PageSetup.LeftMargin=1.5/0.035
13、設(shè)置右頁邊距
Appword.ActiveDocument.PageSetup.RightMargin=1.5/0.035
14、設(shè)置頁寬
Appword.ActiveDocument.PageSetup.PageWidth=18.4/0.035
15、設(shè)置頁高
Appword.ActiveDocument.PageSetup.PageHeight=26/0.035
16、設(shè)置頁面豎放
Appword.ActiveDocument.PageSetup.Orientation=1
17、設(shè)置頁面橫放
Appword.ActiveDocument.PageSetup.Orientation=2
18 、指定網(wǎng)格
Appword.ActiveDocument.PageSetup.LayoutMode=0 && 0--不指定網(wǎng)格 1--指定網(wǎng)格和字符網(wǎng)格 2--指定行網(wǎng)格 3--文字對齊網(wǎng)格
19、設(shè)置每頁行數(shù)
Appword.ActiveDocument.PageSetup.LinesPage=42
20、設(shè)置每行字數(shù)
Appword.ActiveDocument.PageSetup.ChartLine=10
21、頁面設(shè)為4欄
Appword.ActiveDocument.PageSetup.TextColumns.SetCount(4)
22、設(shè)置欄寬
Appword.ActiveDocument.PageSetup.TextColumns.Width=3/0.035
23、設(shè)置欄間距
Appword.ActiveDocument.PageSetup.TextColumns.Specing=0.5/0.035
24、插入文字
Appword.Selection.Text="如果創(chuàng)建了工具欄"
25、插入文字
Appword.Selection.InsertAfter(space(6)+"多謝貴公司的支持！") 26、指定字號
Appword.Selection.FontSize=10.5
27、設(shè)置對齊方式
Appword.Selection.ParagraphFormat.Alignment=0 && 0為左對齊 1居中 2右對齊 3兩端對齊
28、設(shè)置字體
Appword.Selection.FontName="宋體"
29、刪除光標(biāo)前面的字符（回車符等）
Appword.Selection.Typebackspace
30、刪除字符
Appword.Selection.Delete(1,1) && 第一個數(shù)字：1為下刪一字，2為下刪到下一個標(biāo)點 第二個數(shù)字為數(shù)量
31、插入新頁
Appword.Selection.InsertBreak(0)
32、回車符
Appword.Selection.TypeParagraph && 0--插入新頁 1--插入分頁符
33、移到上一頁的頁首
Appword.Selection.Browser.Previous
34、移到下一頁的頁首
Appword.Selection.Browser.Next
35、 Appword.Selection.MoveRight(3,1,1) && 第一個數(shù)字意思：3--移動一句，2--移動到上一個標(biāo)點，1--移動一個字符
&& 第二個數(shù)字為移動的數(shù)量 第三個數(shù)字表示選中狀態(tài)
36、Appword.Selection.MoveLeft(3,1,1)
37、Appword.Selection.Moveup(4,1,1) && 第一個數(shù)字：4--移到上一段開頭，5--向上移一行，7--翻一頁(PageDown)
&& 第三個數(shù)字表示選中狀態(tài)
38、Appword.Selection.MoveDown(5,1,1) && 第一個數(shù)字：4--移到下一段開頭，5--向下移一行，7--下翻一頁(PageDown)
&& 第三個數(shù)字表示選中狀態(tài)
39、選中全部文字
Appword.Selection. Wholestory
40、插入表格
Appword..ActiveDocument.Table.Add(Appword.Selection.Range,9,61,0) && 插入一個9行6列的表格。第三個數(shù)字0為沒有網(wǎng)格線，1表示有網(wǎng)格線；第四個數(shù)字為1時表格自動調(diào)整列寬，行寬0時固定列寬，自動調(diào)整行寬
41、選定表格一行
Appword.Selection. SelectRow
42、選定表格一列
Appword.Selection. SelectColumn
43、選定表格
Appword.Selection. Tables(1).Select
44、選定表格所在行高為0.77厘米
Appword.Selection. Tables(1).RowsHeight=0.77/0.035
45、選定表格所在列寬為2厘米
Appword.Selection. Tables(1).RowsHeight=2/0.035
46、Appword.Selection. Tables(1).Rows.Alignment=1 && 0為選定表格居左，1時居中，2時居右
47、Appword.Selection. Cells.VerticalAlignment=3 && 選定表格為上對齊，1為居中對齊，2為下對齊
48、Appword.Selection.ParagraphFormat.Alignment=2 && 選定單元格0為左對齊，1為居中，2為右對齊
49、在第三行第三列插入文字
Appword.Selection. Tables(1).Row(3).Cell(3).Range.InsertAfter("中國")
50、將選中文字進行分欄操作
Appword.ActiveDocument.Range(Appword.Selection.Start, Appword.Selection.Start).InsertBreak(3)
51、插入圖形
Appword.ActiveDocument.Shape.AddShapes(1,2/0.035,3/0.035,8/0.035,4/0.035) && 插入圖形：第一個數(shù)字為圖形形狀，1為矩形，2為平行四邊形，3為梯形，各word中基本圖形一致，33為箭頭總匯第一個，其他類推；第二個數(shù)字為圖形距面左邊位置；第三個數(shù)字為圖形距面上邊位置；第四個數(shù)字為圖形寬度；第五個數(shù)字為圖形高度
52、插入直線
Appword.ActiveDocument.Shapes.AddLine(6/0.035,6/0.035,6/0.035,9/0.035) && 插入直線：前兩個數(shù)字為起點距頁面左、上坐標(biāo)點，后兩個數(shù)字為終點距頁面左、上坐標(biāo)點
53、線寬選擇
Appword.Selection.ShapeRange.Line.Weight=0.05/0.035 && 線寬范圍必須在選中狀態(tài)下可用
54、線型選擇
Appword.Selection.ShapeRange.Line.Dashstyle=1 && 線型可選擇1--8，共8種
55、把第一行設(shè)置為標(biāo)題行
WordTable.Rows(1).HeadingFormat=.t.
56、設(shè)置第一行高度為1厘米（10毫米）
WordTable.Rows(1).Height=10*2.835
57、設(shè)置框線類型
WordTable.Borders.Enable=1 && 0--無 1--實 2--其它...
58、設(shè)置單元格左間距
WordTable.LeftPadding=2*2.835
59、設(shè)置單元格右間距
WordTable.RightPadding=2*2.835
60、設(shè)置單元格上間距
WordTable.TopPadding=1*2.835
61、設(shè)置單元格下間距
WordTable.BottomPadding=1*2.835
62、表格水平居中
WordTable.Rows.HorizontalPosition= - 999995
63、用VFP調(diào)用Word模版文檔
Objword=CreateObject("word.application")
Objword.Visible=.t.
Objword.Documents.Open("C:\Program Files\Microsoft office\Templates\2052\典雅型信函.dot",0)
64、VFP使用CreateObject命令實現(xiàn)對word文件進行操作的方法
Public oleApp
oleApp=CreateObject("word.application")
oleApp.Visible=.t.
oleApp.Documents.Add
oleApp.Selection.TypeText("歡迎光臨word世界！")
oleApp.Documents(1).SaveAs("C:\test.doc")
oleApp.Quit
65、打印預(yù)覽
Appword.ActiveDocument.PrintPreview
66、打印
Appword.ActiveDocument.PrintOut
67、為word文檔添加一個表格
Appword.ActiveDocuments(1).Tables.Add(Appword.Selection.Range,1,1)
68、在表格的下面重新增加一個表格
Appword.Selection.MoveDown(5,2,.F.) && 這里的“5”表示光標(biāo)向下移動的單位，“2”表示移動的行數(shù)，“.F.”布爾型表示是否拓展式移動
Appword.Selection.TypeParagraph
Appword.ActiveDocument.Tables.Add(.Appword.Selection.Range,1,1)
69、拆分單元格
Appword.Documents(1).Tables(2).Cells(1,1).Select
Appword.Selection.Cells.Split(2,3,.F.) && 將光標(biāo)所涉及到的單元格的集合拆分成2行3列
OR：Appword.Documents(1).Tables(2).Cells(1,1).Split(2,3)
70、合并單元格
Appword.Documents(1).Tables(2).Cells(1,1).Select
Appword.Selection.MoveRight(1,3,.T.) && 光標(biāo)向右移動3個單位
Appword.Selection.Cells.Merge |
|
|
