MS Word

These are MS Word-specific VBA tips:

AutoFilter for MS Word—this MS Word add-in provides a basic Excel-like AutoFilter capability for MS Word tables. Download this macro as an MS Word Add-In (with a toolbar icon that appears on the Table Tools-->Layout ribbon when a table is selected); for Word 2010 onwards. Note, the add-in doesn't work in Word 2007. As of v1.4, this add-in also offers exporting of a table as a CSV file (which is very useful for importing a table into Excel, where the text in the table contains multiple paragraphs). As of v1.6, this add-in emulated Excel's [Ctrl][Cursor] functionality when the cursor is in a table.
Compress empty lines—this MS Word snippet does a search and replace, exchanging two consecutive end of paragraph markers with a single end of paragraph mark; thus removing blank lines.

Sub CompressEmptyLines()
'
' CompressEmptyLines()
' This macro is a short-cut method to find and replace all occurrences of two side-by-side paragraph
' markers with a single paragraph marker.  The macro operates on whatever text is currently selected.
'
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^p^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Convert DeltaView to Tracked Changes—Upon occasion, I am sent an MS Word document showing the delta between two documents as produced by DeltaView (or Compare-Pro, one of its competitors) and I need to accept/reject the edits. To simplify that process, I use this macro to convert the document into standard MS Word tracked changes. This code is offered as a Word 2013 add-in.
Display Table Information—When processing MS Word tables using VBA, one immediately encounters situation wherein VBA utterly refuses to perform simple tasks one is easily able to perform through MS Word's menus. A common culprit in such situations is a subset of cells that have a different width than the other cells in that cell's column. To assist in diagnosis of such situations, I wrote this Table Info.dot Add-In.
Edit Exclude Lists —MS Word allows a user to specify a list of words that will always be shown as misspellings; however, Microsoft doesn't provide a simple way to specify that list. This add-in provides a way to edit those lists, on a per-language basis. [new]
Export an MS Word table as a CSV (comma separated values) file (this functionality is part of the AutoFilter add-in, above):

Sub ExportTableAsCSV()
' Export the currently selected table as a CSV file.  This macro will
' create a new file that has the same name as the current document; except
' that the extension will be .csv, and store the CSV content version of
' the table in that file.
'
    Dim numCols, numRows As Integer
    Dim i, j As Integer
    Dim cellText As String
    Dim theTable As Range
    Dim theFilename As String
    Dim aCSVRow As String
    Dim quotechar, quotedQuote As String
    Dim rngTable As Range
    
    quotechar = Chr(34)
    quotedQuote = quotechar & quotechar & quotechar
    
    theFilename = Left(ActiveDocument.FullName, _
                  InStrRev(ActiveDocument.FullName, ".") - 1) & ".csv"
    Open theFilename For Output As #1
    
    If Selection.Information(wdWithInTable) Then
        'theTable = Selection.Tables(1).Range
        ' We're in a table, so proceed.
        numCols = Selection.Tables(1).Columns.Count
        numRows = Selection.Tables(1).Rows.Count
        For i = 1 To numRows
            aCSVRow = ""
            For j = 1 To numCols
                Set rngTable = Selection.Tables(1).Cell(i, j).Range
                rngTable.MoveEnd Unit:=wdCharacter, Count:=-1
                cellText = rngTable.Text
                cellText = Replace(cellText, quotechar, quotedQuote)
                If j = 1 Then
                    aCSVRow = quotechar & cellText & quotechar
                Else
                    aCSVRow = aCSVRow & "," & quotechar & cellText & quotechar
                End If
            Next j
            Print #1, aCSVRow
        Next i
        Close #1
    End If
End Sub

ExtendShading—Often when constructing tables in MS Word, one wants to add shading to various rows of the table. Especially when a document has been circulated to various contributors as part of its construction, document formatting (including table shading) is lost. To make it easier to get a table's shading reapplied, this macro allows the user to mark up a single column and have that column's shading extended across the other columns. Download this macro as an MS Word Add-In (with a toolbar icon).
Move comments to text—When working collaboratively with MS Word documents, other contributors sometimes insert MS Word comments into the document. Since these comments are not managed by MS Word tracked-changes, it is not possible to monitor change to those comments. As a result, I always move those comments out into the text of the document (placing them inside square brackets). This MS Word Add-In finds each embedded comment and moves it into the text of the document. As well, the MS Word 2013 version will move Note to Draft comments back into MS Word comments: for Word 2003 and earlier, for MS Word 2007-2010, or for MS Word 2013 or newer (now renamed Note to Draft Manager).
Multireplace—replace a string in multiple files. This Add-In will prompt you for strings and a folder, find all of the MS Word files in that folder and its subfolders, and then open each MS Word document and perform and Find-Replace of those strings in each file. Download: for Word 2003 and earlier; or, for MS Word 2007 and later.
Remove trailing whitespace—this snippet uses search and replace to remove any whitespace from the end of each paragraph in a document.

Sub RemoveTrailingWhitespace()
'
' RemoveTrailingWhitespace()
' This macro uses find and replace to remove trailing whitespace from the end of all the
' paragraphs in a document.  The macro operates on whatever text is currently selected.
'
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^w^p"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

RemovePersonalInformation Property—In early 2013, Microsoft pushed a patch that caused MS Word to often default to setting the RemovePersonalInformation property to True. When this property is True, one of the things MS Word does is to strip editor names from any tracked changes that appear in the document. This caused one of my project teams countless hours of trouble, and so I wrote this PersInfoMgr add-in to automatically detect and rest the property when it has been set to True. The add-in also provides a button (on the Add-Ins tab of the ribbon) to both display and allow you to toggle the property's value.
Retrieve Values From MS Word Tables—VBA provides limited ability to store and retrieve values. While the registry can be used for this purpose, it is not easily accessible by naive users. The purpose of these routines is to allow a user to type values in normal MS Word tables, where those values are later retrieved and used by VBA. It is even possible to retrieve values from MS Word template files (located in the users Startup folder); allowing a relatively straightforward method for users to configure VBA distributed via a .dot file located in the Startup folder; which is what this code does.
StatusBar freeze-ups—When VBA code is making frequent and voluminous updates to an MS Word document, and the code is also posting messages to the StatusBar, the StatusBar will eventually stop updating. This page describes how to work around that problem.
VBacs (Visual Basic Emacs)—make MS Word work more like Emacs.
View Manager—In all versions of MS Word for MS Windows up to Word 2010, the user to was able to configure Word so that when a document was re-opened it displayed itself in the view mode it was in when it closed. Starting with Word 2013, Microsoft removed this capability, and each time a document is opened Word forces the document back to Print Layout view. This add-in restores the previous functionality and adds the ability to always force a view at open time. This add-in will also clear the annoying MS Word "Welcome Back" panel that Word 2016 insists upon displaying for each re-opened document. Note a key snippet of this code is thanks for Jay Freedman (http://jay-freedman.info/). New as of version 3.3 of this add-in, you are able to force the ruler to be displayed.

Other Resources

See the page that linked to this one for other VBA resources I have found helpful.