|
用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,、打開(kāi)文檔
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è)置上頁(yè)邊距
Appword.ActiveDocument.PageSetup.TopMargin=1.5/0.035
11,、設(shè)置下頁(yè)邊距
Appword.ActiveDocument.PageSetup.BottomMargin=1.5/0.035
12、設(shè)置左頁(yè)邊距
Appword.ActiveDocument.PageSetup.LeftMargin=1.5/0.035
13,、設(shè)置右頁(yè)邊距
Appword.ActiveDocument.PageSetup.RightMargin=1.5/0.035
14,、設(shè)置頁(yè)寬
Appword.ActiveDocument.PageSetup.PageWidth=18.4/0.035
15、設(shè)置頁(yè)高
Appword.ActiveDocument.PageSetup.PageHeight=26/0.035
16,、設(shè)置頁(yè)面豎放
Appword.ActiveDocument.PageSetup.Orientation=1
17,、設(shè)置頁(yè)面橫放
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--文字對(duì)齊網(wǎng)格
19,、設(shè)置每頁(yè)行數(shù)
Appword.ActiveDocument.PageSetup.LinesPage=42
20,、設(shè)置每行字?jǐn)?shù)
Appword.ActiveDocument.PageSetup.ChartLine=10
21、頁(yè)面設(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、指定字號(hào)
Appword.Selection.FontSize=10.5
27,、設(shè)置對(duì)齊方式
Appword.Selection.ParagraphFormat.Alignment=0 && 0為左對(duì)齊 1居中 2右對(duì)齊 3兩端對(duì)齊
28,、設(shè)置字體
Appword.Selection.FontName="宋體"
29、刪除光標(biāo)前面的字符（回車符等）
Appword.Selection.Typebackspace
30,、刪除字符
Appword.Selection.Delete(1,1) && 第一個(gè)數(shù)字：1為下刪一字,，2為下刪到下一個(gè)標(biāo)點(diǎn) 第二個(gè)數(shù)字為數(shù)量
31,、插入新頁(yè)
Appword.Selection.InsertBreak(0)
32、回車符
Appword.Selection.TypeParagraph && 0--插入新頁(yè) 1--插入分頁(yè)符
33,、移到上一頁(yè)的頁(yè)首
Appword.Selection.Browser.Previous
34,、移到下一頁(yè)的頁(yè)首
Appword.Selection.Browser.Next
35、 Appword.Selection.MoveRight(3,1,1) && 第一個(gè)數(shù)字意思：3--移動(dòng)一句,，2--移動(dòng)到上一個(gè)標(biāo)點(diǎn),，1--移動(dòng)一個(gè)字符
&& 第二個(gè)數(shù)字為移動(dòng)的數(shù)量 第三個(gè)數(shù)字表示選中狀態(tài)
36、Appword.Selection.MoveLeft(3,1,1)
37,、Appword.Selection.Moveup(4,1,1) && 第一個(gè)數(shù)字：4--移到上一段開(kāi)頭,，5--向上移一行，7--翻一頁(yè)(PageDown)
&& 第三個(gè)數(shù)字表示選中狀態(tài)
38,、Appword.Selection.MoveDown(5,1,1) && 第一個(gè)數(shù)字：4--移到下一段開(kāi)頭,，5--向下移一行，7--下翻一頁(yè)(PageDown)
&& 第三個(gè)數(shù)字表示選中狀態(tài)
39,、選中全部文字
Appword.Selection. Wholestory
40,、插入表格
Appword..ActiveDocument.Table.Add(Appword.Selection.Range,9,61,0) && 插入一個(gè)9行6列的表格。第三個(gè)數(shù)字0為沒(méi)有網(wǎng)格線,，1表示有網(wǎng)格線,；第四個(gè)數(shù)字為1時(shí)表格自動(dòng)調(diào)整列寬，行寬0時(shí)固定列寬,，自動(dòng)調(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時(shí)居中,，2時(shí)居右
47,、Appword.Selection. Cells.VerticalAlignment=3 && 選定表格為上對(duì)齊，1為居中對(duì)齊,，2為下對(duì)齊
48,、Appword.Selection.ParagraphFormat.Alignment=2 && 選定單元格0為左對(duì)齊，1為居中,，2為右對(duì)齊
49,、在第三行第三列插入文字
Appword.Selection. Tables(1).Row(3).Cell(3).Range.InsertAfter("中國(guó)")
50、將選中文字進(jìn)行分欄操作
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) && 插入圖形：第一個(gè)數(shù)字為圖形形狀,，1為矩形,，2為平行四邊形，3為梯形,，各word中基本圖形一致,，33為箭頭總匯第一個(gè),，其他類推,；第二個(gè)數(shù)字為圖形距面左邊位置；第三個(gè)數(shù)字為圖形距面上邊位置,；第四個(gè)數(shù)字為圖形寬度,；第五個(gè)數(shù)字為圖形高度
52、插入直線
Appword.ActiveDocument.Shapes.AddLine(6/0.035,6/0.035,6/0.035,9/0.035) && 插入直線：前兩個(gè)數(shù)字為起點(diǎn)距頁(yè)面左,、上坐標(biāo)點(diǎn),，后兩個(gè)數(shù)字為終點(diǎn)距頁(yè)面左、上坐標(biāo)點(diǎn)
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--無(wú) 1--實(shí) 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命令實(shí)現(xiàn)對(duì)word文件進(jìn)行操作的方法
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文檔添加一個(gè)表格
Appword.ActiveDocuments(1).Tables.Add(Appword.Selection.Range,1,1)
68、在表格的下面重新增加一個(gè)表格
Appword.Selection.MoveDown(5,2,.F.) && 這里的“5”表示光標(biāo)向下移動(dòng)的單位,，“2”表示移動(dòng)的行數(shù),，“.F.”布爾型表示是否拓展式移動(dòng)
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)向右移動(dòng)3個(gè)單位
Appword.Selection.Cells.Merge |
|
|
