Word Document Recovery Archive

In this post, we are glad to show you 3 effective methods to batch remove the fill color of multiple shapes in your Word document.

While inserting shapes into a Word document, you may apply fill color to them as well. It’s easy to add or remove the fill color of a single shape. But when it comes to batch processing, we will need some trick.

This time, we want to show you how to batch remove the fill color of multiple shapes in document. So you can refill them with desired colors or just leave shapes in blank background. Following are 3 methods that can help you in different cases.Batch Remove the Fill Color of Multiple Shapes in Your Word Document

Method 1: Remove the Fill Color of Multiple Shapes on a Page

  1. First of all, click “Home” tab in the Ribbon.
  2. Then click the “Select” command in “Editing” group.
  3. On the drop-down menu, choose “Selection Pane”.Click "Home"->Click "Select"->Click "Selection Pane"
  4. Now on the “Selection and Visibility” pane, you can see all the name of shapes on this page. Press “Ctrl” to select the shapes you need.
  5. Then click “Format” in the Ribbon.
  6. Next click “Shape Fill”.
  7. Choose “No Fill” on the drop-down menu.Select Shapes->Click "Format"->Click "Shape Fill"->Choose "No Fill"

Method 2: Batch Remove the Fill Color of All Shapes in a Document

  1. First and foremost, if the “Developer” tab is available, click on it and then click the “Visual Basic” to open the VBA editor. If the “Developer” hasn’t been activated, press “Alt+ F11” instead.
  2. Now in the editor, click the “Normal” project on the left side.
  3. Then click “Insert” on the menu bar.
  4. Next choose “Module” on the drop-down menu.Click "Normal"->Click "Insert"->Click "Module"
  5. Double click on new module to open it and paste these codes there:
Sub RemoveAllShapeFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    objShape.Fill.Visible = False
    objShape.Line.Visible = msoTrue
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub
  1. Lastly, click “Run” button or press “F5” to execute codes.Paste Macro->Click "Run"

Method 3: Remove the Fill Color of All Text Boxes in a Document

Text boxes belong to the shape category. In case you want to remove the fill color of all text boxes but keep that of other shapes, you can utilize this way.

  1. Firstly, repeat steps in method 2 to install and run a macro.
  2. And this time, replace that macro with this one:
Sub RemoveTextBoxFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Fill.Visible = msoFalse
      objShape.Line.Visible = msoTrue
    Else
      Exit For
    End If
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Here is the outcome:Remove the Fill Color of All Text Boxes

Quickly Recover Damaged Documents

If you ever run into document corruption, don’t panic. Keep in mind that most documents are recoverable. What you should do is seize time and get a doc fix tool. Nowadays, such a utility can be a great help in retrieving your data back.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including xls fix and pdf repair software products. For more information visit www.datanumen.com

In this article, we would like to exhibit you 3 quick ways to remove hyperlinks from pictures in your Word document.

Sometimes, when copy a picture online, we find it embedded with a hyperlink. And in a Word document, accidentally clicking on the picture may lead you to the net address of the picture. This is not only irritating but messes up the visual effect of your document, such as below:Picture with a Hyperlink

Therefore, we choose to remove hyperlinks from pictures to avoid such unexpected page jump. Here we go.Remove Hyperlinks from Pictures in Your Word Document

Method 1: Remove Hyperlink from one Picture

  1. Firstly, right click on a picture.
  2. Then on the contextual menu, choose “Remove Hyperlink”.Right Click on a Picture->Choose "Remove Hyperlink"

Method 2: Batch Remove Hyperlinks from All Pictures in a Document

There is the way to remove all hyperlinks from a document. First you press “Ctrl+ A” to select all contents. Then you press “Ctrl+ Shift+ F9” to kill all hyperlinks. For your information, this way clears all hyperlinks both on pictures and texts. Yet, our aim is to remove hyperlinks from pictures only. So we will have to utilize a macro to finish the job.

  1. First of all, press “Alt+ F11” to trigger the VBA editor in Word.
  2. Then in the editor, click on “Normal” project.
  3. Next on the menu bar, click “Insert”.
  4. And choose “Module” on the drop-down menu.Click "Normal"->Click "Insert"->Click "Module"
  5. Now double click on the module to open its coding area on the right and paste the following macro there:
Sub RemoveAllHyperlinksFromPicturesInOneDocument()
  Dim objInlinePicture As InlineShape
  Dim objPicture As Shape
 
  If ActiveDocument.InlineShapes.Count > 0 Then 
    For Each objInlinePicture In ActiveDocument.InlineShapes
      objInlinePicture.Select
 
      While Selection.Hyperlinks.Count > 0
        Selection.Hyperlinks(1).Delete
      Wend 
    Next
  End If

  If ActiveDocument.Shapes.Count > 0 Then 
    For Each objPicture In ActiveDocument.Shapes 
      objPicture.Select
 
      While Selection.Hyperlinks.Count > 0
        Selection.Hyperlinks(1).Delete
      Wend 
    Next 
  End If
