Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Checkboxen von excel per VBA nach word.
zurück: worddateien mit passwort öffnen+mit neuem Passwort speichern weiter: Werte aus Userform in Wortabellen übertragen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Johno2
Gast


Verfasst am:
20. März 2010, 20:52
Rufname:

Checkboxen von excel per VBA nach word. - Checkboxen von excel per VBA nach word.

Nach oben
       Version: Office 2007

Hallo könnte mir einer sagen was ich diesem Code hinzufügen muss, damit ich auch excell checkboxen nach word Checkboxen exportieren kann.


Code:
'um die aktuelle Zeile zu ermitteln
  i = ActiveCell.Row
 
  Pfad = "C:\*****\Dok1.doc" 'entweder in A1 den Pfad eingeben oder diese Zeile auskommentieren...
'  Pfad = "C:\*****" '...und hier den Pfad eingeben
 
  On Error Resume Next
  Set wdAnw = GetObject(, "Word.Application") 'Bestehende Word-Instanz suchen
  Select Case Err.Number
    Case 0 'Alles paletti
    Case 429 'Es gibt soweit keine Word-Instanz
      Err.Clear
      Set wdAnw = CreateObject("Word.Application") 'Word-Instanz erzeugen
      If Err.Number > 0 Then
        BadOrHappyEnd Err.Number, Err.Description
        Exit Sub
      End If
    Case Else 'Unerwarteter Fehler
      BadOrHappyEnd Err.Number, Err.Description
      Exit Sub
  End Select
  On Error GoTo 0
  '
  wdAnw.Visible = True 'Instanz sichtbar machen
  wdAnw.WindowState = 0
  '
  'Je nach dem, ob das Dokument bereits geöffnet ist oder nicht wird verbunden
  'bzw. geöffnet. Diese Differenzierung geschieht implizit.
  On Error Resume Next
  Set wdDok = wdAnw.Documents.Open(Filename:=Pfad)
  If Err.Number > 0 Then 'Wenn Arbeitsmappe nicht existiert oder unerwarteter Fehler
    BadOrHappyEnd Err.Number, Err.Description
    Exit Sub
  End If
  On Error GoTo 0
 
'hier kommt das eigentliche Eintragen
  wdAnw.ActiveDocument.FormFields.Item("Text1").Result = Cells(8, 6)
  wdAnw.ActiveDocument.FormFields.Item("Text2").Result = Cells(10, 6)
  wdAnw.ActiveDocument.FormFields.Item("Text3").Result = Cells(11, 6)
  wdAnw.ActiveDocument.FormFields.Item("Text4").Result = Cells(13, 6)
  wdAnw.ActiveDocument.FormFields.Item("Text5").Result = Cells(14, 6)
  wdAnw.ActiveDocument.FormFields.Item("Text6").Result = Cells(17, 6)
  wdAnw.ActiveDocument.FormFields.Item("Text7").Result = Cells(18, 6)

 
  BadOrHappyEnd Err.Number, Err.Description
End Sub

Private Sub BadOrHappyEnd(rc As Long, fehler As String)
  If rc > 0 Then
    MsgBox fehler, vbExclamation
  End If
  Set wdDok = Nothing 'Aufräumen
  Set wdAnw = Nothing
End Sub



Und damit das ganze abzuschließen benötige ich zudem ein export von dropdown Menus.

Wähe euch super dankbar, wenn mir einer hier weiter helfen kann.

Gruß

John
Johno2
Gast


Verfasst am:
21. März 2010, 11:18
Rufname:


AW: Checkboxen von excel per VBA nach word. - AW: Checkboxen von excel per VBA nach word.

Nach oben
       Version: Office 2007

Hallo,

hat wirklich keiner eine idee?

habe google bereits durch forstet, jedoch keine funktionierende Lösung gefunden.

Gruß
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienbrief per Outlook, Adressquelle Excel 6 mohi 22869 20. Feb 2013, 15:26
Pseudo_Gast Serienbrief per Outlook, Adressquelle Excel
Keine neuen Beiträge Word Serienbriefe: Rechnungen per Serienbrief 1 CM13 726 13. Jan 2012, 20:57
Synapse Rechnungen per Serienbrief
Keine neuen Beiträge Word Formate: Kopfzeile: wie vorherige per Default ausschalten? 4 chappy72 1257 16. Dez 2011, 12:31
chappy72 Kopfzeile: wie vorherige per Default ausschalten?
Keine neuen Beiträge Word Formate: Word 2010 - Per Autokorrektur Pfeilsymbole??? 0 Zwinckerchen 1087 14. Dez 2011, 13:34
Zwinckerchen Word 2010 - Per Autokorrektur Pfeilsymbole???
Keine neuen Beiträge Word Serienbriefe: Serienbrief per Fax verschicken 0 phatair 1586 18. Nov 2010, 20:18
phatair Serienbrief per Fax verschicken
Keine neuen Beiträge Word Serienbriefe: Word-Serienbrief in PDF umwandeln und Versand per Outlook 4 MarcelK 17652 20. Apr 2010, 11:38
Gast Word-Serienbrief in PDF umwandeln und Versand per Outlook
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Word Serienbriefe: Access Formulardaten per Button an Word Bookmarks übergeben 5 Mike Access Neuling 3468 31. Jul 2009, 14:44
Ina Access Formulardaten per Button an Word Bookmarks übergeben
Keine neuen Beiträge Word Formate: 5 Vorgegebene Schriftarten per Zufallsprinzip wählen. 0 searcher1900 795 26. Feb 2007, 15:10
searcher1900 5 Vorgegebene Schriftarten per Zufallsprinzip wählen.
Keine neuen Beiträge Word Serienbriefe: Per Knopfdruck einen Datensatz aus Excel nach Word 0 MrHH 815 01. Aug 2005, 08:05
MrHH Per Knopfdruck einen Datensatz aus Excel nach Word
Keine neuen Beiträge Word VBA Programmierung (Makros): Formatvorlage per Menü auswählen 4 StephanHH 1102 08. Jul 2005, 16:09
StephanHH Formatvorlage per Menü auswählen
Keine neuen Beiträge Word VBA Programmierung (Makros): W2k - Auswählbaren Text per VBA (Makro) einfügen 1 AnniLux 808 30. Jun 2005, 16:38
rita2008 W2k - Auswählbaren Text per VBA (Makro) einfügen
Keine neuen Beiträge Word Formate: Word Formatvorlagen per Makro ändern 4 NightFog 6551 29. Jun 2005, 19:01
NightFog Word Formatvorlagen per Makro ändern
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: CSS Forum