大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
不清楚报错信息,只能给以下提示:
站在用户的角度思考问题,与客户深入沟通,找到永清网站设计与永清网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:做网站、成都做网站、企业官网、英文网站、手机端网站、网站推广、国际域名空间、网络空间、企业邮箱。业务覆盖永清地区。
1、工程--引用,选Microsoft Word 11.0 Object Library
2、声明并赋值word程序相关变量,注意步骤不能乱。
Dim appObj As New Word.Application '新建一个word程序对象
Dim docObj As Word.Document '声明文档对象,也可以用new新建
Dim strFile As String = "D:\MyDocu.doc"
docObj = appObj.Documents.Open(strFile, False, False, False, "", "", False, "", "", , False, False, False) '打开文档
docObj.Activate()'激活文档
.......
With docObj
.Save()
.Close()
End With
docObj = Nothing
appObj = Nothing
注意:声明word对象和文档对象,应该提示错误,你只需要点击“示警”图标,在展打的选项里选第1项导入就可以了。
将WDApp.wdParagraph直接修改成数值4,也就是变成 Unit:=4 试试看!
同时将后面的:Alignment:=WDAPP.wdAlignTabRight改成:Alignment:=2,
将Leader:=WDAPP.wdTabLeaderDashes改成: Leader:=2
如果今后遇到这种问题,直接打开Word,然后
sub xx()
msgbox wdParagraph
end sub
就可以得到wdParagraph的真实值。
‘首先,创建一个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