Word如何按节保存

1.在Word中"选择性粘贴"后如何保存图片?

写一个宏，做成按钮自动完成 具体可以用"录制宏"先手工操作一遍，看看宏代码，把有用的代码留下来，再作适当修改。

然后再用工具栏的"自定义"功能把宏做为按钮，以后就可以自动完成了。 下面是宏代码： Sub Macro2() ' ' Macro2 Macro ' 宏在 2006-1-26 由 zhangyongsc 录制 ' Selection。

Copy Selection。PasteSpecial Link:=False, DataType:=, _ Placement:=wdFloatOverText, DisplayAsIcon:=False ActiveDocument。

Shapes("Picture 2")。Select ActiveDocument。

SaveAs FileName:=" m", FileFormat:=wdFormatHTML, _ LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _ :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ :=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False ActiveWindow。 View。

Type = wdWebView End Sub 保存后的文件还不到1k，略作修改后就可以变为通用的程序。

2.word原文档如何分段保存成新的word文档

我现在假定你使用的是Word 2007.

1、在你需要拆分的位置，插入分节符：“页面布局-分隔符-分节符-下一页”。

2、新建一个宏：“视图-宏-查看宏”，在弹出的“宏”对话框中，输入“Export”到“宏名”中，然后点击“创建”。

3、在出现的VB编辑窗口中，删除全部内容.

4、将下面代码粘贴进编辑窗口：

Sub Split()

Const strFileExtension = ".docx"

Dim oSection As Section

Dim strTargetFileName As String

For Each oSection In ActiveDocument.Sections

strTargetFileName = Replace(ActiveDocument.FullName, strFileExtension, "_" & oSection.Index & strFileExtension)

oSection.Range.ExportFragment strTargetFileName,

Next

MsgBox "完成！"

End Sub

5、鼠标在粘贴进去的几行代码里面任意位置点一下，然后按“F5”键，等待出现“完成！”对话框。

6、这时，在你这个文档所在目录下，已经按照拆分的段落生成了几个新的文档。假设你的原始文件名叫做“文档.docx”，拆分成3个段落，那么几个新文件的名字就是“文档_1.docx”-“文档_3.docx”。

如果你的Word是2003或者上面的步骤你有不清楚的地方，可以补充提问或给我发站内消息。

3.word原文档如何分段保存成新的word文档

我把我原来只适用于2007的代码修改了一下，下面这个步骤应该就可以在Word2003上将当前文档按照段落保存成多份新文档： 1、首先在Word里面打开需要分割的原始文档； 2、键入Alt+F11打开VBA编辑器； 3、选择菜单命令“插入-模块”； 4、在代码编辑区中输入如下代码： Option Explicit Sub () Const strFileExtension = ".doc" Dim oSourceDoc As Document Dim oNewDoc As Document Dim oParagraph As Paragraph Dim strTargetFileName As String Dim nIndex As Integer Set oSourceDoc = ActiveDocument nIndex = 1 For Each oParagraph In oSourceDoc.Paragraphs oParagraph.Range.Copy Set oNewDoc = Documents.Add oNewDoc.Range.Paste strTargetFileName = Replace(oSourceDoc.FullName, strFileExtension, "_" & nIndex & strFileExtension) oNewDoc.SaveAs2 strTargetFileName oNewDoc.Close nIndex = nIndex + 1 Next MsgBox "完成" End Sub 5、键入F5，运行。

检查在原文档相同目录下生成了若干个doc文件，文件名是原文件后面加_1、_2、_3等，每个doc文件对应原来的一个段落。 不知是不是楼主需要的效果？。