重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
‘首先,创建一个VB.NET项目,再点击菜单”项目“-”添加引用“,在”Com“-”类型库“里,选择Microsoft.Word 14.0 Object Library(对应Office版本为2010),将以下代码复制粘贴到Form1窗体替换原代码。
成都创新互联是网站建设技术企业,为成都企业提供专业的网站制作、网站设计,网站设计,网站制作,网站改版等技术服务。拥有十年丰富建站经验和众多成功案例,为您定制适合企业的网站。十年品质,值得信赖!
’PS:以下代码仅创建表格,将第行2至4列合并,添加1个文字,其他的你自己分析。
Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word '引入Word
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim DWrd As New Word.Application, DDoc As Word.Document '定义Word及文档对象
DDoc = DWrd.Documents.Add '新增文档
Dim DTbl As Word.Table '定义表格对象
DTbl = DDoc.Tables.Add(DDoc.Range, 7, 4) '新增表格
DTbl.Style = "网格型" '表格的样式
DTbl.Cell(1, 2).Select() '选择起始单元格为第1行/第2列
DWrd.Selection.MoveRight(, 2, SelectionMode.MultiExtended) '向右扩展两个单元格(即选择第1行的第2至4列)
DWrd.Selection().Cells.Merge() '单元格合并
DTbl.Cell(1, 1).Range.Text = 1 '在第1个单元格填写文本
DWrd.Visible = True '显示Word
End Sub
End Class
你是用输入法的吧,这个是.Net Framework的Bug吧,用输入法的步骤如下:
1、首先保证文本框有焦点
2、按下2次Ctrl+空格
3、切换到自己要用的输入法
这样一般都可以了
方法和详细的操作步骤如下:
1、第一步,打开VB软件并在表单上添加一个列表框,见下图,转到下面的步骤。
2、第二步,执行完上面的操作之后,单击列表框,然后在属性窗口中,设置列表框的已知属性和内容,见下图,转到下面的步骤。
3、第三步,执行完上面的操作之后,在表单上,添加两个命令按钮,见下图,转到下面的步骤。
4、第四步,执行完上面的操作之后,分别设置两个命令按钮的属性,见下图,转到下面的步骤。
5、第五步,执行完上面的操作之后,双击“清除”命令按钮以编辑其代码,见下图,转到下面的步骤。
6、第六步,执行完上面的操作之后,运行程序并验证结果。
在列表框中选择“语言”,然后单击“复制”命令按钮,然后将“语言”项复制到列表框中,见下图。这样,就解决了这个问题了。