microsoft.public.word.vba.general

Oh, I did nothing with your strings of the paragraphs. You have some fancy
string manipulations going on. Personally I would do that part as wee
Functions, and use them.

Function GetSubject(strIn As String) As String
' yadda yadda
' do your stuff
End Function


then in the main procedure:

With WorkingDoc
.BuiltInDocumentProperties(“Subject”) = _
GetSubject(WorkingDoc.Range.Paragraphs(1).Range.Text)
End Sub

Light-weight? Perhaps. Yours seems overly heavy, but I don't really know
what your situation is.

phorest wrote:
>Howdy,
>
>Well it's actually a wsh script. I am a little more comfortable with them. A
>note about the paragraphs: I have to split them on a tab as there are common
>paragraph content. e.g.
> Customer Name: vbTab vbTab FirstName LastName
> Encounter Date: vbTab vbTab mm/dd/yy
>
>I don't have time tonight to try out your version, but it looks a little
>lighter-weight compared to what I have. My problem is I am supposed to
>implement on March 1st... oops
>
>Thanks!
>
>> Paragraph 1 is always Name [To Subject Field]
>> Paragraph 2 is always Date [To Keywords]
>[quoted text clipped - 219 lines]
>> >>
>> >> Thanks for any help on this in advance!

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200803/1