VB编程如何加载word或excel内容

链接它，特别注意是一定要点击“链接”复选框，如果不选中这一项会影响你以后的数据修改。点击“确定”出现下面：注意我的这个表是用OLE链接的，而不是文本框和其他控件，链接word文件的方式和它步骤一样，不用在说一遍了把？以后改数据直接去word和excel里修改，在vb中运行的时候同步更新，我讲的够明白了，应该懂了吧？ 回答： 对啊,就是要重新建表,反正也不是很麻烦,这样做关键是方便你以后修改数据啊,用这个法很简便,易于 *** 作,其他方法有,但都很复杂,需要调用代码,而且还容易出错,望采纳

Dim xDocu As New WordApplication ' 定义一个Word文档对象Private Sub Command1_Click() ' 点击按钮时执行的语句

xDocuSelectionShapeRangeTextEffectPresetTextEffect = Int(Rnd(1) 30) ' 把当前word文档中被选中 ' 的艺术字的样式设为一个数字，这个数字是由随机数函数Rnd产生的

xDocuSelectionShapeRangeTextEffectFontName = "宋体" ' 把该艺术字的字体设为 '“宋体”

xDocuSelectionCopy ' 复制选中的内容到剪贴板

MePicture = ClipboardGetData ' 把剪贴板的内容放到当前页的框中

End SubPrivate Sub Form_Load() ' 窗体载入时运行的代码

xDocuDocumentsAddSelect ' 加载word文档对象

xDocuActiveDocumentShapesAddTextEffect(0, "word艺术字", "宋体", 32#, -1, 0, 10, 10)Select ' 在当前活动的word文档中添加艺术字， ' 该艺术字的内容为“word艺术字”，字体为宋体，字号为32磅

End Sub

这是VBA语句代码，用VBA *** 作word，帮助文档可以在word--〉宏--〉VB编辑器--〉帮助--〉Microsoft Visual Basic帮助中查找

首先你要在VB的“工程”->“引用”中引用“Microsoft Word 90 Object LibraryPrivate Sub Command1_Click()'打开指定的Word文件

Dim wdApp As WordApplication

Dim aDoc As Document

Set wdApp = New WordApplication

Set aDoc = wdAppDocumentsOpen(FileName:="你要打开的Word文件路径及文件名")

wdAppVisible = True'设置Word对象可见

End Sub

不过你要关闭word文件时要释放对象

aDocClose'关闭文件

wdAppQuit'退出Word程序

Set aDoc = Nothing'释放对象

Set wdApp = Nothing

你可以再放一个按钮，将上面代码放进去，用这个按钮来关闭Word并释放对象。

如果你直接在Word程序中关闭文件的话，就将word对象定义在一个类模块中Public WithEvents wdApp As WordApplication，再在wdApp_Quit()事件中加入释放对象的代码。

如果关闭word文件而没有释放对象的话，你只有重新运行刚才用来打开word文件的程序才能再次打开word文件。

整个冬天将窜入我的身 怨毒，

沿着看不见的曲线飘下来，

一帮骗子和娼妓演员，

在这个我度过空虚日子的黑暗房间里，

耐不住强力的突破，

朝霞又一的参透的风的絮语。哈哈

以上就是关于VB编程如何加载word或excel内容全部的内容，包括:VB编程如何加载word或excel内容、VB，引用Word、设计一个程序，用VB打开WORD文档，并对其进行修改保存等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！