微信公众号搜"智元新知"关注
微信扫一扫可直接关注哦!

在VSTO Microsoft Word加载项中自动按组合键alt + x

如何解决在VSTO Microsoft Word加载项中自动按组合键alt + x

我想创建一个Microsoft Word加载项。主要功能是下拉菜单或组合框菜单。 在下拉菜单项中,值包含一个单词。当用户选择项目时,应将其转换为Unicode并显示在工作表中。但是,我要进行特殊操作。

示例: 物品=“阿拉” Unicode = FDF2

用户选择项目“阿拉”时,它将转换为Unicode“ FDF2”,并自动按alt + x将Unicode更改为伊斯兰图案。

这是我的代码

Imports Microsoft.Office.Tools.Ribbon

Public Class Ribbon1

    Private Sub Ribbon1_Load(ByVal sender As System.Object,ByVal e As RibbonUIEventArgs) Handles MyBase.Load
        AddItemsToDropDown()
    End Sub

    Private Sub ComboBox1_TextChanged(sender As Object,e As RibbonControlEventArgs) Handles ComboBox1.TextChanged

        Label1.Label = Me.ComboBox1.Text
    End Sub

    Sub AddItemsToDropDown()
        Dim itemX As RibbonDropDownItem = Globals.Factory.GetRibbonFactory().CreateRibbonDropDownItem
        Dim itemY As RibbonDropDownItem = Globals.Factory.GetRibbonFactory().CreateRibbonDropDownItem
        Dim itemZ As RibbonDropDownItem = Globals.Factory.GetRibbonFactory().CreateRibbonDropDownItem
        itemX.Label = "Allah"
        itemY.Label = "Rasulullah"
        itemZ.Label = "Sall Allahu alayhi wa sallam"
        Me.ComboBox1.Items.Add(itemX)
        Me.ComboBox1.Items.Add(itemY)
        Me.ComboBox1.Items.Add(itemZ)


    End Sub
End Class

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。