录制宏
查看宏代码

我不会录制，请帮忙录制一下，并告诉代码

下面是转帖的东东，虽然没有直接插入图片的，不过利用录制宏方式查看一下在word中插入图片的VBA代码就可以方便地修改实现了。

VFP技巧之：利用WORD增强VFP的打印功能2010年06月21日 星期一 18:14VFP９将报表设计器的功能增强了很多，但如果使用生成的报表进行最后的打印输出，总有一些不足，比如：不能进行打印内容的修改，改变打印机设置后，有些使要打印的内容与设计时的要求发生改变。……
对于这些不足，实际我们可以利用它与WORD之间的OLE功能，通过WORD实现VFP的打印输出，能够非常方便我们的工作。下面是我整理出在VFP中控制WORD的一些语句，大家在VFP的命令窗口中试一下，就知道怎么用了。

Word=CREATEOBJECT('word.application')   &&创建ＷＯＲＤ文档
Word.Visible=.t. &&显示ＷＯＲＤ文档
Word.Documents.add()   &&建立新文档
Word.ActiveDocument.SaveAs('E:\abcef.doc')   &&保存文档，如果文件另存为如果要存到文件夹下，要先先创建文件夹，否则分报错
Word.Documents.Open ('e:\abcef.doc') &&打开文档
Word.ActiveDocument.Save   &&保存
Word.Documents.close   &&关闭
Word.Application.Quit   &&退出word
Word.ActiveDocument.PrintOut &&打印

Word.ActiveDocument.PageSetup.TopMargin=1.5/0.035   &&设置上页边距
Word.ActiveDocument.PageSetup.BottomMargin=1.5/0.035   &&设置下页边距
Word.ActiveDocument.PageSetup.LeftMargin=1.8/0.035   &&设置左页边距
Word.ActiveDocument.PageSetup.RightMargin=1.8/0.035   &&设置右页边距
Word.ActiveDocument.PageSetup.PageWidth=18.4/0.035   &&设置页高
Word.ActiveDocument.PageSetup.PageHeight=26/0.035   &&设置页宽
Word.ActiveDocument.PageSetup.Orientation = 1     &&为页面竖放，2为页面横放，改为横放后相应的页高与页宽也就随着改变
Word.ActiveDocument.PageSetup.LayoutMode = 0   &&指定网格,0为不指定网格，1为指定行网格和字符网格，2为只指定行网格，3为文字对齐网格
Word.ActiveDocument.PageSetup.LinesPage = 42 &&若指定行网格时可设置每页行数
Word.ActiveDocument.PageSetup.CharsLine = 10   &&若指定字符网格时可设置每行字数
Word.ActiveDocument.PageSetup.TextColumns.SetCount (4) &&页面设为4栏
Word.ActiveDocument.PageSetup.TextColumns.Width = 3/0.035&&设栏宽
Word.ActiveDocument.PageSetup.TextColumns.Spacing = 0.5/0.035&&设栏间距，最好只设置栏间距，避免栏宽设置不正确。

Word.Selection.Text="如果创建了工具栏"   &&插入文字
Word.Selection.insertafter(SPACE(6)+"多谢贵公司的支持，贵公司在") &&插入文字
Word.Selection.Font.Size = 10.5   &&指定字号，9为小五号，10.5为五号，12为小四号
Word.Selection.Font.Name = "宋体"   &&设置字体
Word.Selection.ParagraphFormat.Alignment = 0   && 0为左对齐，1居中，2右对齐，3两端对齐
Word.Selection.TypeBackspace   &&删除光标前面的字符（回车符等）
Word.Selection.Delete (1,1)   && 第一个数学1为下删一字2为下删到下一个标点第二个数字为数量。
Word.Selection.InsertBreak(0)   &&0是插入新页1是插入分页符
Word.Selection.TypeParagraph    &&回车符

Word.Application.Browser.Previous&&移动到上一页的页首
Word.Application.Browser.Next&&移动到下一页的页首
Word.Selection.Moveright(3,1,1)   &&第一个数字的意思为3是移动一句2为移到上一个标点符号1为移动一个字符后一个数字的意思为移动的数量。第三个数字表示选中状态
Word.Selection.Moveleft(3,1,1)   &&第一个数字的意思为3是移动一句2为移到上一个标点符号1为移动一个字符后一个数字的意思为移动的数量。第三个数字表示选中状态
Word.Selection.MoveUp(4,1,1) && 第一个数学4为移到上一段开头5为向上移一行7为是翻一页（pagedown），第三个数字表示选中状态
Word.Selection.MoveDown(5,1)   && 第一个数学4为移到下一段开头5为向下移一行7为下翻一页（pagedown），第三个数字表示选中状态
Word.Selection.WholeStory&& 选中全部文字


Word.ActiveDocument.Tables.Add(Word.Selection.Range,9,6,1,0)   &&插入一个9行6列的表格第三个数字0表示没有网格线1表示有表格线第四个数字为1时表格自动调整列宽行宽0时固定列宽自动调整行宽
Word.Selection.SelectRow   &&选定表格一行
Word.Selection.SelectColumn   &&选定表格一列
Word.Selection.Tables(1).Select    &&选定表格括号中只能用1选定光标所在表格或光标上面的表格
Word.Selection.Tables(1).Rows.Height=0.77/0.035    &&选定表格所有行高0.77CM
Word.Selection.Tables(1).Columns.PreferredWidth=2/0.035 &&选定表格所有列宽 2cm
Word.Selection.Tables(1).Rows.Alignment = 1   &&0时选定表格居左1时居中2时居右
Word.Selection.Cells.VerticalAlignment= 3    &&选定单元格0为上对齐1为居中对齐3为下对齐
Word.Selection.ParagraphFormat.Alignment= 2 &&选定单元格(0,1,2,5,7,8,9)0为左对齐1为居中2为右对齐
Word.Selection.Tables(1).rows(3).cells(3).range.insertafter("颜色变化")&&第三行第三列插入文字


Word.ActiveDocument.Range(Word.Selection.Start,Word. Selection.Start).InsertBreak(3) &&将选中文字进行分栏操作
Word.ActiveDocument.Shapes.AddShape(1, 2/0.035, 3/0.035, 8/0.035, 4/0.035) &&插八图形第一个为图形形状1为矩形2为平行四边形3为梯形各WORD中基本图形的顺序一致。
33为箭头总汇第一个其他类推
第二个数字为图形距面左边位置
第三个数字为图形距面上边位置
第四个数字为图形的宽度
第五个数字为图形的高度
Word.ActiveDocument.Shapes.AddLine( 6/0.035, 6/0.035, 6/0.035, 9/0.035) &&插入直线前两个数字为起点距面页左、上坐标点，后两个数字为终点距页面左、上坐标点。
Word.Selection.ShapeRange.Line.Weight = 0.05/0.035&&线宽范围必须在选中状态下可用
Word.Selection.ShapeRange.Line.DashStyle = 1&线型可选择1——8共8种线型选择 

oWrd=CREATEOBJECT("Word.application")  
owrd.Documents.Open(GETFILE("DOC"))&&打开已有文档                      
oWrd.Selection.InlineShapes.AddPicture("C:\Documents and Settings\用户\桌面\图片名.jpg",.F.,.T.)
owrd.ActiveDocument.Save   &&保存
owrd.Quit