Re: Strange MERGEFIELD insertion behaviour.....

From: Robin Tucker (idontwanttobespammedanymore_at_reallyidont.com)
Date: 05/13/04 

Date: Thu, 13 May 2004 16:35:29 +0100

Oh actually.....my code did include MERGEFIELD, but my example did not (I'm
not sure why). Still I get the described behaviour with the code below:

(where theField = "ASSET_Named_Tool Camera Spot 1")....

m_Application.Selection.Fields.Add(Range:=m_Application.Selection.Range, _

Type:=Word.WdFieldType.wdFieldEmpty, _
                                                        Text:="MERGEFIELD "
+ theField.ToString() + " ", _

PreserveFormatting:=True)

"Word Heretic" <myfullname@tpg.com.au> wrote in message
news:6mm6a09ca7n7i4vjv15936pr51jfvmvf3m@4ax.com...
> G'day "Robin Tucker" <idontwanttobespammedanymore@reallyidont.com>,
>
> Ahhhh. You are inserting an empty field. Insert a Merge field and
> include the extensions as the parm.
>
> Dim theText As String = "ASSET_Named_Tool" + "=" + theInfo
> m_Application.Selection.Fields.Add( _
> Range:=m_Application.Selection.Range, _
> Type:=Word.WdFieldType.wdFieldMergeField, _
> Text:=CType(theText,Object), _
> PreserveFormatting:=True)
>
>
> I'd be using & as the concat if available - it stops a few typing
> problems. Also, I would have thought
>
> Word.WdFieldType.wdFieldMergeField
>
> would be
>
> m_Application.wdFieldMergeField
>
> But I dunno which language you are using.
>
> Steve Hudson - Word Heretic
> Want a hyperlinked index? S/W R&D? See WordHeretic.com
>
> steve from wordheretic.com (Email replies require payment)
>
>
> Robin Tucker reckoned:
>
> >Err, I included a code sample. Here it is again:
> >
> >Dim theInfo as String
> >
> >theInfo = "Camera Spot 1"
> >Dim theText As String = "MERGEFIELD " + "ASSET_Named_Tool" + "=" +
theInfo
> >
> >m_Application.Selection.Fields.Add(Range:=m_Application.Selection.Range,
_
> >
> >Type:=Word.WdFieldType.wdFieldEmpty, _
> >
Text:=CType(theText,
> >Object), _
> >
> >PreserveFormatting:=True)
> >
> >
> >"Word Heretic" <myfullname@tpg.com.au> wrote in message
> >news:48i5a05oe3f224327ug6m8semods0amjrq@4ax.com...
> >> G'day "Robin Tucker" <idontwanttobespammedanymore@reallyidont.com>,
> >>
> >> Code sample please
> >>
> >>
> >> Steve Hudson - Word Heretic
> >> Want a hyperlinked index? S/W R&D? See WordHeretic.com
> >>
> >> steve from wordheretic.com (Email replies require payment)
> >>
> >>
> >> Robin Tucker reckoned:
> >>
> >> >I'm trying to programmatically insert MERGEFIELD items into my
document.
> >> >They all seem to work ok, except those I need to add parameters to.
For
> >> >example, the following mergefield needs to be inserted:
> >> >
> >> >"MERGEFIELD ASSET_Named_Tool=Camera Spot 1"
> >> >
> >> >ie. I want a merge field included called "ASSET_Named_Tool=Camera Spot
> >1".
> >> >When I come to generate a report using this template, I can parse the
> >> >mergefield and extract the value I need called "Camera Spot 1".
Anyway,
> >I
> >> >digress. When I manually insert a mergefield using the add Field
dialog,
> >> >giving the field the name ASSET_Named_Tool=Camera Spot 1, the result
is
> >as
> >> >expected (ie. I get the << >> brackets around the entire string).
> >> >
> >> >When I do the same thing programmatically, it "cuts off" the string at
> >the
> >> >end of "Camera". I guess because it isn't too keen on spaces in field
> >names.
> >> >However, if I right click on the newly inserted field and "Edit
Field",
> >then
> >> >click ok when the edit field dialog is shown, the string seems to be
> >changed
> >> >to be correct!
> >> >
> >> >Summary:
> >> >
> >> >(1) Manual insertion produces correct result:
> >> >«ASSET_Named_Tool=Camera Spot 1»
> >> >(2) Programmatic insertion produces erroneous result:
> >> >«ASSET_Named_Tool=Camera»
> >> >(3) Programmatic insertion, followed by manual "Edit Field", produces
> >> >correct result.
> >> >
> >> >Here is the code I'm using to add the field:
> >> >
> >> >Dim theInfo as String
> >> >
> >> >theInfo = "Camera Spot 1"
> >> >Dim theText As String = "MERGEFIELD " + "ASSET_Named_Tool" + "=" +
> >theInfo
> >> >
> >>
>m_Application.Selection.Fields.Add(Range:=m_Application.Selection.Range,
> >_
> >> >
> >> >Type:=Word.WdFieldType.wdFieldEmpty, _
> >> >
> >Text:=CType(theText,
> >> >Object), _
> >> >
> >> >PreserveFormatting:=True)
> >> >
> >> >Thanks for any help you can give me.
> >> >
> >> >
> >> >Robin
> >> >
> >>
> >
>

Relevant Pages