WORD中一次性删除所有图片

一篇Word文档中,包括有大量的图片,如果不需要这些图片了,如何一次性批量删除整个Word文档中所有图片?如果一张一张地寻找图片并按下DEL键删除实在繁琐,这时你可以试试下面两张方法帮助你一次性删除Word中所有图片。
第一种Word中一次性删除所有图片的方法:
利用“查找和替换”功能实现。在Word中,按下“Ctrl+F”键打开“查找和替换”对话框,点击“替换”标签,单击查找内容框,选择“特殊格式→图形”项,这时会在“查找内容”中自动输入“^g”,在“替换为”对话框中不输入任何内容,最后直接按下“全部替换”按钮即可彻底删除所有图片。
第二种Word中一次性删除所有图片的方法:
利用宏实现。创建一个宏,代码为:Sub 图形删除()” 图形删除Macro’ 宏在 2010-6-6 由 IT部落窝 录制’Dim nGrap As InlineShapeDim nShap As Shape
For Each nGrap In ActiveDocument.InlineShapes ‘删除图片nGrap.DeleteNext
For Each nShap In ActiveDocument.Shapes ‘删除绘图nShap.DeleteNextEnd Sub
注意:使用宏来删除所有图片的方法,一定要警惕,因为宏对文件的一切操作是不可撤消的,在不了解宏的功能之前,最好的方法是先保存文件(最好是备份一份),然后再运行宏,如果发现宏运行后的结果有误,就可以关闭文件且不保存。

EXCEL快速合并相同值

Option Explicit
Private srow As Integer
Sub T()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim i As Integer, lcol As Integer
    srow = Application.InputBox("输入处理起始行号")
    lcol = Range("IV" & srow).End(xlToLeft).Column
    For i = 1 To lcol
        Call tt(i)
    Next
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Function tt(ByVal i As Integer)
    Dim lrow As Long, s As String, j As Integer, p As Integer, q As Integer
    j = srow
    lrow = Cells(65536, i).End(xlUp).Row
    While j < lrow
        s = Cells(j, i)
        p = j
        While Cells(j + 1, i) = s
            j = j + 1
        Wend
        q = j
        If p <> q Then
            With Range(Cells(p, i), Cells(q, i))
                .Merge
                '.HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
            End With
        End If
        j = q + 1
    Wend
End Function

EXCEL取消合并且等于原合并值

方法一:

选中有合并单元格的区域,

例如:B4:B69,取消合并,然后在选中状态下\编辑\定位\定位条件\空值,确定后会在B5出现反白,输入等号后点B4,按住CTRL键回车.

 

方法二:

Sub 取消合并且等于原合并值()
    If Selection.Count = 1 Then MsgBox "请选择合并单元格再执行本工具!", 64, "友情提示": Exit Sub
    Application.ScreenUpdating = False
    On Error GoTo err
    Dim RNG As Range, val, CELL As String
    For Each RNG In Application.Intersect(Selection, ActiveSheet.UsedRange)
        If RNG.MergeCells Then
            CELL = RNG.MergeArea.Address
            val = RNG.Value
            RNG.UnMerge
            Range(CELL).Value = val
        End If
    Next
    Application.ScreenUpdating = True
    Exit Sub
err:
    MsgBox "请选择带有合并单元格的区域,但不要全选工作表!", 64, "友情提示"
End Sub