vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Re: Erklärung/Hilfe Access in Word ausgeben 
Autor: jadexy
Datum: 27.02.06 14:16
Teil2 vom Code 
'Tabelle 
 
                        D.Paragraphs.Add 
                        index = D.Paragraphs.count 
                        Set R = D.Paragraphs(index).Range 
                        D.Tables.Add Range:=R, numrows:=1, NumColumns:=4 
                        idxTables = D.Tables.count 
                        Set tblTabelle = D.Tables(idxTables) 
 
                        Set Spalte = tblTabelle.Columns(1) 
                        Spalte.width = 100 
                        Set Spalte = tblTabelle.Columns(2) 
                        Spalte.width = 271 
                        Set Spalte = tblTabelle.Columns(3) 
                        Spalte.width = 75 
                        Set Spalte = tblTabelle.Columns(4) 
                        Spalte.width = 30 
 
                        Set celZelle = tblTabelle.Cell(1, 1) 
                        celZelle.VerticalAlignment = wdCellAlignVerticalCenter 
                        celZelle.Range.Text = "Objektteilschlüssel" 
                        celZelle.Range.Style = "Tabellentext" 
                        Set celZelle = tblTabelle.Cell(1, 2) 
                        celZelle.VerticalAlignment = wdCellAlignVerticalCenter 
                        celZelle.Range.Text = "Objektteil" 
                        celZelle.Range.Style = "Tabellentext" 
                        Set celZelle = tblTabelle.Cell(1, 3) 
                        celZelle.VerticalAlignment = wdCellAlignVerticalCenter 
                        celZelle.Range.Text = "Vorkommen (Kann / Muss)" 
                        celZelle.Range.Style = "Tabellentext" 
                        celZelle.Range.Characters(12).Bold = True 
                        celZelle.Range.Characters(19).Bold = True 
                        Set celZelle = tblTabelle.Cell(1, 4) 
                        celZelle.VerticalAlignment = wdCellAlignVerticalCenter 
                        celZelle.Range.Text = "AG" 
                        celZelle.Range.Style = "Tabellentext" 
                        tblTabelle.Rows(1).Alignment = wdAlignRowCenter
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Erklärung/Hilfe Access in Word ausgeben915jadexy27.02.06 14:15
Re: Erklärung/Hilfe Access in Word ausgeben551jadexy27.02.06 14:16
Re: Erklärung/Hilfe Access in Word ausgeben540jadexy27.02.06 14:17

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel