A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
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.
Sub ListOutlineLevel1ParaMsgBox() Dim oPara As Paragraph Dim strMsg As String Dim rTmp As range ' a temporary range Dim lTmp As Long ' sections count Dim l2Tmp As Long Set rTmp = ActiveDocument.range 'Create start of message strMsg = "Outline Level 1: " & vbCr 'Iterate through all paragraphs in active document 'If style has outline level 1, append to message For Each oPara In ActiveDocument.Paragraphs If oPara.OutlineLevel = wdOutlineLevel1 Then ' strMsg = "Outline level 1: " & vbCr With oPara.range rTmp.End = .End ' redefine the temporary range lTmp = rTmp.Sections.count ' count the sections 'Append the heading number and text to the message strMsg = strMsg & " section: " & CStr(lTmp) strMsg = strMsg & " " & .ListFormat.ListString & " " & .Text _ & " " End With End If Next oPara MsgBox strMsg, vbOKOnly, "Summary Outline Level 1" End Sub
|Way to set up standard picture size for pasting in MS Word||3||33|
|Password protect a PDF document created in Word - can it be done?||6||25|
|Does Mac Word 2016 have collapsable regions?||8||47|
|Can't read help file contents "CHM" files from Microsoft||18||22|