Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.