如何用vba代码将word文档中插入的表格对象内容复制到Excel中
展开全部 试试下面的代码,在网上找的 Sub 宏1() Dim wordapp As Object Dim mydoc Dim mypath$, myname$ Dim wdRng As Object Dim pos1%, pos2% '定义找到的字段的首位位置 Application.DisplayAlerts = False Set wordapp = CreateObject("word.application") mypath = ThisWorkbook.Path & "" myname = Dir(mypath & "*.doc*") Set mydoc = wordapp.Documents.Open(mypath & myname) Set wdRng = mydoc.Range wdRng.Find.Execute ("(一)") pos1 = wdRng.Start Set wdRng = mydoc.Range wdRng.Find.Execute ("五、") pos2 = wdRng.Start mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容 mydoc.Close False wordapp.Quit Worksheets("Sheet2").Select Range("A1").Select ActiveSheet.Paste Application.ScreenUpdating = True Application.DisplayAlerts = TrueEnd Sub...
如何在word中用vba在一个range对象的前部插入段落标记(?
(1) ActiveDocument.Range(Start:=0, End:=10) '表示当前文档前10个字符所组成的一个Range对象 (2) Set myRange = ActiveDocument.Range( _ Start:=ActiveDocument.Paragraphs(2).Range.Start, _ End:=ActiveDocument.Paragraphs(4).Range.End) '将当前文档第2段至第4段设置为一个Range对象 (3) ActiveDocument.Paragraphs(1).Range.Copy '复制当前文档中的第一段 (4) Selection.Copy Documents.Add.Content.Paste '复制所选内容到新文档中 (5) ActiveDocument.Bookmarks("Book1").Copy Name:="Book2" '将Book2书签复制Book1书签标记的位置 (6) Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=4 '将所选内容移至文档中的第4行 (7) Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext '将所选内容移至下一个表格的第1个单元格 (8) Selection.Range.AutoFormat '为所选内容套用格式 (9) ActiveDocument.Content.Font.Name = "Arial" '将当前文档的字体设置为斜体 (10) ActiveDocument.Content.Select Selection.Delete '将当前文档中的内容删除
如何在word中用vba在一个range对象的前部
试试下面的代码,在网上找的Sub 宏1()Dim wordapp As ObjectDim mydocDim mypath$, myname$Dim wdRng As ObjectDim pos1%, pos2% '定义找到的字段的首位位置Application.DisplayAlerts = FalseSet wordapp = CreateObject("word.application")mypath = ThisWorkbook.Path & ""myname = Dir(mypath & "*.doc*")Set mydoc = wordapp.Documents.Open(mypath & myname)Set wdRng = mydoc.RangewdRng.Find.Execute ("(一)")pos1 = wdRng.StartSet wdRng = mydoc.RangewdRng.Find.Execute ("五、")pos2 = wdRng.Startmydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容mydoc.Close Falsewordapp.QuitWorksheets("Sheet2").SelectRange("A1").SelectActiveSheet.PasteApplication.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub
如何在EXECEL文件下用VBA新建WORD文件,然后赋予该新建...
你是否为每一个对象定义了呢?,需要定义多个变量,两个对象哦。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)On Error Resume NextIf Target.Row = 1 And Target.Column = 1 ThenDim wd As Object, doc As Object Set wd = CreateObject("word.application") '这个word的对象为了建立doc对象用的。
Set doc = CreateObject("word.Document") '这个word的对象是为了保存用的。
Dim fileName As String, a As Stringa = Sheet1.Cells(1, 2) '这个word文件名定义为sheet1表的A2单元格。
fileName = ThisWorkbook.Path & "\" & a & ".doc"Set doc = wd.Application.Documents.Adddoc.SaveAs fileNamedoc.CloseSet doc = Nothingwd.QuitSet wd = NothingEnd IfEnd Sub这个word文件名复制为sheet1表的A2单元格。
如何在word中用vba在一个range对象的前部
展开全部 方法 1 当我们打开Word时,会弹出“Microsoft Office Word 需要 VBA 宏语言支持来完成此操作。
”这项功能目前尚未安装,是否现在安装?点击是又安装不了,证明此方法行不通,那么就点击否。
2 然后弹出“此文档有宏,该应用程序的宏语言支持功能被取消。
功能要求的VBA不可用,是否以只读方式打开该文档?直接点击取消。
3 然后点击菜单栏的工具按钮,再选择“宏”,然后选择“安全性”。
4 在弹出的安全项中,选择非常高。
只允许运行安装在受信任位置的宏。
所有其他签署的和未经签署的宏都将被禁用。
5 然后点击可靠发行商,将颁发对象中有的宏全部选择,然后点击删除,要全部删除掉,然后去掉信任所有安装的加载项和模板及信任对于“Visual Basic项目”的访问前面的勾,两个复选框都不要勾选,然后点击确定返回打开Word就可以了。
...
EXCEL VBA和WORD VBA有什么区别?
展开全部 Sub GenDocfromExcel()'excel控制word,生成新文件,插入图片和文件名,保存'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library'...Range("A1:B13").Copy '复制当前内容Dim WordApp As Word.Application '定义变量Set WordApp = CreateObject("Word.Application") '生成WORD对象WordApp.Documents.Add '新建文件WordApp.Selection.Paste '粘贴fn$ = "D:\" & Range("b1") '生成文件名WordApp.ActiveDocument.SaveAs fn$ '保存文件WordApp.Quit '退出Set WordApp = Nothing '取消变量End Sub...
...“你正试图运行的函数包含有宏或需要宏语言支持的内容,Word需要...
展开全部 Word 20071、Word选项→加载项→管理【com加载项】,转到→把“稿纸向导、书法加载项、office special symbol input add-in”三项取消→确定即可。
2、工具→宏->安全性→可靠发行商,将下方的选择框中的钩清空,再将宏安全性改为最高。
3、可能是初次安装Office时共享里的VBA没安装,可以重新再安装一下VBA和信任证书。
4、Word选项→加载项→转到→把里面的5项内容都删除,然后确定→Word选项→信任中心→信任中心设置→选择 “启用所有宏”和“信任对 VBA 工程对象模型的访问”→确定,最后重新启动Word2007即可。
Word 2003打开word,不打开任何文档,进入菜单:工具→选项→安全性→宏安全性→安全级(或:工具→宏→安全性),选择“非常高”;可靠发行商里的“颁发对象”都删除,复选框也都不选,确定。
如果设定后不能关闭word,从进程中关闭再开启就没有了。
...
转载请注明出处51数据库 » 第五章 word vba常用对象与应用案