Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Option Explicit Sub CreateAutoMarkFile() Dim fld As Field Dim strText As String Dim rw As Row Dim tbl As Table Dim bFound As Boolean Dim doc As Word.Document Dim DocA As Document Set DocA = ActiveDocument Set doc = Documents.Add Set tbl = doc.Tables.Add(doc.Range, 1, 2) For Each fld In DocA.Fields If fld.Type = wdFieldIndexEntry Then strText = GetIndexText(fld) bFound = False For Each rw In tbl.Rows If GetCellText(rw.Cells(1)) = strText Then bFound = True Exit For End If Next rw If Not bFound Then If Len(tbl.Rows.Last.Range) = 6 Then Set rw = tbl.Rows.Last Else Set rw = tbl.Rows.Add End If rw.Cells(1).Range.Text = strText rw.Cells(2).Range.Text = strText End If End If Next fld End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Prevent user closing word document opened with VB6||6||84|
|find a specific style and pass it to a access table||4||53|
|Word and Excel 2013 - Disabled Items List||3||111|
|Word 2016 - Automatic image caption numbering||3||29|