Microsoft Office Forums - View Single Post

Hdata · 02-01-2014, 07:10 PM

In the past, I have added selected text to bookmarks programmatically with VBA as indicated in Sub Macro11(). Works great.

My first try with Custom Document Properties!

I would like to add selected text from a word document to DocProperty Programmatically with VBA. Not sure if this is possible, maybe my syntax needs work? Any Help.

Code:

 
Sub Macro11()
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="test1bm"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

,

Code:

 
Sub Macro13()
    With ActiveDocument
        .Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "DOCPROPERTY  FirstTest1Custom ", PreserveFormatting:=True
    End With
End Sub