im getting that i have an invalid use of property on the .text after Range.

VinceB1 was telling us:
VinceB1 nous racontait que :

There are indeed many confusing aspects to your code...

Sub FileSave()
  With ActiveDocument
'This statement should precede a block that uses methods/properties of
ActiveDocument, I do not see any in your code.
'And where is the "End With" statement?
'e.g.:
With ActiveDocument
   .Save
   .Close
End With

       Dim Title As String

'Why do you need to define 8 range objects?
'Are you going to manipulate the range or the text in the range?
'If you re going to manipulate the text(As it seems you are doing) you
should be declaring String variables
'Also, I do not see any of these being used in the code you posted...
       Dim Com1 As Range
       Dim Com2 As Range 'After here come 3 through 8

'You have above "With ActiveDocument", and yet you are using ActiveDocument
in this line, in particular reason?
'Above, "Title is defined as aRange, yet you are using the Text (a string)
default proiperty of the Range Property
       Title = ActiveDocument.Bookmarks("Title").Range

       Call WriteProp(sPropName:="Title", sValue:=Title) 'Reads from
Bookmark Title and writes to Title field in props

       'then i want to read all of the Com values go to the first one with
empty range and write the one before
       e.g. com2 is empty but com1 has text go to com2 see that its empty
and therefore use com1.

       For pIndex = 1 To 8
             If Len(ActiveDocument.Bookmarks(BOOKMARK_LABEL &
CStr(pIndex)).
Range) = 0 Then
             theOneweWant = pIndex - 1
           Exit For
     End If
Next

'You commented this line out.... Even if you did not commented it out, it
would not do anything
'You would have to assign the text value of the bookmark range to a
variable, or something...
'ActiveDocument.Bookmarks(BOOKMARK_LABEL & CStr(theOneweWant)).Range.text
Call WriteProp(sPropName:="Comments", sValue:=??)

So, from what I have seen and guesses, here is a potentially useful bit of
code that does what I think you want:

'_______________________________________
Sub FileSave()

Const BOOKMARK_LABEL As String = "Com"

Dim strTitle As String
Dim strBookmark As String
Dim lngIndex As Long

With ActiveDocument
   strTitle = .Bookmarks("Title").Range.Text

   Call WriteProp(sPropName:="Title", sValue:=strTitle)

   For lngIndex = 1 To 8
       If Len(.Bookmarks(BOOKMARK_LABEL & CStr(lngIndex)).Range) = 0 Then
           If lngIndex = 1 Then
               MsgBox "There are not valid bookmarked ranges in this
document."
           Else
               lngIndex = lngIndex - 1
               Exit For
           End If
       End If
   Next

   strBookmark = .Bookmarks(BOOKMARK_LABEL & CStr(lngIndex)).Range.Text

   Call WriteProp(sPropName:="Comments", sValue:=strBookmark)
End With

End Sub
'_______________________________________

Jezebel was telling us:
Jezebel nous racontait que :

Thanks for your thoughts... My only concern is that I do not know all the
default properties... so I do not take chances...I am always explicit...my
code is not minor!