#1
|
|||
|
|||
inserting a custom property field in a bookmark
I want to insert some text, a custom property field and some other text in an existing bookmark. Can anyone give me an example how to solve this |
#2
|
||||
|
||||
I'm sure there will be a more elegant way to do this but this is my first attempt
Code:
Sub DemoReplaceBookmark() Dim aRng As Range, aField As Field Set aRng = ActiveDocument.Bookmarks("aaa").Range Set aField = ActiveDocument.Fields.Add(Range:=aRng, Text:="DocProperty Title") aRng.InsertBefore "text in front" aRng.End = aField.Result.End aRng.InsertAfter "text at end" 'aRng.Select ActiveDocument.Bookmarks.Add Name:="aaa", Range:=aRng End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia |
#3
|
|||
|
|||
Andrew showed you how to insert the DocProperty field for the built-in property "Title" and apply a bookmark to it. The same method would work with a custom document property.
I am unsure. When you talk about a "Custom Property" what, exactly, do you mean? Where and how is that property established? |
#4
|
|||
|
|||
Almost right...
@Guessed :
Your sollution extends the field with the text that is inserted after the field. I tried if a range.collapse after range.end=field.result.end, but that gave the same result any sugestions? |
#5
|
|||
|
|||
Quote:
.Fields.Add(Range:=YourRange, Text:="DOCPROPERTY ""Your DocProperty""") |
#6
|
|||
|
|||
Problem solved
With a small change to the code it worked;
Sub DemoReplaceBookmark() Dim aRng As Range, aField As Field Set aRng = ActiveDocument.Bookmarks("aaa").Range Set aField = ActiveDocument.Fields.Add(Range:=aRng, Text:="DOCPROPERTY ''"Title with spaces""") aRng.InsertBefore "text in front" aRng.End = aField.Result.End + 1 aRng.InsertAfter "text at end" 'aRng.Select ActiveDocument.Bookmarks.Add Name:="aaa", Range:=aRng End Sub |
Tags |
bookmark;content control, field |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Updating a custom property in the header | JonFleming | Word VBA | 9 | 02-09-2016 05:22 AM |
Update Custom Document Property in Template | Byron Polk | Word VBA | 10 | 08-19-2014 07:19 AM |
Custom Document Property Lost From Template | bhaughey | Word | 8 | 03-05-2013 02:11 PM |
Link Watermark to custom property | kerend | Word | 0 | 04-08-2012 05:03 AM |
QuickParts - custom document property | untttt | Word | 2 | 06-09-2011 05:24 PM |