Visitenkarte mit Word?

Computer: Software & Programmierung Office Software
1

Hallo zusammen,
ist mein Versuch einen Visitenkarte mit zwei kleinen Grafiken und formatierter Schrift per Etikettendruck aus Word2000 bzw 2003 unmöglich??
Die Formatierung der Schrift ist zwar im Eingabefeld der Adresse möglich, aber eine genaue Positionierung nicht. Zum Thema Grafik steht leider in der Hilfe nur ein lapidarer Satz, daß es möglich sei, nur wie ???.
Zur Zeit benutze ich eine Tabelle in Größe der Karten. Leider ist es mir hier noch nicht gelungen bei Änderung des Mitarbeiternamens oder Telefonnr das in allen Zellen gleichzeitig durchzuführen. D.H. jedesmal alle Zellen einzeln bearbeiten. Das nervt :frowning:(
Hat da jemand eine Idee??

Vielen Dank schon mal und Grüße vom Harald aus Wiesbaden

2

Hallo Harald,

Zur Zeit benutze ich eine Tabelle in Größe der Karten.

das ist die beste Variante.

Leider ist es mir hier noch nicht gelungen bei Änderung des
Mitarbeiternamens oder Telefonnr das in allen Zellen
gleichzeitig durchzuführen. D.H. jedesmal alle Zellen einzeln
bearbeiten. Das nervt :frowning:(
Hat da jemand eine Idee??

klar, es gibt die Möglichkeit >> suchen und ersetzen

3

hallo harald

  1. möglichkeit: lege über den inhalt der ersten zelle eine textmarke. in allen anderen zellen referenziere auf diese textmarke (ref-feld!). nun musst du nur mehr die erste zelle ändern, das dokument markieren und f9 drücken.

  2. möglichkeit: du nutzt folgendes makro:

    Sub tabcopy()
    Dim Tabelle As Table
    Dim istMaster As Boolean
    Dim Zelle As Cell
    Dim Zeile As Row
    Dim Quelle As Range

    Set Tabelle = ActiveDocument.Tables(1)
    Set Zelle = Tabelle.Cell(1, 1)

    'das abschließende Zellenende-Zeichen darf nicht mitkopiert werden!!
    Set Quelle = ActiveDocument.Range(Zelle.Range.Start, Zelle.Range.End - 1)

    istMaster = True

    For Each Zeile In Tabelle.Rows
    For Each Zelle In Zeile.Cells
    If istMaster Then
    ’ erste Zelle überspringen…
    istMaster = False
    Else
    ’ alle anderen Zellen: inhalt der ersten Zelle reinkopieren
    Zelle.Range.FormattedText = Quelle
    End If
    Next
    Next

    End Sub

lg erwin