---

Hallo

mit Word habe ich bisher keine Erfahrung in Punkto Automatisierung.
In Excel weiss ich mir meistens Rat, um div. Verknüpfungen zu erstellen. Aber in Word benötige ich etwas Hilfe.

Zum Thema:
Bisher hatte ich meine Schriftwechsel allein erstellt und desshalb meine Unterschrift bereits in der Vorlage als eingescanntes Bild eingefügt.
Hat seine Vorteile bei Faxe und wenn ein Anschreiben ausgedruckt wird, ist es gleich unterschrieben.
Jetzt habe ich eine Angestellte, die diese Möglichkeit ebenfalls nutzen möchte, aber ich möchte die Vorlageblätter nicht für jede Person extra einrichten.

Nach meiner Vorstellungen sollte sich die bei jedem angemeldeten User abgelegte
Unterschrift in die Vorlage einfügen, wenn diese geöffnet wird.
Ist so etwas in Word ohne VBA (nur mit einer Formel) möglich? 

giman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo giman,

wir erledigen das über einen AutoText
der User gibt sein Kürzel und F3 ein, fertig.

------------------
Gruß
Heiko

"Es gibt kein richtiges Leben im falschen." - Theodor W. Adorno in Minima Moralia, 43
und das hat er gesagt lange bevor es SL, WOW, ETC gab !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko

bei mir sieht das abgeschickte Fax so aus, als wenn ich es persönlich unterschrieben hätte, dabei hatte ich nicht einmal einen Ausdruck vor dem Faxscan gehabt.
So hätte ich es gerne weiter so und keinen Maschinentext, denn es wirkt doch persönlicher als der Hinweis "Das Schreiben wurde von einem Computer erstellt bla bla bal".

Kennt jemand einen Weg in Word, der da hinführt?

giman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Uschrift.jpg

Hallo Giman,

gut ich hab' mich etwas kurz gefasst,
aber ein bisschen Fantasie beim Lesen setze ich voraus:

der Autotext besteht aus einer gescannten U'schrift
und dem Klartextzusatz Name und Durchwahl.

------------------
Gruß
Heiko

"Es gibt kein richtiges Leben im falschen." - Theodor W. Adorno in Minima Moralia, 43
und das hat er gesagt lange bevor es SL, WOW, ETC gab !

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo, existieren mehrere Bilder in der Dokumentation?

Wenn mehrere Bilder in der Doc befiden, ermitteln der Bildnummer - sub ErmittlungBildnr()
anhand der Nummer doc.InlineShapes(1).Select  in Sub Bildtausch() dementsprechend anpassen

User "hugo" und "emil" den Windowsbenuntzernamen anpassen, dito die Graphikpfade.

HTH *ihhhk, das ich überhaupt Word geöffnet habe, arbeite doch damit garnich* ;-)

Code:

---

Option Explicit
  Declare Function GetUserName Lib "advapi32.dll" _
      Alias "GetUserNameA" (ByVal lpBuffer As String, _
      nSize As Long) As Long

  Sub username()
      Dim B As String * 100
      Dim L As Long
      L = 100
      GetUserName B, L
      MsgBox Left(B, L - 1)
  End Sub

  Sub Bilduser()
  Dim username
  Dim user
  If username = "hugo" Then user = 1
  If username = "Emil" Then user = 2
  'user = 2 dummy zum manuellen test
  Bildtausch (user)
  End Sub

Sub Bildtausch(AbbTyp As Integer)
Dim doc
Dim InlineShapes
Set doc = ActiveDocument
doc.InlineShapes(1).Select 'hier (1) die in ErmittlungBildnr() ermittelte Bildnummer eintragen
    Select Case AbbTyp
    Case 1
      Selection.InlineShapes.AddPicture FileName:= _
        "C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\Sonnenuntergang.jpg", LinkToFile:=False, SaveWithDocument:=True
    Case 2
      Selection.InlineShapes.AddPicture FileName:= _
        "C:\Dokumente und Einstellungen\All Users\Dokumente\Eigene Bilder\Beispielbilder\winter.jpg", LinkToFile:=False, SaveWithDocument:=True
          End Select
End Sub

Sub ErmittlungBildnr()
Dim doc
Dim x
Dim InlineShapes
Set doc = ActiveDocument
For x = 1 To doc.InlineShapes.Count
doc.InlineShapes(x).Select 'per F8 durchlaufen lassen, dann ohne MsgBox
MsgBox ("selectiertes Bild ist BildNr " & x)
Next
End Sub

---

[Diese Nachricht wurde von Thomas Harmening am 05. Nov. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Heiko und Thomas

Units sind unterwegs. Kann das aber erst ab Dezember testen. Im Augenblick haben wir Hochdruck.

Gruß giman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP