title image


Smiley Re: Eingabefeld für "Suchen nach ..." in den Toolbar einfügen?
Hallo



Etwas wie folgt, wobei das Makro SuchfeldEinrichten genau einmal ablaufen muss, wogegen sich das Makro GoAndSearch immer in der Normal.dot befinden muss.



Bye



Private Const Leiste = "Standard" 'Name der anvisierten Symbolleiste

Private Const Breite = 4 'Breite des Kombinationsfeld in Zentimeter

Private Const Tag = "RP20040224"



Sub SuchfeldEinrichten()

CustomizationContext = NormalTemplate

Dim x As CommandBarControl

Set x = CommandBars("Standard").Controls.Add(Type:=msoControlEdit)

With x

.Style = 1

.Caption = "Suchen"

.TooltipText = "Suchen im Text"

.Width = CentimetersToPoints(Breite)

.OnAction = "GoAndSearch"

End With

NormalTemplate.Save

End Sub



Sub GoAndSearch()

Dim x As CommandBarControl

Set x = CommandBars.ActionControl

Selection.HomeKey Unit:=wdStory

With Selection.Find

.ClearFormatting

.Text = x.Text

.Execute

End With

End Sub



Häufig gestelllte Fragen zu MS Word und Word-VBA
Index Inhalt



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: