Member of collection doesn't exist for a bookmark

ZenPanda · Jul 6th 2021

Good morning

In creating a report I use bookmarks to add string data from the loop in my code:

The first bookmark below the first sub heading isn't being found in the collection

I'm getting this error

at

I am a trainee and have tried everything I can possibly think of. Can anyone assist please?

I look forward to hearing from you. Many thanks.

Code

Dim strDocName As String
Dim strReport1, strReport2 As String
Dim i As Integer
Dim docReport As Document
Dim rngReport As Range
Dim bmk As Bookmarks


Set docReport = Documents.Add
Set rngReport = docReport.Range


'  rngReport.Text = "MACRO USAGE" & vbCr
With rngReport
.Text = "MACRO USAGE" & vbCr
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.EndKey
Selection.MoveEnd Unit:=wdLine, Count:=2
End With
rngReport.Collapse direction:=wdCollapseEnd
Selection.EndKey


'  rngReport.Text = vbCr & "Documents with 50+ fields" & vbCr
With rngReport
.Text = vbCr & "Documents with 50+ fields" & vbCr
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphLeft
End With
Selection.EndKey
rngReport.Collapse direction:=wdCollapseEnd


rngReport.Bookmarks.Add ("bmkReport1")
rngReport.Collapse direction:=wdCollapseEnd


'  rngReport.Text = vbCr & "Documents with less than 50 fields" & vbCr
With rngReport
.Text = vbCr & "Documents with less than 50 fields" & vbCr
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Collapse direction:=wdCollapseEnd
Selection.EndKey
End With
rngReport.Collapse direction:=wdCollapseEnd


rngReport.Bookmarks.Add ("bmkReport2")
rngReport.Collapse direction:=wdCollapseEnd


For i = 1 To Documents.Count
strDocName = Documents(i).Name


'If a Document has 50 fields or more in it then the client would
'like the macro to automatically update all the fields in the
'document.
If Documents(i).Fields.Count >= 50 Then
strReport1 = "> 50 " & strDocName & vbCr
Documents(i).Fields.Update
'      rngReport.Bookmarks("bmkReport1").Range.Text = strReport1
With rngReport.Bookmarks("bmkReport1").Range
'    .Bookmarks.Add ("strReport1")
.Select
.Text = strReport1
.Font.Bold = False
.Paragraphs.Alignment = wdAlignParagraphLeft
End With
Else
If i < 20 Then
'only the first 20 fields are updated, any other's should be ignored.
strReport2 = "< 20 " & strDocName & vbCr
Documents(i).Fields.Update
'        rngReport.Bookmarks("bmkReport2").Range.Text = strReport2
With rngReport.Bookmarks("bmkReport2").Range
.Select
.Text = strReport2
.Font.Bold = False
.ParagraphFormat.Alignment = wdAlignParagraphLeft
End With
End If
End If
Next i

Display More

**royUK** · Jul 6th 2021

It would probably help if you attached a sample of the workbook

**rory** · Jul 6th 2021

And the word document, ideally.

**royUK** · Jul 6th 2021

Usually asking for workbooks.

ZenPanda · Jul 6th 2021

Document attached though it has no relevance to the code

ZenPanda · Jul 6th 2021

This is where the code is located

**rory** · Jul 6th 2021

I meant the document with the bookmarks.

ZenPanda · Jul 6th 2021

The code adds the bookmarks

ZenPanda · Jul 6th 2021

Sorry, I should explain that the document provides the exercise I've to complete; I had to create the code from scratch which:=

creates a document

adds a heading plus 2 sub headings

adds a bookmark below each sub heading

then the code looks at any documents you have open and counts how many fields are in those documents

ZenPanda · Jul 6th 2021

the names of the open documents then look to the bookmarks to be listed

**rory** · Jul 6th 2021

I don't know why but it has to do with collapsing rngReport before you add the second bookmark. You can still refer to activedocument.bookmarks("bmkReport1").Range but that bookmark is no longer part of rngReport.

ZenPanda · Jul 6th 2021

That's what I've been finding too Rory. It's been so frustrating because the bookmark is definitely there (Insert/Bookmarks and then GoTo the bookmark works). I'll try collapsing after adding the bookmark.

Cheers

ZenPanda · Jul 6th 2021

Yeah, that still doesn't work

**rory** · Jul 6th 2021

The bookmark is there, but it's not part of rngReport. If you check the start of rngReport you'll see it starts at the second bookmark, not at the start of the document.

ZenPanda · Jul 6th 2021

Thank you Rory, I got it to work using ActiveDocument as you suggested. I truly appreciate you not giving me the answer because it's good for me to figure it out with a nudge in the right direction. You're a star!!

Cheers

Debra

Code

Dim docReport As Document
Dim rngReport As Range
Dim strDocName As String
Dim strReport1, strReport2 As String
Dim i As Integer

Set docReport = Documents.Add
Set rngReport = docReport.Range

With rngReport
.Text = "MACRO USAGE" & vbCr
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.EndKey
Selection.MoveEnd Unit:=wdLine, Count:=2
.Collapse direction:=wdCollapseEnd
End With
Selection.EndKey

With rngReport
.Text = vbCr & "Documents with 50+ fields" & vbCr
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Collapse direction:=wdCollapseEnd
.Bookmarks.Add ("bmkReport1")
End With

With rngReport
.Text = vbCr & "Documents with less than 50 fields" & vbCr
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphLeft
.Collapse direction:=wdCollapseEnd
.Bookmarks.Add ("bmkReport2")
End With

For i = 1 To Documents.Count
strDocName = Documents(i).Name

'If a Document has 50 fields or more in it then the client would
'like the macro to automatically update all the fields in the
'document.
If Documents(i).Fields.Count >= 50 Then
strReport1 = "> 50 " & strDocName & vbCr
With ActiveDocument.Bookmarks("bmkReport1").Range
.Select
.Text = strReport1
.Font.Bold = False
.Paragraphs.Alignment = wdAlignParagraphLeft
End With
Else
If i < 20 Then
'only the first 20 fields are updated, any other's should be ignored.
strReport2 = "< 20 " & strDocName & vbCr
Documents(i).Fields.Update
With rngReport.Bookmarks("bmkReport2").Range
.Select
.Text = strReport2
.Font.Bold = False
.ParagraphFormat.Alignment = wdAlignParagraphLeft
End With
End If
End If
Next i

Display More

Member of collection doesn't exist for a bookmark

Participate now!

Share

Tags