vba-请各位看看这段vb.net的代码,是操作word的

问题描述

请各位看看这段vb.net的代码,是操作word的

Public Sub Textbox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
Dim p As String = InputBox("请输入")
Dim WDAPP As Object
WDAPP = CreateObject("Word.Application")
WDAPP.Documents.Add(TextBox1.Text)
WDAPP.Selection.Find.ClearFormatting()
With WDAPP.Selection.Find.Text = p
Dim i As String
i = WDAPP.Selection.Information(3)
WDAPP.Selection.TypeText(text:=p)
WDAPP.documents.add(TextBox2.Text)
WDAPP.Selection.MoveDown(Unit:=WDAPP.wdParagraph, Count:=1)

            WDAPP.Selection.EndKey()

            WDAPP.Selection.ParagraphFormat.TabStops.Add(Position:=WDAPP.CentimetersToPoints(15.24), Alignment:=WDAPP.wdAlignTabRight, Leader:=WDAPP.wdTabLeaderDashes)

            WDAPP.Selection.TypeText(Text:=vbTab)

            WDAPP.Selection.TypeText(Text:=i)

            WDAPP.Selection.TypeText(Text:=vbCrLf)

        End With
    End If
            两个textbox分别是读的文件地址,和写的文件地址。
            写上去是没错的,执行的时候粗体的那行![图片说明](http://img.ask.csdn.net/upload/201501/02/1420168623_867857.jpg)就是图片的报错

            应该怎么修改,还有我打开那个被写的文件时候说是被绑定了不能操作,这是什么情况
            ![图片说明](http://img.ask.csdn.net/upload/201501/02/1420168660_496589.jpg)

解决方案

http://msdn.microsoft.com/en-us/library/office/ff838730(v=office.15).aspx

解决方案二:

要确保首先选中
Selection不能为nothing

解决方案三:

还是没懂您说的。。。。
“System.MissingMemberException”类型的未经处理的异常在 Microsoft.VisualBasic.dll 中发生

其他信息: 未找到类型“ApplicationClass”的公共成员“wdParagraphs”。
我不知道vb中貌似没有paragraphs这个,但是vba中有。不知道该怎么处理了

时间: 2016-04-11
Tags: 代码, vb net, vba

vba-请各位看看这段vb.net的代码,是操作word的的相关文章

vba-怎样在word VBA中选取某几段第一行?

问题描述 怎样在word VBA中选取某几段第一行? 比如:1.A aaaa2.B bbbb3.C cccc 最后希望仅留下1.A2.B3.C 解决方案 先得到Selection,再得到paragraph用Left函数提取

哪位大哥给一段vb.net连接mdb数据库及执行相关查询的代码,本人菜鸟,多谢!

问题描述 哪位大哥给一段vb.net连接mdb数据库及执行相关查询的代码,本人菜鸟,多谢! 解决方案 解决方案二:mycon=NewOleDbConnection("provider=microsoft.jet.oledb.4.0;UserID=Admin;datasource="&Application.StartupPath&"你数据库的名称.mdb")mydap=NewOleDbDataAdapter("select*from表名&q

求一段vb.net操作IE浏览器的代码

问题描述 登录网页地址:10.67.132.10/amts/login登录成功后的网页地址:10.67.132.10/amts/dsframe登录网页用户名填写文本框名称:bLogin登录网页密码填写文本框名称:password登录网页登录按钮名称:ok需要实现:(1)打开IE浏览器,(2)填写用户名:lcj,密码:123456,(3)程序点击登录按钮,并判断登陆后的网页是否加载完成.(4)在打开的IE浏览器中重新打开网页:10.67.132.10/amts/dsframe/id=562314多

c语言-请高手看一段C程序代码不知道哪里出错了

问题描述 请高手看一段C程序代码不知道哪里出错了 解决方案 另外printf你又拼错了. 解决方案二: 第14行 应为printf 解决方案三: 你的那个所谓的山寨编译器,也不知道有没有windows.h,估计没有. 建议你使用VC++ 解决方案四: 这本书其实我也看过,作者自己做了一个所谓的开发环境,其实用的是GNU C++,它并不包含windows的api函数的头和库. 解决方案五: 出错信息呢,贴出来呗 解决方案六: 你第14行的 printf 写错了 解决方案七: 第14行的printf

html5-急求教!请JS或H5高手帮忙看个代码,代码中哪段是控制(图片)最大播放数量的?

问题描述 急求教!请JS或H5高手帮忙看个代码,代码中哪段是控制(图片)最大播放数量的? 我是新手,看不太明白,求教... 目前的代码是有10张图片顺序播放,但是我希望只播放3张,也就是最大播放数量控制在3以内. 非常感谢!!! (function(){ var now = { row:1, col:1 }, last = { row:0, col:0}; const towards = { up:1, right:2, down:3, left:4}; var isAnimating = fa

请高人解读这段js代码

问题描述 请高人解读这段js代码 function shake(ele,cls,times){ var i = 0,t= false ,o =ele.attr("class")+" ",c ="",times=times||2; if(t) return; t= setInterval(function(){ i++;c = i%2 ? o+cls : o; ele.attr("class",c); if(i==2*times

请提供一个免费的VB.NET代码转C#代码的软件。谢谢大家。

问题描述 请提供一个免费的VB.NET代码转C#代码的软件.谢谢大家. 解决方案 解决方案二:.NetReflector啊.地球人都知道解决方案三:引用1楼Tiger_Zhao的回复: .NetReflector啊.地球人都知道 非常感谢,不过你说的太夸张,不可能地球人都知道,就地下这块地,估计非洲还有很多人不知道是圆的,更别说这个.NetReflector.解决方案四:当然是修辞手法咯.不过不知道.NetReflector的,还好意思说自己是做.Net开发的?解决方案五:还有个软件好像也不错解

循环-vb.net操作word最后一步求解

问题描述 vb.net操作word最后一步求解 If e.KeyCode = Keys.Enter Then Dim q As Integer = InputBox("请输入搜索页码的次数") If q > 0 Then Static Dim p(q) As String Dim j As Integer For j = 0 To q - 1 p(j) = InputBox("请输入关键字") Next Dim temp If p(j) = p(q) Then

用VB将ASP代码封装成DLL

封装|封装 摘 要 主要介绍用VB将ASP代码封装成DLL以保护 ASP代码和加快ASP代码的执行速度.节省服务器的资源关键词 ASP,DLL,编程一.引言Server端的脚本运行环境,它简单易用,不需要编译和连接,脚本可以在 Server端直接运行,并且它支持多用户.多线程,在 Web开发中得到了广泛的应用.服务器端的组件有别于客户端的组件.客户端的组件是通过网络传输,依靠HTML来起作用,而且只能在IE上有用.但是服务器端的组件是运行在服务器端,它在服务器上执行各种操作.因此,所有的浏览器都