word vba怎么保存文件

vba word中如何将已选中部分另存为txt 应该怎么弄

1、打开Word文件的 VBA编辑器，快捷键 Alt+F11，右击【ThisDocument】-》【插入模块】；用VBA代码设置Word自动保存的步骤2、双击刚才插入的【模块1】，添加如下代码：Sub 自动备份（）Dim NewTimeNewTime = Now + TimeValue(“00:05:10”)Dim myPath$, myName$myPath = ActiveDocument.PathmyName = Left$(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)ChangeFileOpenDirectory myPathActiveDocument.SaveAs FileName:=myName & “_temp.doc”, ReadOnlyRecommended:=TrueActiveDocument.SaveAs FileName:=myName & “.doc”, ReadOnlyRecommended:=FalseApplication.OnTime NewTime， “自动备份”CreateObject(“Wscript.shell”).popup “备份成功，备份文件名为：” & myName & “_temp.doc”, 2， “提示！2秒后自动关闭！”End Sub用VBA代码设置Word自动保存的步骤用VBA代码设置Word自动保存的步骤3、双击【ThisDocument】并在其中添加如下代码：Private Sub Document_Open()Call 自动备份End Sub用VBA代码设置Word自动保存的步骤4、默认自动备份时间为5min，如要调整请修改【模块1】中一句代码：如图中红框所示：时间格式为：HH : mm : ss用VBA代码设置Word自动保存的步骤5、保存代码及文件，且关闭word并重新打开，重新打开点击【选项】-》【启用此内容】，如图：用VBA代码设置Word自动保存的步骤6、默认备份文件名为：【原文件名_temp,Lee.doc】且为只读，提示对话框2s后自动关闭。

备份效果显示如下：

word里如何禁止复制与另存为？vba编写或宏,或将word文档变成exe...

你在word文档里面插入以下宏：Private Sub Document_Open()If ActiveDocument.ProtectionType = wdNoProtection ThenActiveDocument.Protect _Type:=wdAllowOnlyFormFields, NoReset:=TrueEnd IfEnd Sub如果要高级一点的方法，可以参考官网：http://office.microsoft.com/zh-cn/word-help/RZ001117927.aspx

Access VBA,创建Word文件后,怎样保存为PDF格式？

这要看创建宏代码的存放位置时，指定宏放在哪里了。

若希望word文档里始终有这个宏，那么在录制或者创建这个宏时，选择放在当前文档中。

这样word文档复制到其他电脑上，也能看见VBA代码，也能执行。

2010word每个文档第一次保存的时候,会提示“以下内容无法保存在...

Option ExplicitSub a()' On Error Resume NextDim sFolderFullPath As StringDim oFiles As CollectionDim lFileIndex As LongDim sFileFullName As String, sFileName As StringDim oDoc As Word.DocumentDim lDocCount As LongConst addText = ＂text＂ & vbCrLf & ＂此份文档能够解析大型的DBX文件。

在大型的DBX文件中无法找到邮件表连接的规律，或则在认识上还存在问题，但只要按照文档阐述的方法去解析，是可以完整解析的。

＂ '添加的文本'选择文件夹With Application.FileDialog(msoFileDialogFolderPicker).AllowMultiSelect = False.Title = ＂请选择文件夹＂.ShowIf .SelectedItems.Count = 0 ThenMsgBox ＂您没有选择一个文件夹，程序将退出！＂Exit SubEnd IfsFolderFullPath = .SelectedItems.Item(1)End WithsFileName = Dir(sFolderFullPath & ＂\*.doc*＂, vbNormal)While Len(sFileName) >0sFileFullName = sFolderFullPath & ＂\＂ & sFileNameSet oDoc = Documents.Open(sFileFullName)If Not oDoc Is Nothing ThenoDoc.Content.InsertParagraphAfter '在文档最后添加一个新的段落，oDoc.Paragraphs.Last.Alignment = wdAlignParagraphLeft '左对齐oDoc.Paragraphs.Last.Range.SelectSelection.Text = addText '将心段落的文字设置为。

。

Selection.EndKey '将插入点移到文档尾部'odoc.Save '保存文档End IfsFileName = Dir '枚举下一个WendEnd Sub

求word VBA 当前文档另存为aa.docx,不修改当期文件未保存状态

展开全部很简单。

你的word版本有点过久了。

现在更新到2013 2012都可以解决或者你用F12保存。

另存为到其他文件。

比如保存到桌面。

。

然后重命名后缀 + ＂.docx＂就可以解决。

如果不行你就随便打一个字。

然后点关闭。

他就会问你是否保存。

这些都可以解决。

。

求采纳，全手打...

按大纲级别拆分word文档,保存子文档（用vba编写宏）

以word2007为例，方法如下：1、点击图片，另存为“筛选过的网页”。

2、打开存放的文件夹，就多了一个网页文件夹。

3、打开网页文件夹，看看刚才存放的图片，其格式就是jpg。