EXCEL VBA和WORD VBA有什么区别?
原则上是一样的语法但是调用的类不一样,即Application,例如你调用Application那么在word里就是word的类,在Excel是excel的类。
只是名字一样而已。
比如在word的VBA里,你没有办法找到Application.ActiveSheet,因为这是excel里面的功能!
word 如何进入VBA
第一步:打开word,如果功能区有开发工具选项,跳到步骤四,如果没有,继续第二步:打开【文件】选项,点选【选项】第三步:选择“自定义功能区”中点选“开发工具”,然后点击确定第四步:点击菜单栏的【开发工具】,点击“Visual Basic”选项,完成。
关于Word中 的VBA 编程
解决你的“顺便问下".....Sub Macro1()Dim strText As StringstrText = "建立反对撒客里空的龙卷风"Selection.TypeText strTextSelection.MoveStart Unit:=wdLine, Count:=-1Selection.MoveEnd Unit:=wdCharacter, Count:=-1 * (Len(Selection.Text) - 4)Selection.MoveStart Unit:=wdCharacter, Count:=3Selection.Font.Bold = TrueMsgBox Selection.TextEnd Sub
word vba 如何选取整页??
Sub 批量操作WORD() Dim path As String Dim FileName As String Dim worddoc As Document Dim MyDir As String MyDir = "G:\360data\重要数据\桌面\新建文件夹 (2)" '文件夹路径根据需要自己修改,需要处理的文件都放该文件夹内 FileName = Dir(MyDir & "\*.doc*", vbNormal) Do Until FileName = "" If FileName ThisDocument.Name Then Set worddoc = Documents.Open(MyDir & "\" & FileName) worddoc.Activate Call 处理WORD '调用宏,换成你自己宏的名字 worddoc.Close True FileName = Dir() End If LoopSet worddoc = NothingEnd Sub'======================下面的宏换成你自己的宏=================================Sub 处理WORD() ActiveDocument.Paragraphs(1).Range.Select Selection.Font.Size = 72End Sub
求教用java 生成word!!!
1-apache的POI,此方法对Excel的导出做的很好,目前对Word的导出方面的功能尚未完全。
2-纯JavaScript脚本实现。
主要通过客户端调用本机Office组件来实现。
3-在JSP页面引入头文件实现。
纯JavaScript脚本实现细节方面大体是创建一个word组件ActiveXObject('Word.Application'),用js通过表ID取得表内容然后保存到word,要注意的是js实现有很多不好的地方,例如Internet选项需要把ActiveX空间全部启用,安全级别设置为中。
这样的话岂不是每台机器都要配置一下。
其次每次生成word文档以后弹出对话框(无法保存此文件,因为它已在别处打开(C:\...\STARTUP\Powerword.dot)),出现此问题就需要把C:\Documents and Settings\当前用户名\Application Data\Microsoft\Word\STARTUP下的Powerword.dot文件删除,每次遇到此问题就需要删除文件来解决,十分不方便。
JSP页面引入来实现Word保存就方便多了,但是也有不足的地方,首先如果需要引入如果需要下载的话就引入<%@ page contentType="application/msword; charset=utf-8" %>其实如果大家用框架做就方便多了,比如Struts2。
在Action里直接写如下代码:if(out!=null){String fileName="";fileName+="评价报告.doc";try {HttpServletResponse response = ServletActionContext.getResponse();response.setHeader("Content-disposition","attachment; filename="+new String(fileName.getBytes("GB2312"), "8859_1"));} catch (UnsupportedEncodingException e) {e.printStackTrace();}out是jsp页面表单元素,一个button,用于提交表单到相应Action进行Word下载。
Action设置jsp页面头文件。
这样每次点击button就可以把相应jsp页面的内容保存到Word中并且支持下载,Word中内容并且是可编辑状态。
不足的地方在于由于表内容是动态生成,有的需要先查看在下载Word,就需要另外建立一个新JSP页面进行Word下载,当然首先要在struts.xml里配置好页面转向。
新建立的页面传值同查看页面要保持一样。
如何解决Word 需要VBA 宏语言支持来完成此操作
方法1当我们打开Word时,会弹出“Microsoft Office Word 需要 VBA 宏语言支持来完成此操作。
”这项功能目前尚未安装,是否现在安装?点击是又安装不了,证明此方法行不通,那么就点击否。
2然后弹出“此文档有宏,该应用程序的宏语言支持功能被取消。
功能要求的VBA不可用,是否以只读方式打开该文档?直接点击取消。
3然后点击菜单栏的工具按钮,再选择“宏”,然后选择“安全性”。
4在弹出的安全项中,选择非常高。
只允许运行安装在受信任位置的宏。
所有其他签署的和未经签署的宏都将被禁用。
5然后点击可靠发行商,将颁发对象中有的宏全部选择,然后点击删除,要全部删除掉,然后去掉信任所有安装的加载项和模板及信任对于“Visual Basic项目”的访问前面的勾,两个复选框都不要勾选,然后点击确定返回打开Word就可以了。
excel vba 启动word 宏
我是使用OFFICE 2003来做的,不知道你那好使不好使Private Sub CommandButton2_Click()'防止重复打开同一Word文档导致错误If Not WordDocIsOpen("F:\总工月报表.doc") Then'创建Word对象Set objWordApp = CreateObject("Word.Application")objWordApp.Visible = True'打开指定文档Set objDocument = objWordApp.Documents.Open("F:\总工月报表.doc")'获取当前Excel的SHEET1的单元格C2数据strName = ThisWorkbook.Sheets(1).Cells(2, 3).Value'将取得得值设定到Word表格的1行2列中objDocument.Tables(1).Cell(1, 2).Range.Text = strNameEnd IfEnd Sub'判断Word文档是否被重复打开Function WordDocIsOpen(ByVal strDocName As String) As BooleanDim objWordApp As ObjectDim objWordDoc As ObjectWordDocIsOpen = FalseSet objWordApp = NothingOn Error Resume NextstrDocName = UCase(strDocName)'判断是否有Word程序被打开Set objWordApp = GetObject(, "Word.Application")If Not objWordApp Is Nothing Then'判断指定Word文件是否被打开For Each objWordDoc In objWordApp.DocumentsIf UCase(objWordDoc.FullName) = strDocName ThenWordDocIsOpen = TrueExit ForEnd IfNextEnd IfSet objWordDoc = NothingSet objWordApp = NothingEnd Function
word VBA中可否同时选中相同颜色的字和word VBA剪贴板程序
问题太多,还一分没有。
我有个小程序,自动将WINDOWS剪切板的内容读入WORD文件。
你自己看看。
Public TempStrSub BeginCB()MsgBox "只能选择纯文字!!!", vbInformation, "开始"With Selection.EndKey unit:=wdStory.TypeText Text:=Chr(13) & Chr(13).InsertDateTime DateTimeFormat:="yyyy-MM-dd", InsertAsField:=False, _DateLanguage:=wdSimplifiedChinese, CalendarType:=wdCalendarWestern, _InsertAsFullWidth:=False.MoveLeft unit:=wdCharacter, Count:=10, Extend:=wdExtend.Copy.EndKey unit:=wdStory.TypeText Text:=Chr(13)End WithTempStr = Format(Now(), "yyyy-mm-dd")Call FirOpenEnd SubFunction FirOpen()Application.OnTime Now + TimeValue("00:00:01"), "CBText"End FunctionSub CBText()Dim MyData As DataObjectSet MyData = New DataObjectMyData.GetFromClipboardgetcbtext = MyData.GetText(1)If getcbtext <> TempStr ThenSelection.TypeText Text:=getcbtext & Chr(13) & Chr(13)TempStr = getcbtextEnd IfCall FirOpenEnd Sub
转载请注明出处51数据库 » java word vba