Word Solutions Archive

DataNumen, a leading provider of data recovery software, announces the release of a new version of DataNumen Word Repair program. With the recent update, the tool received support for Windows 10 and Office 2016 documents.

Data loss is never expected, but when it occurs compromises are not an option. While recovery of 30% of documents is still something, this is the case when more is certainly better. DataNumen, the developer of recovery tools, announces a new update for its award-winning DataNumen Word Repair tool, arguably the best recovery software on the market.

DataNumen Word Repair offers reliable recovery for Microsoft Word documents of any version starting from Word 6.0. Such errors as “the file cannot be opened” or “the file is corrupted” are addressed automatically with the proven high success rate. Specifically, the tool recovers text, formatting, images, styles, tables and more. Batch processing helps dealing with multiple broken files at once, while the straightforward interface turns Word document repair into a trivial task.

Along with typical recovery functionality, DataNumen Word Repair features recovery of data from corrupted media or from temporary files left after the Word application crashed. Both .doc and .docx formats are supported.

The latest version DataNumen Word Repair 2.6 adds support for Windows 10 and can recover documents created in the latest Microsoft Word 2016.

Pricing and availability

DataNumen Word Repair supports the entire range of operating systems starting from Windows 95 to Windows 10, and from Windows Server 2003 to 2016. The program can repair Microsoft Word documents starting from version 6.0 to the latest 2016.

The price tag for a single license of DataNumen Word Repair is $89.95.

Links

Company website: https://www.datanumen.com/
Product page: https://www.datanumen.com/word-repair/

About the company

DataNumen is an acclaimed world leader in data recovery technologies. The company delivers backup and data recovery solutions since 2001. Also, DataNumen offers developer SDK that allows embedding their solutions to third-party software. Among clients of the company are Intel, Toyota Motor, PepsiCo, Oracle, Xerox and other large and mid-scale businesses.

Be the first to comment

In this article, we would like to offer you 2 quick ways to count the number of highlighted words in your Word document.

Count the Number of Highlighted Words in Your Word Document

From time to time, we would highlight texts in different topics with different colors. In case you want to count the total number of highlighted words, you must understand that there is no direct way in Word to do this task. But as workarounds, you can choose to pick either one of the following methods in different cases.

Method 1: Count All Highlighted Words in Different Colors

  1. First of all, press “Alt+ F11” to open the VBA editor in Word.
  2. Next click “Normal” on the left column.
  3. Then click “Insert” on the menu bar.
  4. On the drop-down menu, choose “Module”.

Insert a New Module

  1. And double click on the new module to open it.
  2. Paste the following macro there:
Sub CountAllWordsInHighlight()
    Dim objWord As Range
    Dim nHighlightedWords As Long
    Dim objDoc As Document
 
    Application.ScreenUpdating = False
    Set objDoc = ActiveDocument
 
    With Selection
         .HomeKey Unit:=wdStory
         With Selection.Find
              .Highlight = True
 
              Do While .Execute
                       nHighlightedWords = nHighlightedWords + Selection.Range.ComputeStatistics(wdStatisticWords)
                       Selection.Collapse wdCollapseEnd
              Loop
         End With
    End With
 
    MsgBox ("The total number of highlighted words is " & nHighlightedWords & " .")
 
    Application.ScreenUpdating = True
    Set objDoc = Nothing
End Sub
  1. Last but not the least, click “Run” button or hit “F5” to execute the codes.Click “Run” Button

There will be a message box showing up, such as below:

Result of Counting All Highlighted Words in Different Colors

Method 2: Count All Highlighted Words in a Specific Color

As we mentioned above, there can be several highlight colors applied to your Word document. Therefore, it’s kind of difficult to get the word count of highlighted words in a particular color. Fortunately, we could always rely on macro to do some customized task.

  1. First of all, repeat steps in method 1 to install and run a macro.
  2. Then replace with this macro:
Sub CountWordsInASpecificHighlightColor()
    Dim objDoc As Document
    Dim objWord As Object
    Dim nHighlightedWords As Long
    Dim strHighlightColor As String
 
    Application.ScreenUpdating = False
    Set objDoc = ActiveDocument
    nHighlightedWords = 0
    strHighlightColor = InputBox("Choose a Highlight colour (enter the value):" & vbNewLine & _
      vbTab & "Auto" & vbTab & vbTab & "0" & vbNewLine & _
      vbTab & "Black" & vbTab & vbTab & "1" & vbNewLine & _
      vbTab & "Blue" & vbTab & vbTab & "2" & vbNewLine & _
      vbTab & "BrightGreen" & vbTab & "4" & vbNewLine & _
      vbTab & "DarkBlue" & vbTab & vbTab & "9" & vbNewLine & _
      vbTab & "DarkRed" & vbTab & vbTab & "13" & vbNewLine & _
      vbTab & "DarkYellow" & vbTab & "14" & vbNewLine & _
      vbTab & "Gray25" & vbTab & vbTab & "16" & vbNewLine & _
      vbTab & "Gray50" & vbTab & vbTab & "15" & vbNewLine & _
      vbTab & "Green" & vbTab & vbTab & "11" & vbNewLine & _
      vbTab & "Pink" & vbTab & vbTab & "5" & vbNewLine & _
      vbTab & "Red" & vbTab & vbTab & "6" & vbNewLine & _
      vbTab & "Teal" & vbTab & vbTab & "10" & vbNewLine & _
      vbTab & "Turquoise" & vbTab & "3" & vbNewLine & _
      vbTab & "Violet" & vbTab & vbTab & "12" & vbNewLine & _
      vbTab & "White" & vbTab & vbTab & "8" & vbNewLine & _
      vbTab & "Yellow" & vbTab & vbTab & "7", "Pick Highlight Color")
 
    For Each objWord In objDoc.Words
        If objWord.HighlightColorIndex = strHighlightColor Then
           nHighlightedWords = nHighlightedWords + 1
        End If
    Next objWord
 
    MsgBox ("The number of highlighted words is " & nHighlightedWords & " .")
 
    Application.ScreenUpdating = True
    Set objDoc = Nothing
End Sub
  1. Next in “Pick Highlight Color” box, enter a color value and click “OK”. For example, here we enter “7”, representing the yellow color.Enter a Color Value & Click OK
  2. Now here is the outcome:Count Highlighted Words in Yellow

Smartly Solve the Document Corruption Issue

Now and then, you can encounter with Word damage. The worst of it is that it can lead to broken documents. While you can utilize the built-in feature in Word to recover your document, you can also resort to another clever choice that is to get a repairing tool to retrieve your data in the least time.

Author Introduction:

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

In this article, we would like to demonstrate you 5 easy ways to remove the bullets and list numbers from your Word document.

A document can contain bulleted and numbered lists. Sometimes, you may need to reformat these lists. For example, you might need to set list contents in bold, italic, or regular texts, to name just a few. Then you have to remove all the bullets and list numbers first.Remove Bullets and List Numbers from Your Word Document

Here are 5 solutions to different cases.

Method 1: Set “None” Bullets or Numbering

  1. First of all, select unwanted bulleted and numbered entries.
  2. Then click on the drop-down button on “Bullets” or “Numbering”.
  3. Click “None”.Select Entries->Click on Drop-down Button on "Bullets" or "Numbering" Command->Choose "None"

Check the result:Effect

Method 2: Set “Normal” Style for Bulleted or Numbered Entries

  1. To begin with, select unnecessary entries.
  2. Second, click “Home” tab in the Ribbon.
  3. Then click “More” button in “Styles” group.
  4. Next choose “Normal”.Select Entries->Click "Home"->Click "More" Button in "Styles" Group->Choose "Normal"
  5. Or you can press “Ctrl+ Shift+ N” in step 2 instead.

Method 3: Remove All Bullets in a Document

  1. First and foremost, press “Alt+ F11” to open VBA editor in Word.
  2. In the editor, click “Normal” project.
  3. Then click “Insert” tab and choose “Module”.Click "Normal"->Click "Insert"->Click "Module"
  4. Double click new module to bring out the editing area and paste the following macro there:
Sub RemoveAllBulletsInADoc()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub
  1. Lastly, click “Run” or hit “F5”.Paste Macro->Click "Run"

Here is the outcome:Effect of Removing All Bullets

Method 4: Remove All List Numbers in a Document

  1. First, repeat steps in method 3 to install and run a macro.
  2. Only you need this macro instead:
Sub RemoveAllListNumbersInADoc()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In objDoc.Paragraphs
    If objParagraph.Range.ListFormat.ListType = wdListSimpleNumbering Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Method 5: Remove All Bullets and List Numbers in a Document

Now in case you need to remove both bullets and list numbers, you can utilize the following macro:

Sub RemoveBulletsAndListBumbers()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In objDoc.Paragraphs
    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Or wdListSimpleNumbering Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Pick a Trustworthy Repairing Tool

Given to the fact that Word is susceptible to errors, there are many repairing tools designed to fix Word. However, you must pay enough attention while picking such a utility, especially in a time of emergency. Remember that unreliable tool can cause further damage for your data.

Author Introduction:

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