Hallo Zusammen, ich würde gern einen Button in meinem Worddokument einfügen, so dass dem Anwender folgende Schritte erspart bleiben: Einfügen -> Objekt… -> Aus Datei erstellen -> Durchsuchen (Datei auswählen) ->das Häckchen setzen bei „Als Symbol anzeigen“ -> Anderes Symbol ->Beschriftung ändern. Das Ergebnis soll sein: der Anwender drückt auf das Knöpfchen, wählt die Datei aus. Die Beschriftung wird automatisch aus dem Buttontext ausgelesen (sprich ich gebe das vor). Wie lässt sich so ein Makro umsetzen? Für Infos wäre ich dankbar. Grüße Arthur
hallo Arthur,
Hallo Zusammen, ich würde gern einen Button in meinem
Worddokument einfügen, so dass dem Anwender folgende Schritte
erspart bleiben: Einfügen -> Objekt… -> Aus Datei erstellen
-> Durchsuchen (Datei auswählen) ->das Häckchen setzen bei
„Als Symbol anzeigen“ -> Anderes Symbol ->Beschriftung ändern.
zeichne dir mal ein Makro auf während du das alles machst.
Übrigens, immer gut die Word-version anzugeben!
Das Ergebnis soll sein: der Anwender drückt auf das Knöpfchen,
wählt die Datei aus. Die Beschriftung wird automatisch aus dem
Buttontext ausgelesen (sprich ich gebe das vor).
Wie lässt
sich so ein Makro umsetzen? Für Infos wäre ich dankbar. Grüße
Mal schauen, zeig mal den aufgezeichneten Code.
Gruß
Reinhard
Hallo Reinhard,
tausend Dank, dass du meiner annimmst. Die Word Version ist 2003.
So sieht der Quelcode aus.
Sub Test_2()
Selection.InlineShapes.AddOLEObject ClassType:=„Word.Document.8“, FileName _
:=„D:\Dokumente und Einstellungen\Werner.Arthur\Desktop\NEU.doc“, _
LinkToFile:=False, DisplayAsIcon:=True, IconFileName:= _
„C:\WINDOWS\Installer{90110407-6000-11D3-8CFE-0150048383C9}\wordicon.exe“ _
, IconIndex:=1, IconLabel:=„Test_1“
End Sub
jetzt muss es irgendwie einen von mir vorgegebenen Text auch noch als Bezeichnung einfügen. Dieser Text steht dann irgendwo auf der Seite wo das Dokument hinzugefügt werden muss. Zu diesem einzelnen Text würde so ein Button eben hinzugefügt werden oder eben daneben, so dass es klar ist wohin man drücken muss.
Ich hoffe das ist verständlich ausgedrückt???
Danke für Hinweise,
Grüße
Arthur
jetzt muss es irgendwie einen von mir vorgegebenen Text auch
noch als Bezeichnung einfügen. Dieser Text steht dann irgendwo
auf der Seite wo das Dokument hinzugefügt werden muss. Zu
diesem einzelnen Text würde so ein Button eben hinzugefügt
werden oder eben daneben, so dass es klar ist wohin man
drücken muss.
Hallo Arthur,
zunächst mal die Anweisung Sendkeys ist manchmal problematisch, sie soll eine Zeichenfolge losschicken die etwas bewirkt, trifft die zeichenfolge aber nicht das was man erwartet so landet die Zeichenfolge irgendwo.
Zunächst mal Ansicht—Symbolleisten–Steuerelement-Toolbox, auf ihr fährt du langsam mit der maus drüber und klickst dann auf das Symbol für „Befehlsschaltfläche“.
Nun wird eine Befehlsschaltfläche (CommandButton) eingefügt und du bist gleich im richtigen Entwurfsmodus. Klicke mit Rechts auf den CommandButton, dann mit links auf „Eigenschaften“.
Bei Caption kannst du dann die Aufschrift des CommanButtons festlegen.
Eigenschaftsfenster schließen. Entwurfsmodus über erstes Symbol in der Steuerelemttoolbox ausschalten.
Alt+F, im Editor klickst du einen Doppelklick auf „ThisDocument“ deines projektes(erkennbar am Dateinamen).
Code reinkopieren, Editor schließen.
Nun teste mal im Dokument den CommandButton.
Option Explicit
'
Private Sub CommandButton1\_Click()
Dim S
On Error GoTo Fehler
SendKeys "%a%b%d"
Set S = Application.Dialogs(wdDialogInsertObject)
S.Show
Set S = ActiveDocument.Shapes(Shapes.Count)
S.OLEFormat.IconLabel = CommandButton1.Caption
Selection.Collapse
Fehler:
If Err.Number \> 0 Then MsgBox Err.Number & Chr(10) & Err.Description
End Sub
Gruß
Reinhard