| |
VB.NET - Ein- und UmsteigerCommandBar und CommandBarButton | | | Autor: AnyVBUser | Datum: 10.03.11 16:03 |
| Hi,
ich versuch grad mal ne Symbolleiste mit einem Button in der Word-Anwendung zu erstellen.
Als Vorlage nutze ich diese Seite: http://msdn.microsoft.com/en-us/library/aa289518%28v=vs.71%29.aspx
Ich habe die Codes bei mir eingefügt und ggf. angepasst. Es werden bei mir keine Fehler angezeigt und ist kompilierbar.
Fürs Testen benutze ich Word 2003. Nun gut, ich habs getestet aber muss leider sagen dass es bei mir nicht funktioniert. In Word wird überhaupt keine Symbolleiste erstellt und kann auch keine neue Leiste im Kontextmenü (rechte Maustaste auf freie Stelle oben) sehen. Es muss doch funktionieren aber vielleicht kann mir JEMAND helfen?
Private Function AddWordToolbar(ByVal word As Outlook.Application, _
ByVal toolbarName As String) As Microsoft.Office.Core.CommandBar
Dim toolBar As Microsoft.Office.Core.CommandBar = Nothing
Try
' Create a command bar for the add-in
toolBar = CType(word.CommandBars.Add(toolbarName, _
Microsoft.Office.Core.MsoBarPosition.msoBarTop, , True), _
Microsoft.Office.Core.CommandBar)
toolBar.Visible = True
Return toolBar
Catch
' Add exception handling here.
Return Nothing
End Try
End Function
Private Function MakeANewButton(ByVal commandBar As _
Microsoft.Office.Core.CommandBar, ByVal caption As String, _
ByVal faceID As Integer, ByVal clickHandler As _
Microsoft.Office.Core._CommandBarButtonEvents_ClickEventHandler) _
As Microsoft.Office.Core.CommandBarButton
Try
Dim newButton As Microsoft.Office.Core.CommandBarButton
newButton = CType(commandBar.Controls.Add( _
Microsoft.Office.Core.MsoControlType.msoControlButton), _
Microsoft.Office.Core.CommandBarButton)
newButton.Caption = caption
newButton.FaceId = faceID
AddHandler newButton.Click, clickHandler
Return newButton
Catch ex As System.Exception
' Add code here to handle the exception.
Return Nothing
End Try
End Function
Public Sub insertText_Click(ByVal barButton As _
Microsoft.Office.Core.CommandBarButton, ByRef someBool As Boolean)
Dim text As String = ""
Dim data As System.Windows.Forms.IDataObject = _
System.Windows.Forms.Clipboard.GetDataObject()
If data.GetDataPresent(System.Windows.Forms.DataFormats.Text) Then
text = data.GetData( _
System.Windows.Forms.DataFormats.Text).ToString()
If (Not wordApp Is Nothing) Then
Me.wordApp.ActiveWindow.Selection.InsertBefore(text)
End If
End If
End Sub
Public Sub styleText_Click(ByVal barButton As _
Microsoft.Office.Core.CommandBarButton, ByRef someBool As Boolean)
Dim code As Object = "Code"
If (Not wordApp Is Nothing) Then
Me.wordApp.ActiveWindow.Selection.Style = code
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
'Dim toolbar As Microsoft.Office.Core.CommandBar
'Dim wordApp As Microsoft.Office.Interop.Outlook.Application = Nothing
'SetApplicationFields(wordApp.Application)
'If Not wordApp Is Nothing Then
' ToolBar = AddWordToolbar(wordApp, "Some useful toolbar.")
'End If
Dim insertText As Microsoft.Office.Core.CommandBarButton
Dim styleText As Microsoft.Office.Core.CommandBarButton
' Visual Basic
' Create a toolbar.
Dim toolbar As Microsoft.Office.Core.CommandBar = Nothing
If Not wordApp Is Nothing Then
toolbar = AddWordToolbar(wordApp, "Some useful toolbar.")
End If
' Create a button to add text.
insertText = MakeANewButton(toolbar, "Insert text", 1044, _
AddressOf insertText_Click)
' Create a button to style selected text.
styleText = MakeANewButton(toolbar, "Style text", 1081, _
AddressOf styleText_Click)
End Sub Danke im Voraus. ;) | |
Re: CommandBar und CommandBarButton | | | Autor: Micke | Datum: 10.03.11 17:16 |
| "ich versuch grad mal ne Symbolleiste mit einem Button in der Word-Anwendung zu erstellen."
wenn's nur darum geht, nen Knopf zu haben über den man Code (im Office) ausführen lassen kann, geht das viel einfacher:
- eigenes Addin schreiben
- legt man dieses im richtigen Pfad ab, kann man es auch direkt im Word auswählen,
und dabei definieren als welcher button es in der Symbolleiste auftauchen soll
Micke | |
Re: CommandBar und CommandBarButton | | | Autor: AnyVBUser | Datum: 24.03.11 14:33 |
| Okay, ich habe jetzt einen AddIn erstellt und konnte problemlos diesen Code einfügen: http://msdn.microsoft.com/de-de/library/scff9c7c%28v=VS.90%29.aspx
Aber wenn ich mein AddIn starte, dann öffnet sich eine neue Instanz, aber mehr nicht.
Es passiert nichts, ich sehe keine neue Sybolleiste und auch keinen neuen Button.
Was habe ich vergessen?
Beitrag wurde zuletzt am 24.03.11 um 14:33:50 editiert. | |
| Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
|
|
sevZIP40 Pro DLL
Zippen und Unzippen wie die Profis!
Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|