title image


Smiley TIPP: Word-Autotexte auslesen


Public Function HoleAlleAutoTexte()

Dim oWord As New Word.Application, A As Word.AutoTextEntry

On Error Resume Next

CurrentDb.Execute "DROP TABLE tblAutoText"

On Error GoTo 0

CurrentDb.Execute "CREATE TABLE tblAutoText (AutoTextName TEXT(255),AutoTextWert MEMO)"

For Each A In oWord.NormalTemplate.AutoTextEntries

CurrentDb.Execute "INSERT INTO tblAutoText (AutoTextName,AutoTextWert) VALUES ('" & _

A.Name & "','" & A.value & "')"

Next A

oWord.Quit

Set oWord = Nothing

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: