Word 2010默认保存格式为docx文档,虽然比起旧的doc格式文档有体积小等优点,不过低版本的Word却无法识别，如何才能让Word 2010将默认的保存文档格式设置为doc(此方法同样适用于Office 2007的其他组件)?

Word 2010默认保存文档格式为docx文档, 但是你可以通过以下步骤来将其设置为doc格式：

1. 打开Word 2010，在菜单栏中单击“文件”。

2. 在“文件”菜单中单击“选项”。

3. 在“选项”对话框中单击“保存”选项卡。

4. 在“保存”选项卡中，将“文件类型”下拉菜单中的默认值设置为“Word 97-2003文档 (*.doc)”。

5. 单击“确定”按钮来关闭“选项”对话框，这样Word 2010就会将默认保存文档格式设置为doc格式了。

注意：这种方法同样适用于Office 2007的其他组件。

相关问题

写一个word 多个文档合并成一个文档VBA程序，文档格式有doc docx，文档里内容有图片，表单，等

好的，这是一个比较复杂的 VBA 任务，需要用到 Word 的对象模型和一些文件操作函数。以下是一个简单的示例代码，可以将当前目录下的所有 doc 和 docx 文件合并成一个新的文档：

Sub MergeDocs()
    Dim newDoc As Document
    Dim filename As String
    Dim doc As Document
    
    ' 创建一个新文档
    Set newDoc = Documents.Add
    
    ' 遍历当前目录下的所有 doc 和 docx 文件
    filename = Dir(ThisDocument.Path & "\*.doc*")
    Do Until filename = ""
        ' 打开当前文件
        Set doc = Documents.Open(ThisDocument.Path & "\" & filename)
        
        ' 将当前文件的内容复制到新文档
        doc.Content.Copy
        newDoc.Range.Paste
        
        ' 关闭当前文件
        doc.Close False
        
        ' 继续遍历下一个文件
        filename = Dir()
    Loop
    
    ' 保存新文档
    newDoc.SaveAs ThisDocument.Path & "\merged.docx", wdFormatXMLDocument
    
    ' 关闭新文档
    newDoc.Close False
    
    ' 提示合并完成
    MsgBox "合并完成！"
End Sub

这段代码会遍历当前目录下的所有 doc 和 docx 文件，将它们的内容复制到一个新的文档中，并保存为 merged.docx 文件。你可以根据实际需要修改文件名和保存格式等参数。注意，这段代码只处理文本和图片内容，如果你的文档中还包含其他类型的内容（如表单），需要做一些额外的处理。

写一个word 多个文档合并成到此文档VBA程序，文档格式有doc docx，文档里内容有图片，表单，等

好的，这是一个比较复杂的 VBA 任务，需要用到 Word 的对象模型和一些文件操作函数。以下是一个示例代码，可以将多个文档的内容合并到当前文档中：

Sub MergeDocsToThisDoc()
    Dim doc As Document
    Dim filename As String
    
    ' 遍历当前目录下的所有 doc 和 docx 文件
    filename = Dir(ThisDocument.Path & "\*.doc*")
    Do Until filename = ""
        ' 打开当前文件
        Set doc = Documents.Open(ThisDocument.Path & "\" & filename)
        
        ' 将当前文件的内容复制到当前文档
        doc.Content.Copy
        Selection.Collapse wdCollapseEnd
        Selection.PasteAndFormat wdPasteDefault
        
        ' 关闭当前文件
        doc.Close False
        
        ' 继续遍历下一个文件
        filename = Dir()
    Loop
    
    ' 提示合并完成
    MsgBox "合并完成！"
End Sub

这段代码会遍历当前目录下的所有 doc 和 docx 文件，将它们的内容复制到当前文档的末尾，并关闭源文件。你可以根据实际需要修改文件路径和文件格式等参数。注意，如果你的文档中还包含表单等特殊内容，可能需要对代码进行一些修改。