---

Indexnachweis.zip

Hallo

Ich habe wieder einmal 2 kleinere Probleme.
Das eine ist mit Array (Änderung(80,80) as string)
wie bekomme ich das Array in die Function?

Das andere mit Word

Ich habe ein Code-Beispiel gefunden und dies erweitert. Nur kann ich die entsprechenden Tabellen nicht ansprechen. Hat da jemand eine Lösung?

Code:

---

Function GanzeTabelleTransferieren(Array, ende As Integer)
   

  'Dimensionierung der Variablen
  Dim objWordApp As Object
  Dim objWordDok As Object

  'Festlegen der Vorgabewerte
  Set objWordApp = CreateObject("Word.application")

  'Starten der Word-Instanz und eine neues Dokument öffnen
  objWordApp.Visible = True
  Set objWordDok = objWordApp.Documents.Open("C:\Indexnachweis.doc")
   
'Anschrift in das Dokument eintragen
    For i = 0 To ende
    With objWordApp.Selection
        .TypeText Text:="A"
        .MoveRight Unit:=wdCell
        .TypeText Text:="27.10.02"
        .MoveRight Unit:=wdCell
        .TypeText Text:="is"
        .MoveRight Unit:=wdCell
        .TypeText Text:="test"
        .MoveRight Unit:=wdCell
    End With
    Next

End Function

Sub test()
    GanzeTabelleTransferieren(Array,10)
End Sub

---

Besten Dank

mfg Sascha

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP