vba open word 修订 vba workbooks.open

发布日期：2020-08-18

用vba打开word模板并修改后保存

在EXcel的VB编辑器中插入一个模块，输入如下代码试试看。

Sub ExcelToWord() Dim WordObject As Object "声明一个对象变量，这里即将声明为Word对象 On Error Resume Next Set WordObject = CreateObject(＂Word.Application＂) "用set来创建Word对象，这里是运行Word程序，但未新建文档 WordObject.Visible = 0 "后台运行Word对象，只在任务管理器中存在WinWord.exe进程，但在任务栏上看不到word；如果为1或者True则可以看到word运行界面 WordObject.Documents.Add DocumentType:=wdNewBlankDocument "新建一word文档 "以下为获取Excel表格中的内容，准备把数据传送给Word，可以根据自己的实际需要定制代码，这里只是示例代码 Excel.Application.Sheets(1).Activate "切换当前电子表格的表1为当前激活表 Excel.Application.Sheets(1).UsedRange.Select "选中当前激活表的所有数据 Selection.Copy "将选中的区域进行复制 WordObject.Application.Activate "将后台运行的Word激活为当前窗口 WordObject.ActiveWindow.Selection.Paste "将刚才从Excel中复制进剪贴板中的内容粘贴进word中来 WordObject.Saved = True "将保存文档的Saved属性设置为True，这样后台运行的Word在保存文档时就不会弹出是否保存的对话框了，达到悄无声息的效果 WordObject.ActiveDocument.SaveAs ＂D:\temp\导出数据.doc＂ "调用saveas命令保存文档，根据实际，指定文档的保存路径和名称 WordObject.Application.Quit "退出并关闭程序文档 Set WordObject = Nothing "释放对象End Sub...

vba,word和excel相互调用

总是要有一个打开的时机的，总要有一段打开的代码，不然怎么凭空打开，怎么获取打开的文件名. 如果你想在你的宏运行前打开，你可以把调用与打开的代码放在宏运行的前面. 如：以excel打开word为例，你可以在Workbook_Open下放置你调用和打开word 的代码： Private Sub Workbook_Open() dim aaa as ...application End Sub 方法你应该比较熟悉了，就是在vbaproject下双击ThisWorkbook，然后在上边的下拉列表里选对象和事件.如果在宏中用路径打开被调用的文件，那么该文件就必须放在路径指定的位置，我不想这样。

我想放在任意位置。

放在任意位置你可以用一个打开对话框呀，如下面代码：Dim fd As FileDialog Dim Wbook As Workbook Dim rowindex As Integer Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd .Filters.Add ＂EXCEL 文件＂， ＂*.xls＂, 1 "过滤 If .Show = -1 Then rowindex = 1 For Each vrtSelectedItem In .SelectedItems Set Wbook = Workbooks.Open(vrtSelectedItem)

如何Word中用VBA打开Excel表格,读取其中的内容写入到Word

一、编制程序1.启动Word，连续点击“工具”，“宏”，“录制新宏...”，在弹出的对话框中填写宏名（此例为“作文稿纸”），选择宏要保存的位置（可以保存在模板中，也可以保存在当前文档中），如图1所示。

2.为了方便操作，可以将此宏以按钮的形式指定在工具栏中。

单击“录制宏”对话框中的“工具栏”按钮，在弹出的“自定义”对话框的右侧，选中宏命令“Normal.NewMacros.作文稿纸”，用鼠标将其拖动复制到“常用”工具栏，在其上单击右键，选择相应的命令修改名称，为其编辑一个小图标，结果如图2所示。

3.单击“录制宏”对话框中的“关闭”按钮，屏幕上将出现一个“录制宏”工具栏，单击停止按钮停止录制。

4.依次选择“工具”、“宏”、“宏…”，在对话框中选择宏名“作文稿纸”，单击“编辑”按钮，打开vba编程窗口。

录入如下代码：Sub 作文稿纸（）UserForm1.CommandButton1.Enabled = TrueUserForm1.ShowEnd Sub5.插入一个窗体UserForm1，在其中插入4个标签，4个文本框，一个按钮。

分别设置它们的相关属性，其中，“所需行数”文本框的“text”属性值设为25，“所需列数”文本框的“text”属性值设为20，“行间距”文本框的“text”属性值设为0.5，“首尾空行高度”文本框的“text”属性值设为0.4，如图3所示。