End Sub
  1. Last but not the least, click “Run” on menu bar to execute codes.Paste Macro->Click "Run"

Method 3: Batch Remove Hyperlinks from Pictures in Multiple Documents

  1. Before all, arrange all target documents in one folder.
  2. Then repeat steps in method 2 to install and run the following macro:
Sub RemoveAllHyperlinksFromPicturesInMultipleDocuments()
  Dim objInlinePicture As InlineShape
  Dim objPicture As Shape
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog

  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox ("No Folder is selected!")
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
 
    If ActiveDocument.InlineShapes.Count > 0 Then
      For Each objInlinePicture In ActiveDocument.InlineShapes
        objInlinePicture.Select 
        While Selection.Hyperlinks.Count > 0
          Selection.Hyperlinks(1).Delete
        Wend
      Next
    End If

    If ActiveDocument.Shapes.Count > 0 Then
      For Each objPicture In ActiveDocument.Shapes
        objPicture.Select 
        While Selection.Hyperlinks.Count > 0
          Selection.Hyperlinks(1).Delete
        Wend
      Next
    End If

    objDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    objDoc.Save
    strFile = Dir()
  Wend
End Sub
  1. In the “Browse” window open, pick the folder you set in step 1 and click “OK” to move on.Choose the Folder->Click "OK"

Be Cautious about Your Operation in Word

Word is not foolproof, so any wrong operation may easily trigger the collapse or worse, resulting document corruption. While you can pay more attention to your operation skills and habits, you can also purchase a utility for doc recovery beforehand.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including recover xls and pdf repair software products. For more information visit www.datanumen.com

In this article, we are delighted to provide you with the method to clear a specific table style in your Word document.

Normally, in a document, there can be lots of document, applied with different styles. And we have explained ways to clear all table styles in one of our previous article. For detailed information, you can refer to this link: 3 Useful Methods to Batch Clear All Table Styles in Your Word Document

Now let’s see how to clear a particular table style from your Word document.Clear a Specific Table Style in Your Word Document

Method 1: Clear a Specific Table Style in One Document

  1. First of all, press “Alt+ F11” to trigger the VBA editor in Word.
  2. Then on the left column of the editor, click the “Normal” project.
  3. Next click the “Insert” on menu bar.
  4. On the drop-down menu, choose “Module”.Click "Normal"->Click "Insert"->Click "Module"
  5. Now you have inserted a module. Double click it to open its coding area and paste these codes there:
Sub ClearASpecificTableStyle()
  Dim objTable As Table
  Dim objDoc As Document
  Dim strStyleName As String
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strStyleName = InputBox("Enter the name of table style which you want to clear: ", "Specify Table Style")
 
  For Each objTable In objDoc.Tables
    If objTable.Style = strStyleName Then
      objTable.Style = "Table Normal"
      objTable.Borders.Enable = True
    End If
  Next objTable
 
  Application.ScreenUpdating = True
 
  Set objDoc = Nothing
End Sub
  1. Then either click “Run” or hit “F5” to execute codes.Paste Macro->Click "Run"
  2. Now in the “Specify Table Style” box, enter the name of the style which you want to remove from the document.
  3. And click “OK” to move on.Enter Table Style Name->Click "OK"

Here is the possible result:Clear of a Specific Table Style

Method 2: Clear a Specific Table Style in Multiple Documents

Now in case there is a batch of files to process, you can utilize the following macro.

  1. To begin with, put all target documents in one same folder.
  2. Then repeat steps in method 1 to install and run a macro.
  3. But remember to replace macro with this one:
Sub ClearASpecificTableStyleInMultiDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim StrFolder As String
  Dim strFile As String
  Dim strStyleName As String
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first."
      Exit Sub
    End If
  End With
 
  strStyleName = InputBox("Enter the name of table style which you want to clear: ", "Specify Table Style")
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      If objTable.Style = strStyleName Then
        objTable.Style = "Table Normal"
        objTable.Borders.Enable = True
      End If
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub
  1. Next, there is the “Browse” window open. Just pick the folder you keep target documents and click “OK” to move on.Choose the Folder->Click "OK"
  2. Then there is the “Specify Table Style” box. Input style name and click “OK” to proceed.

Deal with Document Errors

There is always the possibility of getting Word broken. And the most devastating thing could be losing you valuable documents. Therefore, you must seize time to get a tool to fix Word in no time once the disaster happens.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including xls recovery and pdf repair software products. For more information visit www.datanumen.com