Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
VBA/Word2007: Text in Tabelle mit fester Spaltenbreite
zurück: Word 2003 SBE: Word-Absturz bei mehr als einer Kopie... weiter: Neues Dropdownfeld und Feldfunktionen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
xaobai
Office-Nutzer / VBA-Einsteiger


Verfasst am:
11. Nov 2011, 12:57
Rufname:
Wohnort: Düsseldorf

VBA/Word2007: Text in Tabelle mit fester Spaltenbreite - VBA/Word2007: Text in Tabelle mit fester Spaltenbreite

Nach oben
       Version: Office 2007

Hallo,
ich will eine Menge Text in eine Tabelle Din-A4 Quer umwandeln (je Absatz neue Zeile), was mir an sich keine Schwierigkeiten bereitet. Das Problem ist, dass die Tabelle am Ende 6 Spalten mit fester Breite haben soll (S1 = 1,5 cm, S2 = 1,5 cm, S3 = 6,5 cm, S4 = 6,5 cm, S5 = 4,5 cm, S6 = 6,5 cm) und der Text nach dem Umwandeln nur in Spalte 4 stehen soll.
Ich habe schon einen VBA-Code geschrieben, der den Text in eine Tabelle mit einer Spalte umwandelt, die eine feste Breite von 6,5 cm hat.
Code:
Sub Tabelle_mit_fester_Spaltenbreite()
    Selection.WholeStory
    Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=1, _
    NumRows:=858, InitialColumnWidth:=CentimetersToPoints(6.5), Format:= _
    wdTableFormatNone, ApplyBorders:=True, ApplyShading:=True, ApplyFont:= _
    True, ApplyColor:=True, ApplyHeadingRows:=True, ApplyLastRow:=False, _
    ApplyFirstColumn:=True, ApplyLastColumn:=False, AutoFit:=False, _
    AutoFitBehavior:=False, DefaultTableBehavior:=wdWord8TableBehavior
End Sub
Ich bekomme es leider nicht hin, die drei Spalten links und zwei Spalten rechts mit fester cm-Breite wie oben beschrieben zu generieren.
_________________
Ich würde mich freuen, wenn jemand eine Lösung weiß und den Code dazu aufschreibt.
Beste Grüße
Xaobai
Gast



Verfasst am:
13. Nov 2011, 18:00
Rufname:

AW: VBA/Word2007: Text in Tabelle mit fester Spaltenbreite - AW: VBA/Word2007: Text in Tabelle mit fester Spaltenbreite

Nach oben
       Version: Office 2007

Hallo,

du kannst den Code am Ende deines Makros
ohne Sub/End Sub einfügen oder als eigen-
ständiges Makro danach ablaufen lassen.

Grüsse
Code:
Sub SpaltenEinfügen()
  ActiveDocument.Tables(1).Columns(1).Cells(1).Select
  'links
  For i = 1 To 3
    Selection.InsertColumns
  Next
  '
  With ActiveDocument.Tables(1)
    .Columns(1).Width = CentimetersToPoints(1.5)
    .Columns(2).Width = CentimetersToPoints(1.5)
    .Columns(3).Width = CentimetersToPoints(6.5)
    .Columns(4).Width = CentimetersToPoints(6.5)
  End With
  'rechts
  ActiveDocument.Tables(1).Columns(4).Cells(1).Select
  For i = 1 To 2
    Selection.InsertColumnsRight
  Next
  '
  With ActiveDocument.Tables(1)
    .Columns(5).Width = CentimetersToPoints(4.5)
    .Columns(6).Width = CentimetersToPoints(6.5)
  End With
End Sub
Gast



Verfasst am:
14. Nov 2011, 16:28
Rufname:


AW: VBA/Word2007: Text in Tabelle mit fester Spaltenbreite - AW: VBA/Word2007: Text in Tabelle mit fester Spaltenbreite

Nach oben
       Version: Office 2007

Ganz herzlichen Dank, das funktioniert wunderbar.

Xaobai
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: Exel Tabelle mit Word Verknüpfen? 2 gw47 1821 07. Nov 2009, 17:31
gw47 Exel Tabelle mit Word Verknüpfen?
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Header und Tabelle 11 Krischer 1384 04. Nov 2009, 02:13
charlybrown Serienbrief mit Header und Tabelle
Keine neuen Beiträge Word Serienbriefe: Excel 2003 Tabelle verknüpfen mit Word 2003 Serienbrief 1 FilFil 4326 26. Okt 2009, 16:53
charlybrown Excel 2003 Tabelle verknüpfen mit Word 2003 Serienbrief
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit dynamischer Tabelle 2 samba 1895 24. Apr 2009, 20:40
samba Serienbrief mit dynamischer Tabelle
Keine neuen Beiträge Word Serienbriefe: Text einer Textmarke an anderer Stelle im Dokument anzeigen? 8 bbask 3232 07. Apr 2009, 13:07
Gast Text einer Textmarke an anderer Stelle im Dokument anzeigen?
Keine neuen Beiträge Word Serienbriefe: Text wird abgeschnitten 1 Thomas-Gast 4355 06. März 2009, 19:09
charlybrown Text wird abgeschnitten
Keine neuen Beiträge Word Serienbriefe: Leerzeilen in Tabelle/Serienbrief unterdrücken 2 joni.2000 3234 18. Jan 2009, 22:10
charlybrown Leerzeilen in Tabelle/Serienbrief unterdrücken
Keine neuen Beiträge Word Serienbriefe: word2003 - word2007 - verknüpfung mit access 1 klausagb 1482 11. Dez 2008, 14:22
charlybrown word2003 - word2007 - verknüpfung mit access
Keine neuen Beiträge Word Serienbriefe: mit Wenn/Dann-Bedingungsfeld Tabelle einfügen? 10 Bärbel G. 3136 17. Jul 2008, 20:00
Maulende Myrte mit Wenn/Dann-Bedingungsfeld Tabelle einfügen?
Keine neuen Beiträge Word Serienbriefe: Leere Zeilen nicht drucken in einer Word Tabelle 0 Gast 3212 26. Mai 2008, 11:40
Gast Leere Zeilen nicht drucken in einer Word Tabelle
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Anlage UND Text/Signatur im Outlook - wie? 0 Marmar77 1300 12. Feb 2008, 14:38
Marmar77 Serienbrief mit Anlage UND Text/Signatur im Outlook - wie?
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit unterschiedlichem Text? 1 amitan 1496 25. Jan 2008, 15:55
Hübi Serienbrief mit unterschiedlichem Text?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe