vba语句怎么打开word

1.我在word vba 环境下,怎么可以调用打开指定EXCEL文件

挺简单的。

最关键的就是让word的VBA能调用excel的VBA的函数库。具体做法如下： 1）添加函数库，让excel和word的VBA函数共享 要用VBA联合操作word和excel，首先选定是用word的VBA来操作excel还是用excel的VBA来操作word，然后调出你选定的VBA，在工具〉参照设定中把Microsoft Office15.0 Object Library和Microsoft Excel15.0 Object Library给选上。

这个十分有必要，因为word和excel的vba的一些函数并不是通用的。 2）连接excel 具体的方式如下： Sub Macro1() Dim ExcelApp As Object Dim myBook As Object Dim mysheet As Object If Tasks.Exists("Microsoft Excel") = True Then Tasks("Microsoft Excel").Close Set ExcelApp = CreateObject("Excel.Application") Set myBook = ExcelApp.Workbooks.Open("D:\Users\Administrator\Desktop\练习\2 WROD\新建文件夹\1.xls") 'excel的位置，用 'thisworkbook.path可设置为 ‘相对路径 Set mysheet = myBook.Worksheets("Sheet1") 'sheet名 With mysheet '调用数据计算部分 end with 大概就是这样一个过程。

2.vba如何判断word页眉页脚有图?

替换页眉页脚[word] Sub 替换页眉页脚（） If ActiveWindow。

View。SplitSpecial wdPaneNone Then ActiveWindow。

Panes(2)。Close With ActiveWindow。

ActivePane。View 。

Type = wdPrintView 。SeekView = Selection。

WholeStory Selection。Delete Unit:=wdCharacter, Count:=1 Selection。

TypeText Text：="这是替换后的页眉" 。SeekView = wdSeekMainDocument End With WordBasic。

ViewFooterOnly Selection。WholeStory Selection。

Delete Unit:=wdCharacter, Count:=1 Selection。TypeText Text：="这是替换后的页脚" ActiveWindow。

ActivePane。View。

SeekView = wdSeekMainDocument End Sub posted @ 2011-06-06 21:23 半点忧伤 阅读（95） 评论（1） 编辑 批量格式设置word 请参考：（请确保所需的文档在同一文件夹下） Sub 批量格式设置（） '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document ' On Error Resume Next '忽略错误 '定义一个文件夹选取对话框 Set MyDialog = Application。 FileDialog() With MyDialog 。

Filters。Clear '清除所有文件筛选器中的项目 。

Filters。Add "所有 WORD 文件"， "*。

doc", 1 '增加筛选器的项目为所有WORD文件 。 AllowMultiSelect = True '允许多项选择 If 。

Show = -1 Then '确定 Application。ScreenUpdating = False For Each vrtSelectedItem In 。

SelectedItems '在所有选取项目中循环 Set Doc = Documents。Open(FileName:=vrtSelectedItem, Visible:=False) With Doc With 。

PageSetup '进行页面设置 。 Orientation = wdOrientPortrait '页面方向为纵向 。

TopMargin = CentimetersToPoints(4。1) '上边距为4。

1cm 。BottomMargin = CentimetersToPoints(4。

1) '下边距为4。1cm 。

LeftMargin = CentimetersToPoints(3。05) '左边距为3。

05cm 。RightMargin = CentimetersToPoints(3。

05) '右边距为3。05com 。

Gutter = CentimetersToPoints(0) '装订线0cm 。HeaderDistance = CentimetersToPoints(1。

5) '页眉1。5cm 。

FooterDistance = CentimetersToPoints(1。 75) '页脚1。

75cm 。PageWidth = CentimetersToPoints(21) '纸张宽21cm 。

PageHeight = CentimetersToPoints(29。7) '纸张高29。

7cm 。SectionStart = wdSectionNewPage '节的起始位置：新建页 。

= False '不勾选“奇偶页不同” 。 = False '不勾选“首页不同” 。

VerticalAlignment = wdAlignVerticalTop '页面垂直对齐方式为“顶端对齐” 。 SuppressEndnotes = False '不隐藏尾注 。

MirrorMargins = False '不设置首页的内外边距 。BookFoldRevPrinting = False '不设置手动双面打印 。

= 1 '默认打印份数为1 。 GutterPos = wdGutterPosLeft '装订线位于左侧 。

LayoutMode = wdLayoutModeLineGrid '版式模式为“只指定行网格” End With 。Close True End With Next Application。

ScreenUpdating = True End If End With MsgBox "格式化文档操作设置完毕！"， vbInformation End Sub posted @ 2011-06-06 21:20 半点忧伤 阅读（89） 评论（0） 编辑 VBA实现批量修改Word文档的页脚内容 VBA实现批量修改Word文档的页脚内容 功能示例： 有很多个doc文档，页脚的电话变了，如原电话是4007339339，现在变成4007168339了，要实现批量替换，可使用此程序。 使用说明： 1、复制下面程序代码到VBA里后，点“工具”-“宏”-“宏”-“change”-“运行” 2、输入目录（不要输入根目录，要不速度会很慢） 3、输入要查找的内容 4、输入的替换成你要的内容 -------------------------------------------- '下面是程序代码，复制到Word的VBA里 '此子程序放在Word对象里 Option Explicit Sub change() Dim s As String Dim wb As Object Dim i As Long Dim load As String Dim find As String Dim change As String load = InputBox（"输入要修改页脚的文件夹路径，自动扫描子文件夹-------------垃圾桶丁2009-3-8"） '要变更的目录 find = InputBox（"输入要查找的页脚内容"） '查找的内容 change = InputBox（"请问要替换成什么内容？"） '替换的内容 Set wb = Application。

FileSearch With wb 。NewSearch 。

LookIn = load 。SearchSubFolders = True 。

FileName = "*。 doc" 。

FileType = If 。Execute() > 0 Then For i = 1 To 。

FoundFiles。 Count On Error Resume Next s = 。

FoundFiles(i) Call Macro1(s, find, change) Next i End If End With End Sub '此子程序放在模块里 Option Explicit Sub Macro1(s As String, find As String, change As String) Documents。 Open FileName:=s, ConfirmConversions:=False, _ ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=。

3.请问在word用VBA如何批量将不同文件中的部分内容顺序复制到一个

Sub DrawObjAndSave() DocX = False SaveDocName = "提取并保存" '保存的新文档的名字可以自己更改 SaveDoc = "C:\" & SaveDocName & ".doc" '保存的新文档的名字可以自己更改 Documents.Add DocumentType:=wdNewBlankDocument Documents.Save SaveDoc Set MyDocSave = Documents.Open(SaveDoc) Path = "C:\test\" '目标文件所在的目录，可自行修改 MyDoc = Path & Dir(Path & "*.doc") '如果还要包括docx类型的话，则为 MyDoc = Path & Dir(Path & "*.docx")DoAgain: Do While MyDoc <> Path Set MyDocOpen = Documents.Open(MyDoc) Selection.Find.ClearFormatting Do With Selection.Find .Text = "*^13" '*可以替换成特定的需要查找的目标内容的通配符表达式 .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Selection.Copy Windows(SaveDocName).Activate Selection.Paste MyDocSave.Save Loop While Selection.Find.Found MyDocOpen.Saved = True MyDocOpen.Close If Not DocX Then MyDoc = Path & Dir(Path & "*.docx") DocX = True GoTo DoAgain End If MyDocSave.Close MsgBox "处理完毕！"， vbInformation + vbOKOnly， "消息" Applicatiction.quitEnd Sub。

4.Excel WordVBA怎么执行自带菜单功能

03中可以这样做：Sub 打印出所有菜单名称（）For i = 1 To Application.CommandBars.CountSelection.InsertAfter Application.CommandBars(i).Name & Chr(13)For j = 1 To Application.CommandBars(i).Controls.CountSelection.InsertAfter vbTab & Application.CommandBars(i).Controls(j).ID & Application.CommandBars(i).Controls(j).Caption & Chr(13)NextNextEnd Sub以删除查阅为例：Sub 删查阅（）Application.CommandBars("text").Controls（"查阅（&K）。

").DeleteEnd Sub你可以试试07版的是否通用。