EXCEL中VBA下修改word文件里的一个文本框内容,提示变量未定义。如何解决?

如题所述

ActiveDocument只能在WORD里面使用,如果是EXCEL中编写VBA操作WORD,需要使用 set wordapp=CreateObject("Word.Application")来开一个word进程,然后使用wordapp.ActiveDocument对文档进行操作。
温馨提示:内容为网友见解,仅供参考
无其他回答

...里的一个文本框内容,提示变量未定义。如何解决?
ActiveDocument只能在WORD里面使用,如果是EXCEL中编写VBA操作WORD,需要使用 set wordapp=CreateObject("Word.Application")来开一个word进程,然后使用wordapp.ActiveDocument对文档进行操作。

VBA中显示没有定义?
c = InputBox("擖椡廔椆岘", "侥僗僩俀")HANDAN = 0 For i = B To c strRemote_FileName1 = "AAA"FileCopy strRemote_Path1 & "\\AAA.doc", strRemote_Path1 & "\\" & strRemote_FileName1 & "(" & Sheets("BBB").Range("c" & i) & ").doc"strRemote_Path2 = strRemo...

打开word时,提示“ 子过程或函数未定义”如何解决?
一、如果制作了worddot模板的话,应该是dot模板被修改了,找到normal.dot文件删除掉应该就可以了。或者尝试进入【C:UsersSolomanAppDataRoamingMicrosoftWordSTARTUP】这个文件夹中,删掉里边的文件即可。再来重新运行word应用程序查看是否有异常。二、如果在出现这种情况是由于你从前安装的工具箱某种原因被修改...

打开word文件时,总是出现“子过程或函数未定义”,怎样解决?
一、如果制作了worddot模板的话,应该是dot模板被修改了,找到normal.dot文件删除掉应该就可以了。或者尝试进入【C:UsersSolomanAppDataRoamingMicrosoftWordSTARTUP】这个文件夹中,删掉里边的文件即可。再来重新运行word应用程序查看是否有异常。二、如果在出现这种情况是由于你从前安装的工具箱某种原因被修改...

excel提示用户定义类型未定义怎么办
   另外针对变量,Excel VBA采取了两种对待方式,一种是弱定义,即允许变量在未定义的情况下直接使用。另一种则是强定义,即变量必须得先声明后使用。如果想要在两种定义之间切换,可以使用关键字“Option Explicit”进入强定义声明。这样就不会产生“变量未定义”的错误提示啦。

excel vba 至少一个参数没有被指定值
sql + "group by 年月,科室代码,科室名称,成本项目名称,金额;"改为 sql = "select 年月,科室代码,科室名称,成本项目名称,金额 from [sheet1$]"+“ ”sql = sql + "where 科室代码 like “ ” & x & “ ”sql = sql + "group by 年月,科室代码,科室名称,成本项目名称,金额"试试 ...

Excel VBA编程中提示“对象变量或with块变量未设置?”,请解答。
通过控件工具箱插入的控件,引用形式如下:ActiveSheet.OLEObjects("TextBox" & i).Object.Text

Excel中VBA Initialize() 变量未定义?
请参考这个帖子网页链接

如何解决excel2003中编写vba宏在excel 2007中打开时出现“文档未保存...
1、一次运行注册所有dll,方法如下:开始——运行,输入cmd 回车在命令提示符下输入 for %1 in (%windir%\\system32\\*.dll) do regsvr32.exe \/s %1 这个命令你慢慢输,仔细点,输入正确的话会看到飞快地滚屏 否则……否则失败就是没这效果。回车后慢慢等(需要点时间1-2分钟) 都运行完再尝试...

别怕,ExcelVBA其实很简单一文中,关于监考表章节中,编码怎么显示用户未...
退出程序If Application.Intersect(Target, Range("B3:Q22")) Is Nothing Then Exit SubEnd IfDim rng As Range '定义一个 Rang 型变量'遍历单元格For Each rng In Range("B3:Q22") If rng.Value = Target.Vlalue Then rng.Interior.ColorIndex = 8 End If NextEnd Sub你错误的...

相似回答