Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
31.01.2013 21:31:14 |
Michael |
|
|
|
01.02.2013 14:01:02 |
schokobons |
|
|
|
04.02.2013 13:33:18 |
Gast89654 |
|
|
|
05.02.2013 09:46:27 |
schokobons |
|
|
|
05.02.2013 14:41:43 |
Michael Strasser |
|
|
Textauswahlfenster mit einfügen |
11.02.2013 10:15:46 |
schokobons |
|
|
|
18.02.2013 15:00:41 |
Michael |
|
|
|
19.02.2013 09:21:11 |
schokobons |
|
|
|
19.02.2013 10:26:12 |
Michael |
|
|
|
20.02.2013 15:12:01 |
schokobons |
|
|
|
20.02.2013 15:22:37 |
M. |
|
|
|
21.02.2013 08:26:03 |
schokobons |
|
|
Von:
schokobons |
Datum:
11.02.2013 10:15:46 |
Views:
1655 |
Rating:
|
Antwort:
|
Thema:
Textauswahlfenster mit einfügen |
Hallo
Hier mein Vorschlag:
1. Auswahlmenü öffnen
Private Sub but_oeffneauswahlmenue_Click()
frm_auswahlmenue.Show
End Sub
2. Option auswählen und einfügen lassen
Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Textbaustein = "Textbaustein1"
fuegetextbausteinein (Textbaustein)
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton2.Value = True Then
Textbaustein = "Textbaustein2"
fuegetextbausteinein (Textbaustein)
End If
End Sub
Function fuegetextbausteinein(Textbaustein)
txtbaustein = Textbaustein
Application.DisplayAutoCompleteTips = True
ActiveDocument.AttachedTemplate.AutoTextEntries(txtbaustein). _
Insert Where:=Selection.Range, RichText:=True
End Function
___________________________________
schokobons
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
31.01.2013 21:31:14 |
Michael |
|
|
|
01.02.2013 14:01:02 |
schokobons |
|
|
|
04.02.2013 13:33:18 |
Gast89654 |
|
|
|
05.02.2013 09:46:27 |
schokobons |
|
|
|
05.02.2013 14:41:43 |
Michael Strasser |
|
|
Textauswahlfenster mit einfügen |
11.02.2013 10:15:46 |
schokobons |
|
|
|
18.02.2013 15:00:41 |
Michael |
|
|
|
19.02.2013 09:21:11 |
schokobons |
|
|
|
19.02.2013 10:26:12 |
Michael |
|
|
|
20.02.2013 15:12:01 |
schokobons |
|
|
|
20.02.2013 15:22:37 |
M. |
|
|
|
21.02.2013 08:26:03 |
schokobons |
|
|