分类： Office软件

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