Über Ribbon auf Document zugreifen Word

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von okster.

    Über Ribbon auf Document zugreifen Word

    Jetzt habe ich es hinbekommen wie ich ein Word addin erstellen kann.

    Ich finde kein Tutorial dazu.

    Falls ihr eins habt ich währe dankbar.

    Aber als erstes würde mir langen wie ich von einem Ribbon aus Auf das Document zugreifen kann und Text an der Courserstelle einfügen kann, wenn ein Button auf dem Ribbon geklickt wurde.

    Danke schonmal

    hm. Das würde bestimmt gehen:)
    aber ich arbeite grade an einem projekt mit der testversion von visualstudio. Da kann man ja auch addins erstellen.
    Das ribbon habe ich jetzt schon erstellt. in der klasse thisAddin kann ich ja mit:

    VB.NET-Quellcode

    1. Application.Selection.Text += "Text"

    Text in das Document einfügen.

    jetzt will ich wenn ich einen button in dem ribbon anklicke das ich dann Text einfüge.

    meine versuche

    1. mit meiner eigenen new methode die variable application zu übergeben(Application wird nicht vollständig übergeben und ist in der klassse nachher zu "nothing")

    2. oder mit dem event empfangen(auf event wird nicht reagiert.)




    einmal mein code:

    VB.NET-Quellcode

    1. Public Class ThisAddIn
    2. Friend WithEvents ribb As Ribbon1
    3. Sub b(ByVal a As String) Handles ribb.einfügen
    4. Application.Selection.Text += a
    6. End Sub
    7. Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
    8. ribb = New Ribbon1(Application)
    9. addhandler ribb.empfangen, addressof b
    10. End Sub
    11. End Class

    in der klasse Ribbon1:


    Ribbon1_load:
    Hier lade ich werte aus einer Exceltabelle aus mit einer klasse von mir (clsExcel)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim a As New clsExcel
    3. Dim names(-1) As String
    4. Private Sub Ribbon1_Load(ByVal sender As Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonUIEventArgs) Handles Me.Load
    5. a.ExcelDateiName = "C:\Users\Oke\Documents\Visual Studio 2008\Projects\WordAddIn2\WordAddIn2\bin\Debug\Tabelle.xls"
    6. a.Zellzugriff("A1")
    7. Dim i As Integer = 1
    8. Do
    9. Dim str As String
    10. str = a.Zellwert(0, i)
    11. If str = "" Then
    12. Exit Do
    13. End If
    14. str = str.Replace("|", "/")
    15. ReDim Preserve names(names.Length)
    16. names(names.GetUpperBound(0)) = str
    17. Dim but As New Microsoft.Office.Tools.Ribbon.RibbonDropDownItem()
    18. but.Label = str & "-Gebühr"
    19. DropDown1.Items.Add(but)
    20. i += 1
    21. Loop
    22. a.ExcelSchließen(False)
    23. End Sub

    Button1_click:
    wenn butten geklickt wird lese gebe ich text aus
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonControlEventArgs) Handles Button1.Click
    2. dim s as string = "hallo"
    3. MsgBox(s)
    4. RaiseEvent einfügen(s)
    5. End Sub

    InitializeComponent:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. <System.Diagnostics.DebuggerStepThrough()> _
    2. Private Sub InitializeComponent()
    3. Me.Tab1 = New Microsoft.Office.Tools.Ribbon.RibbonTab
    4. Me.Group1 = New Microsoft.Office.Tools.Ribbon.RibbonGroup
    5. Me.DropDown1 = New Microsoft.Office.Tools.Ribbon.RibbonDropDown
    6. Me.EditBox1 = New Microsoft.Office.Tools.Ribbon.RibbonEditBox
    7. Me.Button1 = New Microsoft.Office.Tools.Ribbon.RibbonButton
    8. Me.Group2 = New Microsoft.Office.Tools.Ribbon.RibbonGroup
    9. Me.Button3 = New Microsoft.Office.Tools.Ribbon.RibbonButton
    10. Me.ToggleButton1 = New Microsoft.Office.Tools.Ribbon.RibbonToggleButton
    11. Me.Button2 = New Microsoft.Office.Tools.Ribbon.RibbonButton
    12. Me.Button4 = New Microsoft.Office.Tools.Ribbon.RibbonButton
    13. Me.Tab1.SuspendLayout()
    14. Me.Group1.SuspendLayout()
    15. Me.Group2.SuspendLayout()
    16. Me.SuspendLayout()
    17. '
    18. 'Tab1
    19. '
    20. Me.Tab1.ControlId.ControlIdType = Microsoft.Office.Tools.Ribbon.RibbonControlIdType.Office
    21. Me.Tab1.Groups.Add(Me.Group1)
    22. Me.Tab1.Groups.Add(Me.Group2)
    23. Me.Tab1.Label = "GVAN"
    24. Me.Tab1.Name = "Tab1"
    25. '
    26. 'Group1
    27. '
    28. Me.Group1.Items.Add(Me.DropDown1)
    29. Me.Group1.Items.Add(Me.EditBox1)
    30. Me.Group1.Items.Add(Me.Button1)
    31. Me.Group1.Label = "Einfügen"
    32. Me.Group1.Name = "Group1"
    33. '
    34. 'DropDown1
    35. '
    36. Me.DropDown1.Label = "Gebühr"
    37. Me.DropDown1.Name = "DropDown1"
    38. '
    39. 'EditBox1
    40. '
    41. Me.EditBox1.Label = "Geschäftswert"
    42. Me.EditBox1.Name = "EditBox1"
    43. Me.EditBox1.Text = Nothing
    44. '
    45. 'Button1
    46. '
    47. Me.Button1.Label = "Einfügen"
    48. Me.Button1.Name = "Button1"
    49. '
    50. 'Group2
    51. '
    52. Me.Group2.Items.Add(Me.Button4)
    53. Me.Group2.Items.Add(Me.Button3)
    54. Me.Group2.Items.Add(Me.ToggleButton1)
    55. Me.Group2.Label = "Optionen"
    56. Me.Group2.Name = "Group2"
    57. '
    58. 'Button3
    59. '
    60. Me.Button3.Label = "Tabelle ändern"
    61. Me.Button3.Name = "Button3"
    62. '
    63. 'ToggleButton1
    64. '
    65. Me.ToggleButton1.Label = "Nur Wert einfügen"
    66. Me.ToggleButton1.Name = "ToggleButton1"
    67. '
    68. 'Button2
    69. '
    70. Me.Button2.Label = ""
    71. Me.Button2.Name = "Button2"
    72. '
    73. 'Button4
    74. '
    75. Me.Button4.Label = "Text ändern"
    76. Me.Button4.Name = "Button4"
    77. '
    78. 'Ribbon1
    79. '
    80. Me.Name = "Ribbon1"
    81. Me.RibbonType = "Microsoft.Word.Document"
    82. Me.Tabs.Add(Me.Tab1)
    83. Me.Tab1.ResumeLayout(False)
    84. Me.Tab1.PerformLayout()
    85. Me.Group1.ResumeLayout(False)
    86. Me.Group1.PerformLayout()
    87. Me.Group2.ResumeLayout(False)
    88. Me.Group2.PerformLayout()
    89. Me.ResumeLayout(False)
    91. End Sub
    93. Friend WithEvents Tab1 As Microsoft.Office.Tools.Ribbon.RibbonTab
    94. Friend WithEvents Group1 As Microsoft.Office.Tools.Ribbon.RibbonGroup
    95. Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton
    96. Friend WithEvents DropDown1 As Microsoft.Office.Tools.Ribbon.RibbonDropDown
    97. Friend WithEvents Button2 As Microsoft.Office.Tools.Ribbon.RibbonButton
    98. Friend WithEvents EditBox1 As Microsoft.Office.Tools.Ribbon.RibbonEditBox
    99. Friend WithEvents Group2 As Microsoft.Office.Tools.Ribbon.RibbonGroup
    100. Friend WithEvents ToggleButton1 As Microsoft.Office.Tools.Ribbon.RibbonToggleButton
    101. Friend WithEvents Button3 As Microsoft.Office.Tools.Ribbon.RibbonButton
    102. Friend WithEvents Button4 As Microsoft.Office.Tools.Ribbon.RibbonButton


    new und dispose subs (auch eine eigene von mir mit der ich versuche die variable application von der Klasse ThisAddin zu übergeben)
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private applica As Word.Application
    2. <System.Diagnostics.DebuggerNonUserCode()> _
    3. Public Sub New()
    4. MyBase.New()
    6. 'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
    7. InitializeComponent()
    9. End Sub
    10. Public Sub New(ByVal ab As Word.Application)
    11. applica = ab
    12. 'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
    13. InitializeComponent()
    14. End Sub
    15. 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
    16. <System.Diagnostics.DebuggerNonUserCode()> _
    17. Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    18. Try
    19. If disposing AndAlso components IsNot Nothing Then
    20. components.Dispose()
    21. End If
    22. Finally
    23. MyBase.Dispose(disposing)
    24. End Try
    25. End Sub


    Ich hoffe man das man ein bisschen den überblickbehalten kann:P

Facebook
Telefonspende