ASP.NET操作Word文档

关注

转载最新推荐文章于 2025-06-15 17:28:30 发布 4.1k 阅读 AI 写同款· GEO 优化 ›

安卓车机DNS劫持与自定义服务部署实战本文详细介绍了在安卓车机上实现DNS劫持与自定义服务部署的完整流程。从搭建CentOS服务器环境、配置dnsmasq服务，到捕获车机域名、实施劫持与反向代理部署，提供了实战经验与优化技巧。重点讲解了防火墙配置、DNS查询分析与安全加固方案，帮助开发者高效构建稳定的自定义车机服务环境。阅读详情

操作ＷＯＲＤ配置说明

引入：Word的对象库文件“MSWORD.OLB”(word 2000为MSWORD9.OLB)(这是针对老版本的情况,在用vs.net2005的时候,直接在引用对话框中,在com组件里找到对word的库文件的引用就可以了,文件名好像是一样的.)

１.运行Dcomcnfg.exe
２.组件服务――计算机――我的电脑――DCOM配置――找到microsoft word 文档
３.点击属性
４.选择“安全性”
５.选定“使用自定义访问权限”和“使用自定义启动权限”
６.分别编辑权限，添加Everyone（ASPNET,VS Developers,Debugger User）(注:其实准确的应该是"ISUR_机器名"这个用户才对）
７.选择“身份标识”，在选定“交互式用户” 即可
８.在Web.config里加 <identity impersonate="true"/> （这句插在<system.web>段里就可以了）

C#:

ASP.NET操作Word文档一直是一个大家比较关心的话题，其实在ASP.NET里操作Word文档一点也不难，大家只需按本文提示，就能轻轻松松操作Word文档！
一、准备工作
首先请确认服务端已经安装了Office Word(以下将以Office XP为例)，操作系统为win2000或XP，并且已配置好.NET的运行环境及安装VS.NET C#开发环境后，我们就可以打开VS.NET，并新建一个Visual C#项目>ASP.NET Web应用程序，位置为“http://localhost/word”。
二、引用Word对象库文件
要操作Word，我们就需要Word的对象库文件“MSWORD.OLB”(word 2000为MSWORD9.OLB)，通常安装了Office Word后，你就可以在office安装目录的Office10文件夹下面找到这个文件，当我们将这个文件引入到项目后，我们就可以在源码中使用各种操作函数来操作Word。具体做法是打开菜单栏中的项目>添加引用>浏览，在打开的“选择组件”对话框中找到MSWORD.OLB后按确定即可引入此对象库文件，vs.net将会自动将库文件转化为DLL组件，这样我们只要在源码中创建该组件对象即可达到操作Word的目的！
三、Webform1.aspx.cs代码（vs.net2003默认新建页文件名都为webform1，在vs.net2005里已经换成了default1.aspx.cs了）
完成添加引用后，MSWORD.OLB已经转化为相关DLL文件并放置于项目的BIN目录下了，这样我们只需在源码中创建该对象，并使用word库文件内置的操作函数即可轻松实现操作Word，Webform1.aspx.cs源码如下：

using System;

using System.Collections;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Web;

using System.Web.SessionState;

using System.Web.UI;

using System.Web.UI.WebControls;

using System.Web.UI.HtmlControls;

/**////这些引用都可以不要了.在vs.net 2005里的web.config已经添加了上述引用.

namespace word

{

/**//// <summary>

/// Webform1 的摘要说明。

/// </summary>

public class Webform1 : System.Web.UI.Page

{

protected System.Web.UI.WebControls.TextBox SaveAs;

protected System.Web.UI.WebControls.Button Button;

protected System.Web.UI.WebControls.Label Label2;

protected System.Web.UI.WebControls.Label Label1;

protected System.Web.UI.WebControls.Label result;

protected System.Web.UI.WebControls.TextBox wordText;

Web form Designer generated code#region Web form Designer generated code

override protected void OnInit(EventArgs e)

{

// CODEGEN：该调用是 ASP.NET Web 窗体设计器所必需的。

InitializeComponent();

base.OnInit(e);

}

/**//// <summary>

/// 设计器支持所需的方法 - 不要使用代码编辑器修改

/// 此方法的内容。

/// </summary>

private void InitializeComponent()

{

this.Load += new System.EventHandler(this.Page_Load);

}

#endregion

public void Button_Click(object sender, System.EventArgs e)

{

Object Nothing=System.Reflection.Missing.value;

//取得Word文件保存路径

object filename=@SaveAs.Text;

//创建一个名为WordApp的组件对象

Word.Application WordApp=new Word.ApplicationClass();

//创建一个名为WordDoc的文档对象

Word.Document WordDoc=WordApp.Documents.Add(ref Nothing,ref Nothing,ref Nothing,ref Nothing);

//增加一表格

Word.Table table=WordDoc.Tables.Add(WordApp.Selection.Range,1,1,ref Nothing,ref Nothing);

//在表格第一单元格中添加自定义的文字内容

table.Cell(1,1).Range.Text=wordText.Text;

//在文档空白地方添加文字内容

WordDoc.Paragraphs.Last.Range.Text="Wellcome To Aspxcn.Com";

//将WordDoc文档对象的内容保存为DOC文档

WordDoc.SaveAs(ref filename,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing,ref Nothing);

//关闭WordDoc文档对象

WordDoc.Close(ref Nothing, ref Nothing, ref Nothing);

//关闭WordApp组件对象

WordApp.Quit(ref Nothing, ref Nothing, ref Nothing);

//返回结果

result.Text="文档路径：<a href="/"+SaveAs.Text+"'>"+SaveAs.Text+"</a>(点击链接查看)<br>生成结果：成功！";

}

private void Page_Load(object sender, System.EventArgs e)

{

}

四、Webform1.aspx代码

完成CS源码后，我们就可以设计Webform页面了，完整的代码如下：

@ Page language="c#" Codebehind="Webform1.aspx.cs" AutoEventWireup="false" Inherits="word.Webform1" %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >

<HTML>

<HEAD>

<title>基于Webforms的操作Word</title>

</HEAD>

<asp:TextBox id="wordText" style="Z-INDEX: 101; LEFT: 144px; POSITION: absolute; TOP: 129px" runat="server" Height="190px" Width="360px" TextMode="MultiLine"></asp:TextBox>

<asp:TextBox id="SaveAs" style="Z-INDEX: 102; LEFT: 143px; POSITION: absolute; TOP: 80px" runat="server" Width="360px">C:myword.doc</asp:TextBox>

<asp:Button id="Button" style="Z-INDEX: 103; LEFT: 237px; POSITION: absolute; TOP: 340px" runat="server" Width="98px" on onClick="Button_Click" Text="生成Word文档"></asp:Button>

<FONT face="宋体">基于Webforms的操作Word(小宝.NET)</FONT>

<asp:Label id="Label1" style="Z-INDEX: 105; LEFT: 143px; POSITION: absolute; TOP: 54px" runat="server" Width="187px" Height="18px">Word文件保存路径：</asp:Label>

<asp:Label id="Label2" style="Z-INDEX: 106; LEFT: 142px; POSITION: absolute; TOP: 107px" runat="server" Width="159px" Height="12px">Word文件内容：</asp:Label>

<asp:Label id="result" style="Z-INDEX: 107; LEFT: 148px; POSITION: absolute; TOP: 387px" runat="server" Width="352px" Height="18px" ForeColor="Red"></asp:Label>

</form>

</body>

</HTML>

五、web.config设置
web.config文件还需添加一句 <identity impersonate="true"/>以启用模拟身份，因为默认ASPNET这个用户是没有权限访问Word.ApplicationClass()，当启用模拟身份后所有页面将会使用匿名Internet用户帐户(IUSR_machinename)这个用户名的权限执行，这样我们就能成功访问Word.ApplicationClass()并在ASP.NET中操作Word！

VB.net:

Public Class WordClassClass WordClass

Public Function wirteWord()Function wirteWord(ByVal str As String, ByVal title As String) As Boolean

Dim WordApp As Word.Application

Dim WordDoc As Word.Document

Try

Dim obj As Object = System.Reflection.Missing.Value

'取得Word文件保存路径

Dim filename As Object = "C:InetpubwwwrootSLOA_NETdocumentDocManage" + title + ".doc"

'创建一个名为WordApp的组件对象

WordApp = New Word.ApplicationClass

'vs.net 2005里已经没有applicationclass了,直接用application即可

'创建一个名为WordDoc的文档对象

WordDoc = WordApp.Documents.Add()

'在文档空白地方添加文字内容

WordDoc.Paragraphs.Last.Range.Text = str

'保存

WordDoc.SaveAs(filename)

'关闭WordDoc文档对象

WordDoc.Close()

'关闭WordApp组件对象

WordApp.Quit()

Return True

Catch ex As Exception

If Not WordDoc Is Nothing Then

WordDoc.Close()

End If

If Not WordApp Is Nothing Then

WordApp.Quit()

End If

Return False

End Try

End Function

Public Function readWord()Function readWord(ByVal title As String) As String

Dim WordApp As Word.Application

Dim WordDoc As Word.Document

Try

Dim obj As Object = System.Reflection.Missing.Value

Dim filename As Object = "C:InetpubwwwrootSLOA_NETdocumentDocManage" + title + ".doc"

WordApp = New Word.ApplicationClass

WordDoc = WordApp.Documents.Open(filename)

Dim comment As String = WordDoc.Range.Text

WordDoc.Close()

WordApp.Quit()

Return comment

Catch ex As Exception

If Not WordDoc Is Nothing Then

WordDoc.Close()

End If

If Not WordApp Is Nothing Then

WordApp.Quit()

End If

Return Nothing

End Try

End Function

Public Function printWord()Function printWord(ByVal title As String) As Boolean

Dim WordApp As Word.Application

Dim WordDoc As Word.Document

Try

Dim obj As Object = System.Reflection.Missing.Value

Dim filename As Object = "C:InetpubwwwrootSLOA_NETdocumentDocManage" + title + ".doc"

WordApp = New Word.ApplicationClass

WordDoc = WordApp.Documents.Open(filename)

WordApp.Visible = True

'WordApp.ActivePrinter = WordDoc.Range.Text

'WordDoc.Close()

'WordApp.Quit()

Return True

Catch ex As Exception

'If Not WordDoc Is Nothing Then

'WordDoc.Close()

'End If

'If Not WordApp Is Nothing Then

'WordApp.Quit()

'End If

'Return Nothing

End Try

Return False

End Function

Public Function printSetWord()Function printSetWord(ByVal title As String)

Dim WordApp As Word.Application

Dim WordDoc As Word.Document

Try

Dim obj As Object = System.Reflection.Missing.Value

Dim filename As Object = "C:InetpubwwwrootSLOA_NETdocumentDocManage" + title + ".doc"

WordApp = New Word.ApplicationClass

WordDoc = WordApp.Documents.Open(filename)

WordApp.Visible = True

WordApp.PrintPreview = True

'WordDoc.Close()

'WordApp.Quit()

Catch ex As Exception

'If Not WordDoc Is Nothing Then

'WordDoc.Close()

'End If

'If Not WordApp Is Nothing Then

'WordApp.Quit()

'End If

'Return Nothing

End Try

End Function

Public Function viewWord()Function viewWord(ByVal title As String)

Dim WordApp As Word.Application

Dim WordDoc As Word.Document

Try

Dim obj As Object = System.Reflection.Missing.Value

Dim filename As Object = "C:InetpubwwwrootSLOA_NETdocumentDocManage" + title + ".doc"

WordApp = New Word.ApplicationClass

WordDoc = WordApp.Documents.Open(filename)

WordApp.Visible = True

WordApp.PrintPreview = True

Catch ex As Exception

If Not WordDoc Is Nothing Then

WordDoc.Close()

End If

If Not WordApp Is Nothing Then

WordApp.Quit()

End If

Return Nothing

End Try

End Function

End Class

收录于

asp.net

标签

#文档 #asp.net #webform #object #exception

保姆级教程：手把手教你从NASA Earthdata免费下载ASTER L2地表温度数据（附shp文件拖拽技巧）本文提供了一份详细的ASTER L2地表温度数据下载指南，涵盖从NASA Earthdata注册、数据定位到shp文件拖拽技巧的全流程。特别针对新手常见问题如邮箱选择、密码设置、云量筛选等给出实用解决方案，帮助用户高效获取遥感数据并避免常见陷阱。阅读详情

ASP.NET操作Word文档

相关推荐