title image


Smiley Re: Textfelder in Word befüllen
Zuerst in MSWord eine Textmarke unter Einfügen -> Textmarke an der entsprechenden Position erstellen (Name in unserem Beispiel = myMarke) und das Dokument im Projektverzeichnis unter Test.Doc abspeichern.Als nächstes fügst du in deinem VB Projekt das Word Objekt ein. Unter Project -> References 'Microsoft Word x.x Objekt Library'.Jetzt den nachfolgenden Text in der Click Procedur eines Buttons speichern und schon müsste es klappen.Private Sub Command1_Click()Dim wapp As Word.ApplicationDim wdoc As New Word.DocumentSet wapp = New Word.ApplicationSet wdoc = wapp.Documents.Open(App.Path & "\test.doc") wapp.selection.GoTo What:=wdGoToBookmark, Name:="myMarke" With wapp.selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With wapp.selection.typetext Text:="Hier steht nun mein Text" wapp.Visible = True Set wdoc = Nothing Set wapp = NothingEnd SubGruß Georg

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: