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


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: