怎么在excel 里用vba新建word文档并写入文字,表格,图片
Dim Worddocument As Word.ApplicationSet Worddocument = CreateObject("word.application")With Worddocument.Documents.Add '打开一份文档.Visible = True '汇话状态打开end with以上打开一个新的word文档
怎样在EXCEL的VBA中打开一个WORD文件?
展开全部 '首先要在vba中引用Microsoft Word 11.0 Object LibraryDim Wdapp As Word.ApplicationDim WdDocument As Word.DocumentDim UserFile As StringPrivate Sub CommandButton1_Click() Set Wdapp = New Word.Application UserFile = Wdapp.Path & "\1.doc" Set WdDocument = Wdapp.Documents.Open("c:\1.doc") Wdapp.Visible = TrueEnd Sub...
VBA修改word文档
开启模糊查询即可,再判断一下查找的长度Sub 分章()Set myrange = ActiveDocument.ContentFor n = 1 To 8myrange.Find.Execute findtext:="第*章", Forward:=True, MatchWildcards:=TrueIf myrange.End - myrange.Start < 20 Thenmyrange.Style = ActiveDocument.Styles("标题 2")End IfNextEnd Sub测试运行了下,效果有点不好,修改一下Sub 分章()Set myrange = ActiveDocument.ContentFor n = 1 To 8myrange.Find.Execute findtext:="第*章", Forward:=True, MatchWildcards:=TrueIf myrange.End - myrange.Start < 20 Thenmyrange.Style = ActiveDocument.Styles("标题 2")Elsemyrange.Start = myrange.Start + 1End IfNextEnd Sub
Vba创建文件
以word2007为例,方法如下:1、点击图片,另存为“筛选过的网页”。
2、打开存放的文件夹,就多了一个网页文件夹。
3、打开网页文件夹,看看刚才存放的图片,其格式就是jpg。
EXCEL VBA 获取文件夹及子文件夹下所有文件并建立超链接
展开全部 还没有解决吗?那我就来试一下。
(1)首先,楼主先新建一个excel,名称楼主自己写,怎样都行,然后将其打开。
(2)打开后按住Alt再按F11,这样就会打开vba代码编辑器 (3)点菜单栏上的“插入”,选择“模块”,这样在左下角就会出现一个“模块1” (4)双击“模块1”,右边就会出现“模块1”的编辑界面,将以下代码复制,并粘贴到这个界面中,按F5运行。
Sub 遍历文件夹()'Columns(1).Delete On Error Resume NextDim f As StringDim file() As StringDim i, k, xx = 1i = 1: k = 1ReDim file(1 To i)file(1) = InputBox("请输入要查找的文件夹:") & "\"Do Until i > k f = Dir(file(i), vbDirectory) Do Until f = "" If InStr(f, ".") = 0 Then k = k + 1 ReDim Preserve file(1 To k) file(k) = file(i) & f & "\" End If f = Dir Loop i = i + 1LoopFor i = 1 To k f = Dir(file(i) & "*.*") Do Until f = "" 'Range("a" & x) = f Range("a" & x).Hyperlinks.Add Anchor:=Range("a" & x), Address:= _ file(i) & f, TextToDisplay:=f x = x + 1 f = Dir LoopNextEnd Sub(5)在出现的对话框中,将你要查找的文件的地址复制到对话框中,按确定,就完成了。
注:这里用的是excel2007版,如果楼主用的是其他版本,有可能存在代码不兼容问题。
图1.打开vba编辑器。
图2.运行代码。
图3.结果。
...
excel VBA用何种代码实现调用word中的内容?具体是如何打开word文...
只要定义一个Word.Application对象,Set WordApp = CreateObject("Word.Application")然后操作这个WordApp 对象就可以了,就像在Word中使用VBA一样,打开文件用 WordApp.Documents.Open 文件路径定位主要用 WordApp.Selection.Move系列指令,也可以用WordApp.Selection.Goto 具体的你可以用录制宏的方法在Word中看看用什么代码合适。
excel中如何通过VBA打开word文件和ppt文件?
展开全部 一、打开word文件代码:Set wo = CreateObject("Word.Application")wo.Documents.Open ThisWorkbook.Path & "\流程.doc"wo.Visible = True二、打开ppt文件代码:方法1:Set wo = CreateObject("Powerpoint.Application")wo.Visible = Truewo.Presentations.Open ThisWorkbook.Path & filename方法2:Sub dd()Dim filepath$, filename$filepath = Chr(34) & ThisWorkbook.Path & filename & Chr(34)Shell "POWERPNT.EXE " & filepathEnd Sub附:双击打开PPS文件,在演示完后退出PPS时并没有PowerPoint主窗口保留,但在Excel中使用VBA打开的PPS文件,在演示完PPS退出后,PowerPoint主窗口仍然打开。
这里使用一个循环判断演示窗口是否存在,加上错误捕捉程序来处理上面这个问题。
PrivateSub CommandButton1_Click()Dim wo AsObject Dim app AsObject' 创建PowerPoint应用实例Set app = CreateObject("Powerpoint.Application")' 使PowerPoint可见app.Visible = True ' 打开PPS文件Set wo = app.Presentations.Open(ThisWorkbook.Path & "\a.pps")' 当PPS演示结束时,wo对象的SlideShowWindow不存在,捕捉到错误OnErrorGoTo errHandle' PPS演示时全屏...
怎么vba自动新建带宏文件
假设指定路径是“D:\”,指定文件夹名称为“NEWFOLDER”,指定文件名是“MYBOOK.XLS” 主要VBA语句如下: myfld="D:\NEWFOLDER\" mybuk="MYBOOK.XLS" fName=myfld+mybuk Set s = CreateObject("Scripting.FileSystemObject") On Error GoTo e1 s.CreateFolder (myfld) Workbooks.Add (xlWBATWorksheet) ActiveWorkbook.SaveAs Filename:=fName On Error GoTo 0 ActiveWorkbook.Close False Set s = Nothing Exit Sub e1: MsgBox "文件夹或文件[" + fName + "]已存在或创建错误!!!" Resume Next
转载请注明出处51数据库 » vba 创建word文件