6.双击命令按钮CommandButton1，录入以下代码：Private Sub CommandButton1_Click()Dim n As Integer "定义一个变量为整数型n = 1ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=Val(TextBox1.Text) * 2 + 1, NumColumns _:=Val(TextBox2.Text), DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixedSelection.EndKey Unit:=wdRow, Extend:=TrueSelection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNoneSelection.Tables(1).Rows.HeightRule = wdRowHeightExactly"设定表格行高为固定值Selection.Tables(1).Rows.Height = CentimetersToPoints(Val(TextBox3.Text)）"设置表格行高为设置值，作为行间距Selection.Tables(1).Rows(1).Height = CentimetersToPoints(Val(TextBox4.Text)）"设置第一行行高为设置值Do While n Selection.EndKey Unit:=wdLineSelection.MoveRight Unit:=wdCharacter, Count:=2"将插入点移至下一行Selection.Tables(1).Rows(2 * n).Height = Selection.Tables(1).Columns(1).PreferredWidth"设行高等于列宽Selection.EndKey Unit:=wdRow, Extend:=TrueSelection.EndKey Unit:=wdLineSelection.MoveRight Unit:=wdCharacter, Count:=2"将插入点移至下一行Selection.EndKey Unit:=wdRow, Extend:=TrueSelection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNone"去除此行的内部框线，只余边框n = n + 1LoopSelection.Tables(1).Rows(Val(TextBox1.Text) * 2 + 1).Height = CentimetersToPoints(Val(TextBox4.Text)）"设置末行高为设置值Selection.EndKey Unit:=wdRow, Extend:=TrueSelection.Cells.Borders(wdBorderVertical).LineStyle = wdLineStyleNoneSelection.Tables(1).Rows.Alignment = wdAlignRowCenter"表格居中With Selection.Tables(1).Borders(wdBorderLeft).LineWidth = wdLineWidth150pt.Borders(wdBorderRight).LineWidth = wdLineWidth150pt.Borders(wdBorderTop).LineWidth = wdLineWidth150pt.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt"设定表格边框为粗线End WithSelection.EndKey Unit:=wdLineUnload Me End Sub

...“你正试图运行的函数包含有宏或需要宏语言支持的内容,Word需要...

office special symbol input add-in”三项取消→确定即可。

2、工具→宏->安全性→可靠发行商，转到→把“稿纸向导。

Word 2003打开word、Word选项→加载项→管理【com加载项】，选择“非常高”，不打开任何文档，将下方的选择框中的钩清空，再将宏安全性改为最高。

3：工具→宏→安全性），从进程中关闭再开启就没有了、可能是初次安装Office时共享里的VBA没安装，可以重新再安装一下VBA和信任证书。

4、Word选项→加载项→转到→把里面的5项内容都删除，然后确定→Word选项→信任中心→信任中心设置→选择 “启用所有宏”和“信任对 VBA 工程对象模型的访问”→确定，最后重新启动Word2007即可，进入菜单：工具→选项→安全性→宏安全性→安全级（或Word 20071、书法加载项；可靠发行商里的“颁发对象”都删除，复选框也都不选，确定。

如果设定后不能关闭word...

如何使用vba语句打开一个word文件.这个wo

方法1当我们打开Word时，会弹出“Microsoft Office Word 需要 VBA 宏语言支持来完成此操作。

”这项功能目前尚未安装，是否现在安装？点击是又安装不了，证明此方法行不通，那么就点击否。

2然后弹出“此文档有宏，该应用程序的宏语言支持功能被取消。

功能要求的VBA不可用，是否以只读方式打开该文档？直接点击取消。

3然后点击菜单栏的工具按钮，再选择“宏”，然后选择“安全性”。

4在弹出的安全项中，选择非常高。

只允许运行安装在受信任位置的宏。

所有其他签署的和未经签署的宏都将被禁用。

5然后点击可靠发行商，将颁发对象中有的宏全部选择，然后点击删除，要全部删除掉，然后去掉信任所有安装的加载项和模板及信任对于“Visual Basic项目”的访问前面的勾，两个复选框都不要勾选，然后点击确定返回打开Word就可以了。