Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  Inventor VBA
  iProperties und Word

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  iProperties und Word (506 mal gelesen)
isensa
Mitglied



Sehen Sie sich das Profil von isensa an!   Senden Sie eine Private Message an isensa  Schreiben Sie einen Gästebucheintrag für isensa

Beiträge: 14
Registriert: 16.03.2004

Inventor AIS 10

erstellt am: 26. Feb. 2007 17:07    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities


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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz