锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net写word的简单介绍

IT技术创建

VB.NET Word创建表格并录入文字‘首先，创建一个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
vb.net 如何创建一个word文档Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.IO.Directory.CreateDirectory("C:\我的文件夹") '创建目录,路径就自己改吧,如果路径存在,就没必要创建了
System.IO.File.Create("C:\我的文件夹\我的文件.doc") '在指定目录下创建word文档
End Sub
如何在VB中建立word文档，并写入文字和图片？首先说明，你这样是写TXT，不是DOC ， 虽然Word可以打开，但根本就不是Word文件 。当然不能存储图片了 。请参考我以下的代码 。建一个Command1 。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim
ap
As
Word.Application,
doc
As
【vb.net写word的简单介绍】Document
Private
Sub
Form_Load()
'这个过程不必做修改，是建立一个新的Word文档
Set
ap
=
CreateObject("word.application")
ap.Visible
=
True
Set
doc
=
ap.Documents.Add
End
Sub
Private
Sub
Command1_Click()
doc.Content.InsertAfter
Text:="请输入你要输入的内容"
'插入文字 ， 请使用这种格式
doc.Shapes.AddPicture
FileName:="D:\a.jpg"
'插入图片，请使用这种格式，路径自己写
End
Sub
其他问题再找我 。
vb.net怎么对word进行操作？？？？不清楚报错信息，只能给以下提示：
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项导入就可以了 。
vb.net操作word将WDApp.wdParagraph直接修改成数值4，也就是变成 Unit:=4 试试看！
同时将后面的：Alignment:=WDAPP.wdAlignTabRight改成：Alignment:=2,
将Leader:=WDAPP.wdTabLeaderDashes改成： Leader:=2
如果今后遇到这种问题，直接打开Word ， 然后

推荐阅读


上一篇：linux文件处理命令，linux处理文本文件

下一篇：沉浸式学英语直播话术，直播讲英语