Sub 文本粘贴1()     'ctrl+1     '用于粘贴纯文本     Selection.PasteAndFormat (wdFormatPlainText)   End Sub

Sub 文本粘贴2()      'ctrl+2      '用于粘贴从一般新闻网页中复制下来的文本，会自动去除多余的制表符和双行符。

    Selection.PasteAndFormat (wdFormatPlainText)       With Selection.Find         .Text = " "         .Replacement.Text = ""         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchByte = True         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll           With Selection.Find          .Text = "^p^p"         .Replacement.Text = "^p"         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchByte = True         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll      End Sub

Sub 重新排版()

    'strl+3     '去除图像转文字带来的多余回车符。事先须在正确的回车符后而加入“##”串。

    With Selection.Find         .Text = "^p"         .Replacement.Text = ""         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchByte = True         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll          With Selection.Find         .Text = "##"         .Replacement.Text = "^p"         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchByte = True         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute Replace:=wdReplaceAll           End Sub

图像裁切和大小调整

Sub 宏1() ' ' 宏1 宏 ' ' Dim n On Error Resume Next 'For n = 1 To ActiveDocument.InlineShapes.Count For n = 1 To 3  ActiveDocument.InlineShapes(n).PictureFormat.CropTop = 100  ActiveDocument.InlineShapes(n).PictureFormat.CropBottom = 50  ActiveDocument.InlineShapes(n).PictureFormat.CropLeft = 75  ActiveDocument.InlineShapes(n).PictureFormat.CropRight = 75  ActiveDocument.InlineShapes(n).ScaleHeight = 95  'ActiveDocument.InlineShapes(n).ScaleWidth = 95  Next n  

End Sub

A4扫描为jpg后导入word时将四个页边距均调整为0.43,再执行如下宏

Sub 宏1() Dim n On Error Resume Next For n = 1 To ActiveDocument.InlineShapes.Count  ActiveDocument.InlineShapes(n).PictureFormat.CropTop = 10  ActiveDocument.InlineShapes(n).PictureFormat.CropBottom = 10  ActiveDocument.InlineShapes(n).PictureFormat.CropLeft = 10  ActiveDocument.InlineShapes(n).PictureFormat.CropRight = 10  ActiveDocument.InlineShapes(n).ScaleHeight = 100  ActiveDocument.InlineShapes(n).ScaleWidth = 100  Next n End Sub