vb控制word文档插入文字 vb生成word文档
用VB如何在WORD指定位置上插入文字？
在VB6.0中，操作word，使用它强大的查找、替换、删除、复制、翦切功能。
还可以把特定字符替换成图片。
有了它你就可以使用数据库中的内容或图片文件替换word文件中的特定字符。
只要把下列内容复制到写字板中，另存为SetWord.cls文件，然后在把它添加到工程中，就可以使用了。
VERSION 1.0 CLASS BEGIN MultiUse = -1 "True Persistable = 0 "NotPersistable DataBindingBehavior = 0 "vbNone DataSourceBehavior = 0 "vbNone MTSTransactionMode = 0 "NotAnMTSObject END Attribute VB_Name = ＂SetWord＂ Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Private mywdapp As Word.Application Private mysel As Object"属性值的模块变量 Private C_TemplateDoc As String Private C_newDoc As String Private C_PicFile As String Private C_ErrMsg As Integer Public Event HaveError() Attribute HaveError.VB_Description = ＂出错时激发此事件.出错代码为ErrMsg属性＂"***************************************************************"ErrMsg代码：1-word没有安装 2 - 缺少参数 3 - 没权限写文件" 4 - 文件不存在""*************************************************************** Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As Integer Attribute ReplacePic.VB_Description = ＂查找FindStr，并替换为PicFile所指向的图片文件，替换次数由time参数确定，为0时，替换所有＂"********************************************************************************" 从Word.Range对象mysel中查找所有FindStr，并替换为PicFile图像" 替换次数由time参数确定，为0时，替换所有"******************************************************************************** If Len(C_PicFile) = 0 Then C_ErrMsg = 2 Exit Function End If Dim i As Integer Dim findtxt As Boolean mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) If Not findtxt Then ReplacePic = 0 Exit Function End If i = 1 Do While findtxt mysel.InlineShapes.AddPicture FileName:=C_PicFile If i = Time Then Exit Do i = i + 1 mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=True) Loop ReplacePic = i End Function Public Function FindThis(FindStr As String) As Boolean Attribute FindThis.VB_Description = ＂查找FindStr，如果模板中有FindStr则返回True＂ If Len(FindStr) = 0 Then C_ErrMsg = 2 Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With mysel.HomeKey Unit:=wdStory FindThis = mysel.Find.Execute End Function Public Function ReplaceChar(FindStr As String, RepStr As String, Optional Time As Integer = 0) As Integer Attribute ReplaceChar.VB_Description = ＂查找FindStr，并替换为RepStr，替换次数由time参数确定，为0时，替换所有＂"********************************************************************************" 从Word.Range对象mysel中查找FindStr，并替换为RepStr" 替换次数由time参数确定，为0时，替换所有"******************************************************************************** Dim findtxt As Boolean If Len(FindStr) = 0 Then C_ErrMsg = 2 RaiseEvent HaveError Exit Function End If mysel.Find.ClearFormatting mysel.Find.Replacement.ClearFormatting With mysel.Find.Text = FindStr.Replacement.Text = RepStr.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = False End With If Time > 0 Then For i = 1 To Time mysel.HomeKey Unit:=wdStory findtxt = mysel.Find.Execute(Replace:=wdReplaceOne) If Not findtxt Then Exit For Next If i = 1 And Not findtxt Then ReplaceChar = 0 Else ReplaceChar = i End If Else mysel.Find.Execute Replace:=wdReplaceAll End If End Function Public Function GetPic(PicData() As Byte, FileName As String) As Boolean Attribute GetPic.VB_Description = ＂把图像数据PicData，存为PicFile指定的文件＂"********************************************************************************" 把图像数据PicData，存为PicFile指定的文件"*********************************************...
VB 如何控制WORD中插入图片的大小等属性？
自己录个宏，稍加改动就可以了。
Sub 图片旋转270度对齐页面（）"图片排版270度 If Selection.InlineShapes.Count = 0 Then If Selection.ShapeRange.Count 0 Then Selection.ShapeRange.Fill.Visible = msoFalse "Selection.ShapeRange.AlternativeText = ＂Higer标书工具修改＂ Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Rotation = 270# Selection.ShapeRange.Width = CentimetersToPoints(28.9) Selection.ShapeRange.Height = CentimetersToPoints(20.2) "Selection.ShapeRange.PictureFormat.Brightness = 0.5 "Selection.ShapeRange.PictureFormat.Contrast = 0.5 "Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# "Selection.ShapeRange.Left = 90.1 "Selection.ShapeRange.Top = 88.15 "Selection.ShapeRange.Left = -120.45 "Selection.ShapeRange.Top = 109.1 Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizontalPositionPage Selection.ShapeRange.RelativeVerticalPosition = _ wdRelativeVerticalPositionPage Selection.ShapeRange.Left = wdShapeCenter Selection.ShapeRange.Top = wdShapeCenter Selection.ShapeRange.LockAnchor = False Selection.ShapeRange.LayoutInCell = True Selection.ShapeRange.WrapFormat.AllowOverlap = True Selection.ShapeRange.WrapFormat.Side = wdWrapBoth Selection.ShapeRange.WrapFormat.DistanceTop = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceBottom = CentimetersToPoints(0) Selection.ShapeRange.WrapFormat.DistanceLeft = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.DistanceRight = CentimetersToPoints(0.32) Selection.ShapeRange.WrapFormat.Type = 3 Selection.ShapeRange.ZOrder 4 Selection.ShapeRange.ZOrder msoSendBackward End If End If If Selection ＂＂ Then If Selection.InlineShapes.Count 0 Then "Selection.InlineShapes(1).Fill.Visible = msoFalse "Selection.InlineShapes(1).Fill.Solid "Selection.InlineShapes(1).Fill.Transparency = 0# "Selection.InlineShapes(1).Line.Weight = 0.75 "Selection.InlineShapes(1).Line.Transparency = 0# "Selection.InlineShapes(1).Line.Visible = msoFalse "Selection.InlineShapes(1).LockAspectRatio = msoFalse "Selection.InlineShapes(1).Width = CentimetersToPoints(28.9) "Selection.InlineShapes(1).Height = CentimetersToPoints(20.2) "Selection.InlineShapes(1).PictureFormat.Brightness = 0.5 "Selection.InlineShapes(1).PictureFormat.Contrast = 0.5 "Selection.InlineShapes(1).PictureFormat.ColorType = msoPictureAutomatic "Selection.InlineShapes(1).PictureFormat.CropLeft = 0# "Selection.InlineShapes(1).PictureFormat.CropRight = 0# "Selection.InlineShapes(1).PictureFormat.CropTop = 0# "Selection.InlineShapes(1).PictureFormat.CropBottom = 0# Selection.InlineShapes(1).ConvertToShape "属性转换（InlineShapes(1)转换为ShapeRange) Selection.ShapeRange.Fill.Visible = msoFalse "Selection.ShapeRange.AlternativeText = ＂Higer标书工具修改＂ Selection.ShapeRange.Fill.Solid Selection.ShapeRange.Fill.Transparency = 0# Selection.ShapeRange.Line.Weight = 0.75 Selection.ShapeRange.Line.DashStyle = msoLineSolid Selection.ShapeRange.Line.Style = msoLineSingle Selection.ShapeRange.Line.Transparency = 0# Selection.ShapeRange.Line.Visible = msoFalse Selection.ShapeRange.LockAspectRatio = msoFalse Selection.ShapeRange.Width = CentimetersToPoints(28.9) Selection.ShapeRange.Height = CentimetersToPoints(20.2) Selection.ShapeRange.Rotation = 270# "Selection.ShapeRange.PictureFormat.Brightness = 0.5 "Selection.ShapeRange.PictureFormat.Contrast = 0.5 "Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic Selection.ShapeRange.PictureFormat.CropLeft = 0# Selection.ShapeRange.PictureFormat.CropRight = 0# Selection.ShapeRange.PictureFormat.CropTop = 0# Selection.ShapeRange.PictureFormat.CropBottom = 0# Selection.ShapeRange.RelativeHorizontalPosition = _ wdRelativeHorizo...
vb调用word
应该是没有的对于某个编程语言的某块调用翻来覆去最多也就是10几句20几句的指令，出一本书成本太大，购买的人又少，肯定不会出。
除非像数据库之类的东西这种东西应该在API的书或者专门讲ocx调用的书里会讲，但是ocx一直是个冷门还是建议百度吧
2016版本word表格怎样放缩2016版本word 表格怎样放
一些特点：输入法如果你是XP用户，在Office 2007安装完毕后点击“输入法”按钮，我们会发现原有Windows XP自带的“微软拼音输入法2003”自动更新为“微软拼音输入法2007”（如图14），与以前的输入法版本相比， “微软拼音输入法2007”字词库得到了更新，而且更加智能。
文档保存格式用户在使用Microsoft Office 97至Microsoft Office 2003时，对保存Word文档时生成的“.doc”格式文档非常熟悉，而新发布的Microsoft Office 2007改变了部分文档格式，Word文档的默认保存格式为“.docx”，改变格式后文档占用空间将有一定程度的缩小。
但同时出现的问题是安装Microsoft Office 97-2003的计算机无法打开格式为“.docx”的文档，解决方法是到微软官方网站上下载兼容性插件，安装到装有Microsoft Office 97-2003的计算机上，就可以打开“.docx”文档了。
隐藏工具栏用户在使用Microsoft Office 97-2003编辑文档时经常会用到“字体”和“段落”中的一些功能，例如“文字加粗”、“字体颜色”、“段落居中”和“字体和字号”等功能，由于频繁操作，用户需要用鼠标上下来回点击，时间一长，易产生厌烦。
新发布的Office 2007增加了一个“隐藏工具栏”，当用户将需要修改的文字或段落选中，并把鼠标向选中部分末字符的右上角移动，就会发现在该字符的右上角出现了一个工具栏（如图15），并且随着鼠标箭头的移近，工具栏的透明度逐渐降低。
在这个“隐藏工具栏”中包括了用户经常应用的字体和段落工具栏的选项，使用起来方便快捷，可以显著提高用户的工作效率。
审阅选项卡Office 2007在面板中新增了“审阅”选项卡。
在Word 2007之前的版本中，审阅的功能其实是通过“工具”菜单下的“修订”项实现的。
在Word 2007中新增的“审阅”选项卡（如图16）中最主要的选项就是“新建批注”和“文档保护”选项。
应用“新建批注”选项，上司可以对下级提交的计划或文案进行批注，下级也可以对工作中的问题和需要请示的事项进行说明。
用户只要将需要批注的内容选中，点击“新建批注”选项，就可以将批注内容输入批注栏中。
用户应用“文档保护”选项，可以设置访问权限，可以禁止复制或修改文档中的内容。
首先用户需要到Microsoft官方网站上下载Windows Rights Management客户端软件，安装后就可以修改文档访问权限，当然下载的前提条件是使用Microsoft Windows正版产品。
如果想禁止他人浏览自己的文档，可以点击Office图标，在弹出的选项栏中点击“准备”|“加密文档”，给文档设置密码，通过使用“文档保护”和“加密文档”可以大幅度提高用户资料信息的安全性。
Microsoft Visual Studio Tools安装完Microsoft Office 2007后，在“程序”菜单中你会发现新增的程序除了Microsoft Office 2007以外，还有Microsoft Visual Studio 2005程序插件。
Office 2007与Office 2003一样，利用Microsoft Office自带的VB编程功能，可以编写出特定功能插件，插入文档中，从而满足用户的特定功能，例如网络管理员可以编写VB视频播放插件，并将其插入Word中，通过博客编辑功能将文章发布。
随着Microsoft Office Word 2007功能的增加，将会给用户带来更多的方便实惠，用户的工作效率将不断提高，Microsoft Office在办公软件市场的领先地位将进一步提高。
通过上面对Microsoft Office Word 2007的介绍，你是否已经心动？Office 2007会使你的工作效率大幅度提高，赶快安装试用吧。
□
word2007与word2003的区别
一些特点：输入法如果你是XP用户，在Office 2007安装完毕后点击“输入法”按钮，我们会发现原有Windows XP自带的“微软拼音输入法2003”自动更新为“微软拼音输入法2007”（如图14），与以前的输入法版本相比， “微软拼音输入法2007”字词库得到了更新，而且更加智能。
文档保存格式用户在使用Microsoft Office 97至Microsoft Office 2003时，对保存Word文档时生成的“.doc”格式文档非常熟悉，而新发布的Microsoft Office 2007改变了部分文档格式，Word文档的默认保存格式为“.docx”，改变格式后文档占用空间将有一定程度的缩小。
但同时出现的问题是安装Microsoft Office 97-2003的计算机无法打开格式为“.docx”的文档，解决方法是到微软官方网站上下载兼容性插件，安装到装有Microsoft Office 97-2003的计算机上，就可以打开“.docx”文档了。
隐藏工具栏用户在使用Microsoft Office 97-2003编辑文档时经常会用到“字体”和“段落”中的一些功能，例如“文字加粗”、“字体颜色”、“段落居中”和“字体和字号”等功能，由于频繁操作，用户需要用鼠标上下来回点击，时间一长，易产生厌烦。
新发布的Office 2007增加了一个“隐藏工具栏”，当用户将需要修改的文字或段落选中，并把鼠标向选中部分末字符的右上角移动，就会发现在该字符的右上角出现了一个工具栏（如图15），并且随着鼠标箭头的移近，工具栏的透明度逐渐降低。
在这个“隐藏工具栏”中包括了用户经常应用的字体和段落工具栏的选项，使用起来方便快捷，可以显著提高用户的工作效率。
审阅选项卡Office 2007在面板中新增了“审阅”选项卡。
在Word 2007之前的版本中，审阅的功能其实是通过“工具”菜单下的“修订”项实现的。
在Word 2007中新增的“审阅”选项卡（如图16）中最主要的选项就是“新建批注”和“文档保护”选项。
应用“新建批注”选项，上司可以对下级提交的计划或文案进行批注，下级也可以对工作中的问题和需要请示的事项进行说明。
用户只要将需要批注的内容选中，点击“新建批注”选项，就可以将批注内容输入批注栏中。
用户应用“文档保护”选项，可以设置访问权限，可以禁止复制或修改文档中的内容。
首先用户需要到Microsoft官方网站上下载Windows Rights Management客户端软件，安装后就可以修改文档访问权限，当然下载的前提条件是使用Microsoft Windows正版产品。
如果想禁止他人浏览自己的文档，可以点击Office图标，在弹出的选项栏中点击“准备”|“加密文档”，给文档设置密码，通过使用“文档保护”和“加密文档”可以大幅度提高用户资料信息的安全性。
Microsoft Visual Studio Tools安装完Microsoft Office 2007后，在“程序”菜单中你会发现新增的程序除了Microsoft Office 2007以外，还有Microsoft Visual Studio 2005程序插件。
Office 2007与Office 2003一样，利用Microsoft Office自带的VB编程功能，可以编写出特定功能插件，插入文档中，从而满足用户的特定功能，例如网络管理员可以编写VB视频播放插件，并将其插入Word中，通过博客编辑功能将文章发布。
随着Microsoft Office Word 2007功能的增加，将会给用户带来更多的方便实惠，用户的工作效率将不断提高，Microsoft Office在办公软件市场的领先地位将进一步提高。
通过上面对Microsoft Office Word 2007的介绍，你是否已经心动？Office 2007会使你的工作效率大幅度提高，赶快安装试用吧。
□