引用 VB千里行－操作Word与ExcelVisual Basic编程技巧 2007-12-06 14:56 阅读86 评论0字号：大中小引用lyjun_311 的VB千里行－操作Word与Excel本文将告诉你如何使用VB代码连接Office应用程序，并简要接触一下在文件中输入数据的方法。
实际上，在VB中用代码与Word和Excel进行会话并控制它们，是可行的。
但是请注意，首先需要在机器上安装office应用程序，才能在VB代码中存取它们的对象。
下面就是一些例子，告诉你如何与这些程序会话，并控制它们。
Option ExplicitDim xlsApp A* **cel.ApplicationDim wrdApp As Word.Application只要相关的对象库已经被选择，在应用程序中进行对象变量的赋值是可能的。
Microsoft Excel8.0对象库是相对于Excel的，而Microsoft Word 8.0 对象库是为Word服务的。
在VB的IDE环境中，从“工程”菜单中选择“引用”，可以看到系统可用的所有库列表。
Private Sub Command1_Click()Set xlsApp = Excel.ApplicationWith xlsApp注释：Show Excel.Visible = True注释：Create a new workbook.Workbooks.Add注释：Put text in to the cell that is selected.ActiveCell.Value = "Hi"注释：Put text into A3 regardless of the selected cell.Range("A3").Value = "This is an example of connecting to Excel"End WithEnd Sub在上面的程序段中，我们在变量xlsApp中建立了一个对象，这样Excel就对用户可见了。
当E xcel象这样启动后，并不包含一个工作簿，所以必须创建或者执行打开操作。
这里，我们建立了一个新的工作簿，然后，就可以操作其中的信息，或者打印，或者保存，或者你任意想做的事情。
Private Sub Command2_Click()注释：close the workbookxlsApp.Workbooks.Close注释：Close ExcelxlsApp.QuitEnd Sub上面这段代码执行关闭程序的功能。
首先，关闭工作簿，这将出现一个提示对话框，询问用户是否想保存修改；然后，退出应用程序。
Private Sub Command3_Click()Set wrdApp = New Word.ApplicationWith wrdApp注释：Show Word.Visible = True注释：Create New Document.Documents.Add注释：Add text to the document.ActiveDocument.Content.Text = "Hi".ActiveDocument.Content.Text = "This is a test example"End WithEnd Sub上面这段代码中，在变量wrdApp中设置引用Word程序的对象。
同样，当Word按照这种方式启动后，不会包含一个文档，所以，必须执行建立或者打开操作。
这里是建立了一个新文档，然后可以操作其中的信息了，打印、保存、发送邮件，等等...但是，在Word文档中放置文本并非容易！特别是与Excel一起工作时。
为了简单地在特定的地方放置文本，需要有一个bookmark标记。
这意味着，需要事先建立一个模板。
Private Sub Command4_Click()注释：Close the current documentwrdApp.ActiveDocument.Close注释：Close WordwrdApp.QuitEnd Sub上面这段代码的功能是关闭应用程序。
首先，关闭当前文档，这时可能需要用户保存修改。
然后，退出程序。
Private Sub Form_Unload(Cancel As Integer)注释：Clear the memorySet xlsApp = NothingSet wrdApp = NothingEnd Sub最后一段代码就是关闭VB应用程序。
这是优秀程序员编程的好习惯。
Well I hope this brief tutorial is helpful. It does not touch on much of what you can do to the office applications once they注释：re open, but should give you an idea of how to get started.好了，简单的介绍到此结束。
我希望能抛砖引玉，让你更加随意地操作Office应用程序！通过工程菜单--> 引用--> 找到MicroSoft Word 11.0 Object Library （office 2003 是11.0根据不同的office版本，这里可能有所不同)在程序中添加如下代码Dim wodapp As Word.Application '定义对象并打开文件Set wodapp = New Word.ApplicationFileName= "C:\Test.doc "wodapp.Application.Documents.Open FileName:=FileNameWith wodapp.Selection.Find '查找替换.ClearFormatting.Text = "要查找的内容".Replacement.ClearFormatting.Replacement.Text = "要替换的内容".execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinueEnd Withwodapp.Documents(FileName).Save '保存wodapp.Quit '退出Set wodapp = Nothing '释放资源使用vb调用vba在word中插入图片的代码收藏过程名：wdout作用：使用定义好的模板，自动将其中的形如｛????｝的字符以字段中的内容替换，并将｛照片｝替换成照片。
如果没有照片，则删除相应的替换字符。
参数：photofile——照片文件的路径字符串，为完整绝对路径。
不判断文件是否存在，如果不存在将出错。
插入图片其实只有一句wdApp.Selection.InlineShapes.AddPicture FileName:= _PhotoFile, LinkToFile:=False, SaveWithDocument:= _True可以用word的宏记录取得相应的代码。
Private Function WdOut(ByVal PhotoFile As String)''{单位}{费用名称}{费用名细}{大写金额}{金额}{鉴定单位}{经办人}{日期}Dim wdApp As Object, wdDoc As ObjectDim i As IntegerIf CheckWord = False ThenMsgBox "没有安装Word软件或软件安装错误！", vbExclamationExit FunctionEnd IfIf DotName = "" Or Not FileExist(DotName) ThenMsgBox "没有找到打印模板，无法打印！！", vbExclamationExit FunctionEnd IfMsgWinShow "正在从模板生成文档..."''If Not wdDoc Is Nothing Then'' On Error Resume Next'' wdDoc.Close wdDoNotSaveChanges'' Set wdDoc = Nothing'' wdApp.Quit'' Set wdApp = Nothing'' On Error GoTo 0''End IfSet wdApp = CreateObject("Word.Application")With wdApp' .Visible = TrueSet wdDoc = .Documents.Add(DotName, False, 0, True) ''wdNewBlankDocument=0End WithFor i = 0 To adoRS.Fields.Count - 1'With .Content.FindSelect Case adoRS.Fields(i).NameCase "照片"wdApp.Selection.Find.ClearFormattingWith wdApp.Selection.Find.Text = "{照片}".Replacement.Text = "A".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithwdApp.Selection.Find.ExecutewdApp.Selection.Delete Unit:=1, Count:=1 ''删除1=wdCharacterIf PhotoFile > "" ThenwdApp.Selection.InlineShapes.AddPicture FileName:= _PhotoFile, LinkToFile:=False, SaveWithDocument:= _TruewdApp.Selection.MoveLeft Unit:=wdCharacter, Count:=1wdApp.Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtendwdApp.Selection.InlineShapes(1).Fill.Visible = 0 ''0= msoFalsewdApp.Selection.InlineShapes(1).LockAspectRatio = -1 ''-1= msoTruewdApp.Selection.InlineShapes(1).Height = 28 * 4.1wdApp.Selection.InlineShapes(1).Width = 28 * 2.8End IfCase ElseWith wdApp.Selection.Find.ClearFormatting.Replacement.ClearFormatting.Text = "{" & adoRS.Fields(i).Name & "}".Replacement.Text = adoRS.Fields(i).Value & "".Forward = True.Wrap = 1 ''1=wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False.Execute Replace:=2 ''2=wdReplaceAllEnd WithEnd SelectNextwdApp.Visible = TrueSet wdDoc = NothingSet wdApp = NothingMsgWinHideEnd Function本文来自CSDN博客，转载请标明出处：/lanman/archive/2008/04/09/2265650.aspx守版的代码:Sub 获取所选图片属性()Dim myShape As Variant, strProperty As StringWith SelectionIf .Type = wdSelectionInlineShape ThenSet myShape = .InlineShapes(1)strProperty = "嵌入型"With myShapestrProperty = strProperty & vbLf & "宽=" & .WidthstrProperty = strProperty & vbLf & "高=" & .HeightEnd WithElseIf .Type = wdSelectionShape ThenSet myShape = .ShapeRange(1)Select Case myShape.WrapFormat.TypeCase wdWrapInlinestrProperty = "嵌入型"Case wdWrapNonestrProperty = "衬于文字下方型or浮于文字上方型"Case wdWrapSquarestrProperty = "四周型环绕"Case wdWrapThroughstrProperty = "穿越型环绕"Case wdWrapTightstrProperty = "紧密环绕型"Case wdWrapTopBottomstrProperty = "上下型环绕"End SelectWith myShapestrProperty = strProperty & vbLf & "宽=" & .WidthstrProperty = strProperty & vbLf & "高=" & .HeightstrProperty = strProperty & vbLf & "顶部距离=" & .TopstrProperty = strProperty & vbLf & "左侧距离" & .LeftEnd WithEnd IfEnd WithMsgBox strProperty, vbInformationEnd Sub问题已解决ActiveDocument.Shapes(1).SelectWith Dialogs(wdDialogFormatDrawingObject)MsgBox CStr(.Wrap)End With' 当衬于文字下方时，其值为5' 当浮于文字上方时，其值为6Selection.ShapeRange.WrapFormat.Type = 3 只能判断出图片是否在文字上方或下方，无法确定是上还是下Selection.ShapeRange.ZOrder(4) 是设置图片位于文字下方一、浮于文字上方的图片Sub ab1()'图片大小6.4×14Selection.ShapeRange.LockAspectRatio = msoFalse '去掉“锁定横纵比“的勾Selection.ShapeRange.Height = 274.95Selection.ShapeRange.Width = 396.85End Sub二、如果是嵌入型Sub ab1()'图片大小6.4×14'Selection.InlineShapes(1).Height = 396.85Selection.InlineShapes(1).Width = 274.95End Sub。
