Import all Autotext entries previously exported

[Michael Jenkin [SBS-MVP]]

Thankyou all so far for your help. The Export routine worked so well
that now I need to work on an import. The source document contains a two
column table. The first column is the name for the Autotext entry and
the second is the value.

I can import simple autotext entries using the script I have written
here. The issue is like the import routine, the formating and images are
lost. It is also limited to 255 characters.

Any ideas ?




Sub importAutotextEntries()

' Check to see if a table exists in the Active Document
If ActiveDocument.Tables.Count = 0 Then
MsgBox "No tables!"
Exit Sub
End If

For i = 1 To ActiveDocument.Tables(1).Rows.Count

'first cell is the name for the new Autotext entry - Minus the
Paragraph mark
newname = ActiveDocument.Tables(1).Rows(i).Cells(1)
namelength = Len(newname)
namelength = namelength - 2
finalname = Left(newname, namelength)
NormalTemplate.AutotextEntries.Add Name:=finalname,
Range:=Selection.Range

'Second cell is the value for the new Autotext entry - Minus the
Paragraph mark
newvalue = ActiveDocument.Tables(1).Rows(i).Cells(2)
valuelength = Len(newvalue)
valuelength = valuelength - 2
finalvalue = Left(newvalue, valuelength)
NormalTemplate.AutotextEntries(finalname).Value = finalvalue

Next i

End Sub

[Michael Jenkin [SBS-MVP]]

There seems to be no "value" parameter to add and the insert setting
seems to be the only way to use richtext.

Any ideas ?

Post by Michael Jenkin [SBS-MVP]
Thankyou all so far for your help. The Export routine worked so well
that now I need to work on an import. The source document contains a two
column table. The first column is the name for the Autotext entry and
the second is the value.
I can import simple autotext entries using the script I have written
here. The issue is like the import routine, the formating and images are
lost. It is also limited to 255 characters.
Any ideas ?
Sub importAutotextEntries()
' Check to see if a table exists in the Active Document
If ActiveDocument.Tables.Count = 0 Then
MsgBox "No tables!"
Exit Sub
End If
For i = 1 To ActiveDocument.Tables(1).Rows.Count
'first cell is the name for the new Autotext entry - Minus the
Paragraph mark
newname = ActiveDocument.Tables(1).Rows(i).Cells(1)
namelength = Len(newname)
namelength = namelength - 2
finalname = Left(newname, namelength)
NormalTemplate.AutotextEntries.Add Name:=finalname,
Range:=Selection.Range
'Second cell is the value for the new Autotext entry - Minus the
Paragraph mark
newvalue = ActiveDocument.Tables(1).Rows(i).Cells(2)
valuelength = Len(newvalue)
valuelength = valuelength - 2
finalvalue = Left(newvalue, valuelength)
NormalTemplate.AutotextEntries(finalname).Value = finalvalue
Next i
End Sub