K
Kalzin
Ok, so I have one part of a macro/script to insert entries into a wor
document is a line-by-line format
Code
-------------------
Dim p As Paragraph, r As Range, s As Strin
For Each p In ActiveDocument.Paragraph
'Skip empty pgphs, like the one that often finishes a doc
If Len(p.Range) 2 Then GoTo nexton
Set r = p.Rang
r.MoveEnd wdCharacter, -
s = Left(r.Text, 32
ThisDocument.AttachedTemplate.AutoTextEntries.Add Name:=s, Range:=
nextone
Next
MsgBox "Done
-------------------
This works to make the entries but does not allow me to create th
value... ie
will make three entries with A = A B = B and so on. what i need it to d
is take it like so
ExhibitA (hyper-linked
ExhibitB (hyper-linked
so that whatever I put there (the lines can change to other item
depending on the case structure) and create autotext with the 1st lin
being the name of the Auto-text and the 2nd line being the "value" o
the auto-text. I'm a little stuck here and it seems as if I'm close bu
not close enough. This is for Word 2003; can anyone help
document is a line-by-line format
Code
-------------------
Dim p As Paragraph, r As Range, s As Strin
For Each p In ActiveDocument.Paragraph
'Skip empty pgphs, like the one that often finishes a doc
If Len(p.Range) 2 Then GoTo nexton
Set r = p.Rang
r.MoveEnd wdCharacter, -
s = Left(r.Text, 32
ThisDocument.AttachedTemplate.AutoTextEntries.Add Name:=s, Range:=
nextone
Next
MsgBox "Done
-------------------
This works to make the entries but does not allow me to create th
value... ie
will make three entries with A = A B = B and so on. what i need it to d
is take it like so
ExhibitA (hyper-linked
ExhibitB (hyper-linked
so that whatever I put there (the lines can change to other item
depending on the case structure) and create autotext with the 1st lin
being the name of the Auto-text and the 2nd line being the "value" o
the auto-text. I'm a little stuck here and it seems as if I'm close bu
not close enough. This is for Word 2003; can anyone help