I have a large document (over 100 pages) with text I want to import into the auto text.



is there someone who has a macro for this?

thanks in advance.

eiol

You'll have to provide more detail about the document, how it is formatted and how you want to employ it as autotext, before anyone can suggest a macro.

__________________
Graham Mayor - MS MVP (Word) (2002-2019)
Visit my web site for more programming tips and ready made processes www.gmayor.com

See Greg Maxey's Building Blocks Tools. You may have to reformat your table or move the contents into one formatted for that utility.
Building Blocks & AutoText The download from that page includes a Building Blocks loader on the left end of the ribbon.

This is what i want to do:

Table with two collumns. at the one side the short text and at the other collumn the Whole text that i want to import to the autotext gallery.

As in the attachment.


i have seen another code that have the same function, but this import the texts into the auto correct list.

Sub MultiAutoCorrectGenerator()
' Adapted by Greg Maxey from MultiFindAndReplace code provided by Doug Robbins
Dim oDoc As Document
Dim i As Integer
Dim Wrong As Range
Dim Right As Range

Set oDoc = ActiveDocument
For i = 2 To oDoc.Tables(1).Rows.Count
If oDoc.Tables(1).Rows(i).Cells(1).Range.Characters.C ount > 1 Then
Set Wrong = oDoc.Tables(1).Cell(i, 1).Range
Wrong.End = Wrong.End - 1
Set Right = oDoc.Tables(1).Cell(i, 2).Range
Right.End = Right.End - 1
AutoCorrect.Entries.Add Name:=Wrong, Value:=Right
End If
Next i
End Sub


Is it possible to make something like this to import the texts to autotext instead?

Attached Images

Uten navn.jpg (52.2 KB, 15 views)

Unfortunately this is no solution that I can use, then it is not allowed in our business

If you need to write your own macro, try using Google.
"load autotext vba"