VBA Paste auf Word Bookmark
#1
Ich habe ein kleines Problem. Ich möchte in Excel eine Tabelle von Hand markieren
und dann per Button an ein Worddokument an eine bestimmte Textmarke kopiern.

Hier der VBA Code:
Private Sub CommandButton1_Click()
Dim appWord As Object
Dim msds As Object
   
    Set appWord = CreateObject("Word.Application")
    Set msds = appWord.Documents.Add("C:\xxx\MSDSBasis.docx")
   
    appWord.Visible = True
   
  msds.Activate
    msds.Bookmarks("Produktname").Range.Text = Range("Produktname")
    msds.Bookmarks("Inciliste").Range.Text = Range("Inciliste")
    Selection.Copy
    msds.Bookmarks("Tabellemsds").Selection.PasteSpecial
   

    Set appWord = Nothing
    Set msds = Nothing
   
End Sub


Die ersten beiden Bookmarks funktionieren ... Nur die Markierte Zellen an 
einer bestimmten Stelle in Word zu pasten geht nicht ... Hat jemand 
eine Idee  ??

Danke
Top
#2
Code:
Private Sub CommandButton1_Click()
   Selection.Copy

   with getobject("C:\xxx\MSDSBasis.docx")
      .Bookmarks("Produktname").Range.Text = Range("Produktname")
      .Bookmarks("Inciliste").Range.Text = Range("Inciliste")
      .Bookmarks("Tabellemsds").Range.Paste
   end with   
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste