title image


Smiley Daten in ein Word Dokument kopieren
Der Ausschnitt der Tabelle ist bereits für das Word Dokument formatiert und soll dort eungefügt werden:



So weit bin ich jetzt und mit Hilfestellung durch den Macrorecorder.

Selection.Copy

.Range("a4").Select

' Die Deklarierung kommt natürlich noch an den Anfng der Prozedur.



Dim word As Object

Dim text_marke As String



Set word = CreateObject("Word.application")

word.Visible = True

'Vorlage laden funktioniert.

word.documents.Add template:="C:\angebot.dot"

With word.activeDocument



' In der Textvorlage ist eine Textmarke "tabelle" abgespeichert. An diese Position soll die Tabelle aus der Zwischenablage eingefügt werden. Ich habs mit dem Macrorecorder in Word probiert.

' Der nachfolgende Code ist dabei rausgekommen. Bleibt aber schon in der ersten Codezeile

'hängen. Wie mach ich es richtig?



Selection.Goto ToBookmark, name:="tabelle"

Selection.Find.ClearFormatting

With Selection.Find

.text = ""

.Replacement.text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

Selection.PasteExcelTable False, False, False

End With

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: