A macro to add, delete, and find hidden and non-hidden bookmarks in Word

Method 1: Code to Strip All Bookmarks from a Document
Sub StripAllBookmarks()
Dim stBookmark As Bookmark
ActiveDocument.Bookmarks.ShowHidden = True
If ActiveDocument.Bookmarks.Count >= 1 Then
For Each stBookmark In ActiveDocument.Bookmarks
stBookmark.Delete
Next stBookmark
End If
End Sub


Method 2: Code to Strip Only Hidden Bookmarks from a Document

Sub StripHiddenBookmarks()
Dim stBookmark As Bookmark
ActiveDocument.Bookmarks.ShowHidden = True
If ActiveDocument.Bookmarks.Count >= 1 Then
For Each stBookmark In ActiveDocument.Bookmarks
If Left(stBookmark, 1) = "_" Then
stBookmark.Delete
End If
Next stBookmark
End If
End Sub



Method 3: Code to Add a Hidden Bookmark
The following code adds a bookmark named "_HiddenBookmark1" to a document at the location of the insertion point or selection.

Sub AddHiddenBookmark
ActiveDocument.Bookmarks.Add Name:="_HiddenBookmark1"
End Sub

Find all tables that contain a certain column

SELECT c.TABLE_NAME,TABLE_TYPE,COLUMN_NAME,ORDINAL_POSITION,IS_NULLABLE,
DATA_TYPE,NUMERIC_PRECISION FROM INFORMATION_SCHEMA.COLUMNS c
JOIN INFORMATION_SCHEMA.TABLES t ON c.TABLE_NAME = t.TABLE_NAME WHERE COLUMN_NAME ='columnname' ORDER BY TABLE_TYPE ,c.TABLE_NAME