论坛首页 综合技术论坛

perl-操作ole,比如操作word

浏览 2608 次
精华帖 (0) :: 良好帖 (0) :: 新手帖 (0) :: 隐藏帖 (0)
作者 正文
   发表时间:2010-03-08   最后修改:2010-03-08

use warnings;
use strict;

use Win32::OLE;

my $word = CreateObject Win32::OLE 'Word.Application' or die $!;
$word->{'Visible'} = 1;

my $document = $word->Documents->Add;

my $selection = $word->Selection;

$selection -> TypeText("大家好");
$selection -> TypeParagraph;
$selection -> TypeText("How do you feel today");
$selection -> TypeParagraph;

$document->saveas('D:\深未来\测试\xxxxx.doc')   ;
$word->quit();

 

 

 具体说明:

 

Saving Word 2007 Documents to PDF and XPS Formats<!---->
<!--Content type: DocStudio. Transform: devdiv2mtps.xslt.-->
<!----><!--src=[..\local\2b72d016-a0b3-49b4-ad23-0e4925c20222.gif]-->Office Visual How To

Applies to: 2007 Microsoft Office System, Microsoft Office Word 2007

Joel Krist, Akona Systems

April 2007

<!---->

<!--src=[..\local\97421a3c-b771-4007-988f-496df6b850d3.gif]-->Overview

The 2007 Microsoft Office Add-in: Microsoft Save as PDF and 2007 Microsoft Office Add-in: Microsoft Save as XPS allow a Microsoft Office Word 2007 to export and save documents in the PDF and XPS formats. This article illustrates how to use the Microsoft Word 12.0 Object Library to access the Word 2007 Document.ExportAsFixedFormat method to programmatically convert an existing Word 2007 document to either the PDF format or the XPS format.

<!--src=[..\local\ea6729f8-0f4e-41ff-bbec-a743cfa2929c.gif]-->Code It

Download the Code Sample

To illustrate how to programmatically save a Word 2007 document to either the PDF format or the XPS format, this section walks through five key steps.

To programmatically save a Word 2007 document to either the PDF format or the XPS format
  1. Add a reference to the Word 12.0 Object Library.

  2. Import the Word 2007 interop assembly namespace.

  3. Create an instance of the ApplicationClass object.

  4. Declare the appropriate variables

  5. Implement the conversion code.

1. Add a Reference to the Word 12.0 Object Library

First, add a reference to the Microsoft Word 12.0 Object Library to the Visual Studio project. To do this, right-click the project in the Visual Studio Solution Explorer and select the Add Reference… menu item. Select the COM tab in the Add Reference dialog box, then scroll down to the Microsoft Word 12.0 Object Library component, select it, and then click OK to add the reference.

Figure 1. Adding a Reference

<!--src=[..\local\ea56098a-41b8-461f-8970-0c0def5c26dc.gif]-->Adding a reference

2. Import the Word Interop Namespace

Next, import the Microsoft.Office.Interop.Word namespace. This allows objects that are defined in that namespace to be referred to without having to specify the fully qualified namespace path. To import the namespace, add the following line to the top of the source file.

Visual Basic
Imports Microsoft.Office.Interop.Word
using Microsoft.Office.Interop.Word;

For Microsoft Visual Basic projects, you can also import the namespace by right-clicking the project in the Visual Studio Solution Explorer and selecting the Properties menu item. On the project properties page, select the References tab and then select the check box next to the Microsoft.Office.Interop.Word entry in the list of imported namespaces.

3. Create an Instance of the Word ApplicationClass Object

To work with the Word 2007 object model, create an instance of the Word 2007 top-level ApplicationClass object and declare a variable to hold the reference to the document.

Visual Basic
Dim wordApplication As ApplicationClass = New ApplicationClass()
Dim wordDocument As Document = Nothing
ApplicationClass wordApplication = new ApplicationClass();
Document wordDocument = null;

4. Declare Appropriate Variables

The following code blocks declare variables that help to make the parameters that are passed to methods used in the conversion code easier to read. The following variables are used with the Documents.Open method and ApplicationClass.Quit method.

Use the paramSourceDocPath variable to specify the path and filename of the Word 2007 document that is to be exported to either the PDF format or the XPS format.

Use the paramMissing variable when calling methods that accept optional parameters. Optional parameters are only optional when you use Microsoft Visual Basic. You must specify a value for optional parameters when you use Microsoft Visual C#. Using Type.Missing as the value for an optional parameter indicates that the parameter is not specified and that the method should use the parameter's default value.

Visual Basic
Dim paramSourceDocPath As String = "C:\Temp\Test.docx"
object paramSourceDocPath = @"C:\Temp\Test.docx";
object paramMissing = Type.Missing;

The following variables are used with the Document.ExportAsFixedFormat method. The paramExportFormat variable is important because it is used to specify the format in which to export the document. The paramExportFormat variable is of the WdExportFormat type. It is an enumerated type which has two values, wdExportFormatXPS and wdExportFormatPDF. The following sample code sets the paramExportFormat variable to the WdExportFormat.wdExportFormatXPS value to export a document to the XPS format. To change the code to export a document in the PDF format, set the variable to the WdExportFormat.wdExportFormatPDF value. For more information on the ExportAsFixedFormat method and the parameters that it accepts, see Docment.ExportAsFixedFormat.

Visual Basic
Dim paramExportFilePath As String = "C:\Temp\Test.xps"
Dim paramExportFormat As WdExportFormat = _
    WdExportFormat.wdExportFormatXPS
Dim paramOpenAfterExport As Boolean = False
Dim paramExportOptimizeFor As WdExportOptimizeFor = _
    WdExportOptimizeFor.wdExportOptimizeForPrint
Dim paramExportRange As WdExportRange = _
    WdExportRange.wdExportAllDocument
Dim paramStartPage As Int32 = 0
Dim paramEndPage As Int32 = 0
Dim paramExportItem As WdExportItem = _
    WdExportItem.wdExportDocumentContent
Dim paramIncludeDocProps As Boolean = True
Dim paramKeepIRM As Boolean = True
Dim paramCreateBookmarks As WdExportCreateBookmarks = _
    WdExportCreateBookmarks.wdExportCreateWordBookmarks
Dim paramDocStructureTags As Boolean = True
Dim paramBitmapMissingFonts As Boolean = True
Dim paramUseISO19005_1 As Boolean = False
string paramExportFilePath = @"C:\Temp\Test.xps";
WdExportFormat paramExportFormat = WdExportFormat.wdExportFormatXPS;
bool paramOpenAfterExport = false;
WdExportOptimizeFor paramExportOptimizeFor =
    WdExportOptimizeFor.wdExportOptimizeForPrint;
WdExportRange paramExportRange = WdExportRange.wdExportAllDocument;
int paramStartPage = 0;
int paramEndPage = 0;
WdExportItem paramExportItem = WdExportItem.wdExportDocumentContent;
bool paramIncludeDocProps = true;
bool paramKeepIRM = true;
WdExportCreateBookmarks paramCreateBookmarks = 
    WdExportCreateBookmarks.wdExportCreateWordBookmarks;
bool paramDocStructureTags = true;
bool paramBitmapMissingFonts = true;
bool paramUseISO19005_1 = false;

5. Implement the Conversion Code

Next add code that opens the source document, exports it to the specified format, and exits Word 2007. Making the call to the Document.ExportAsFixedFormat method throws an exception if the add-in for the format is not currently installed. To handle this situation, the conversion code is wrapped in a Try…Catch block. The code that exits Word 2007, which allows it to unload from memory, is located in a Finally block. The shutdown-related code closes the Word 2007 document, exits the Word 2007 application, releases references to the underlying Word 2007 COM objects, and makes calls to the .NET garbage collector. For more information about how to release COM objects when you use managed code, see Chapter 2: Basics of Office Interoperability (Part 2 of 3) from the book Microsoft .NET Development for Microsoft Office.

Visual Basic
Try
    ' Open the source document.
    wordDocument = wordApplication.Documents.Open(paramSourceDocPath)

    ' Export it in the specified format.
    If Not wordDocument Is Nothing Then
        wordDocument.ExportAsFixedFormat(paramExportFilePath, _
            paramExportFormat, paramOpenAfterExport, _
            paramExportOptimizeFor, paramExportRange, paramStartPage, _
            paramEndPage, paramExportItem, paramIncludeDocProps, _
            paramKeepIRM, paramCreateBookmarks, _
            paramDocStructureTags, paramBitmapMissingFonts, _
            paramUseISO19005_1)
    End If
Catch ex As Exception
    ' Respond to the error
Finally
    ' Close and release the Document object.
    If Not wordDocument Is Nothing Then
        wordDocument.Close(False)
        wordDocument = Nothing
    End If

    ' Quit Word and release the ApplicationClass object.
    If Not wordApplication Is Nothing Then
        wordApplication.Quit()
        wordApplication = nothing
    End If

    GC.Collect()
    GC.WaitForPendingFinalizers()
    GC.Collect()
    GC.WaitForPendingFinalizers()
End Try
try
{
    // Open the source document.
    wordDocument = wordApplication.Documents.Open(
        ref paramSourceDocPath, ref paramMissing, ref paramMissing,
        ref paramMissing, ref paramMissing, ref paramMissing,
        ref paramMissing, ref paramMissing, ref paramMissing,
        ref paramMissing, ref paramMissing, ref paramMissing,
        ref paramMissing, ref paramMissing, ref paramMissing,
        ref paramMissing);

    // Export it in the specified format.
    if (wordDocument != null)
        wordDocument.ExportAsFixedFormat(paramExportFilePath,
            paramExportFormat, paramOpenAfterExport, 
            paramExportOptimizeFor, paramExportRange, paramStartPage,
            paramEndPage, paramExportItem, paramIncludeDocProps, 
            paramKeepIRM, paramCreateBookmarks, paramDocStructureTags, 
            paramBitmapMissingFonts, paramUseISO19005_1,
            ref paramMissing);
}
catch (Exception ex)
{
    // Respond to the error
}
finally
{
    // Close and release the Document object.
    if (wordDocument != null)
    {
        wordDocument.Close(ref paramMissing, ref paramMissing,
            ref paramMissing);
        wordDocument = null;
    }

    // Quit Word and release the ApplicationClass object.
    if (wordApplication != null)
    {
        wordApplication.Quit(ref paramMissing, ref paramMissing,
            ref paramMissing);
        wordApplication = null;
    }
    
    GC.Collect();
    GC.WaitForPendingFinalizers();
    GC.Collect();
    GC.WaitForPendingFinalizers();
}
<!--src=[..\local\3015c8ed-3644-4fc7-b31a-440e0c377ad0.gif]-->Read It

There are a number of scenarios in which you may want to develop a Microsoft Office business application that requires both dynamic and static views of the same document. In Word 2007 you can use the 2007 Microsoft Office Add-in: Microsoft Save as PDF and 2007 Microsoft Office Add-in: Microsoft Save as XPS to save a Word 2007 document as either a PDF document or an XPS document.

The key object that is used to save a Word 2007 document in either the PDF format or the XPS format is the Document object. The Document object has a method called Document.ExportAsFixedFormat, which has a number of key parameters that it accepts to save the target document in the desired format. This article specifically explores how to use the Documents.Open method and Document.ExportAsFixedFormat method to programmatically save a Word 2007 document as either a PDF document or an XPS document.

To programmatically save a Word 2007 document as either a PDF document or an XPS document
  1. Add a reference to the Word 12.0 Object Library to the project. This marks that the project uses the Word 12.0 Object Library.

  2. Import the Microsoft.Office.Interop.Word namespace. This allows code to use the classes and types exposed as part of the Microsoft.Office.Interop.Word namespace without having to specify the fully qualified namespace path.

  3. Create an instance of the Word 2007 ApplicationClass object. This is the top-most class in the Word 2007 object model hierarchy, and is the starting point for working with the other classes in the object model.

  4. Declare variables to help with method calls. This helps to make the parameters that are passed to methods used in the conversion code easier to read.

  5. Implement the conversion code. The final step provides code to implement the programmatic conversion.

<!--src=[../local/note.gif]-->Bb412305.note(en-us,office.12).gifNote:
The preceding example code used the Type.Missing object to specify that an optional parameter was not provided and that the default parameter value should be used. To change the behavior to use something other than the default parameter types and values, specify the appropriate parameter types and values. For more information about the Documents.Open method and Document.ExportAsFixedFormat method and the parameters that they accept, see the Word 2007 Object Model Reference.<!---->

<!---->

Microsoft 提供的编程示例只,用于说明不附带任何明示或暗示保证。这包括,但不限于对适销性或针对特定用途的适用性的暗示的担保。本文假定您熟悉演示了正在使用的编程语言以及用于创建和调试过程的工具。Microsoft 支持工程师可以帮助解释某个特定过程的功能,但他们不会修改这些示例以提供额外的功能或构建过程来满足您的具体要求。

自动化 (以前称为 OLE 自动化) 是程序用来公开它们的对象的开发工具、 宏语言和其他支持自动化的程序功能。例如对于电子表格程序可能会使工作表、 图表、 单元格或区域的单元格,每个为不同类型的对象。字处理器可能会公开对象 (如应用程序、 文档、 段落、 句子、 一个书签或所选内容。

当一个程序支持自动化时可以使用 Visual Basic 应用程序的访问它公开的对象。为应用程序操作这些对象在 Visual Basic 中的,通过调用方法在对象上或通过获取并设置该对象的属性。

可以使用代码示例在这篇文章中来控制 Word 从 Microsoft Access 2000、 Microsoft Excel 2000、 Microsoft PowerPoint 2000、 Microsoft Visual Basic 应用程序,或来控制 Word 支持自动化的任何其他客户端。

入门 》

<script type="text/javascript"></script> 有 Word for Windows 自动执行的四个主要步骤:
  1. 添加到 Microsoft Word 9.0 对象库 的引用。
  2. 将变量声明为一个 Word 对象类型 (应用程序、 文档,和 so on)。
  3. 分配给您在步骤 2 中声明该对象变量 CreateObject 函数返回该对象。
  4. 使用属性和方法的对象变量来使 Word 自动运行。

第 1 步: 添加到 Word 9.0 对象库的引用

<script type="text/javascript"></script> 若要将对使用 Microsoft Access 2000、 Microsoft PowerPoint 2000,或 Microsoft Excel 2000 中,Microsoft Word 9.0 对象库 的引用,请按照下列步骤操作:

  1. 在 Microsoft Access、 PowerPoint,或 Excel 工具 菜单上的指向 ,然后单击 Visual Basic 编辑器
  2. 在 Visual Basic 编辑器中,在 工具 菜单上单击 引用
  3. 可用引用 的列表,单击以选中 Microsoft Word 9.0 对象库 复选框。
: 添加该引用,使用 Microsoft Visual Basic 6.0 中,请在 项目 菜单上单击 引用

添加在 Microsoft Word 9.0 对象库 的引用允许您访问 Microsoft Word 联机帮助和 Microsoft Word vba 的应用程序的常数、 属性和方法的程序。注意若要直接自动化 Word 对象类型所需的 Microsoft Word 9.0 对象库 的引用。

添加到 Microsoft Word 9.0 对象库 的引用称为早期绑定。

有关对象绑定的详细信息请参阅 Microsoft 知识库中下面的文章:

138138  (http://support.microsoft.com/kb/138138/EN-US/ ) 信息: 最晚,ID,早期绑定类型可能在 VB 中为应用程序

步骤 2: 声明对象变量

<script type="text/javascript"></script> 若要声明对象变量,您变量就像维度任何变量,在于您可以声明该对象时指定类型的维度。例如对于 Word.Application文档,和 段落 是单独的 Word 对象。

下面的示例命令行声明为类型 Word.Application 的对象的变量 objWD:

Dim objWD as Word.Application
				

步骤 3: 设置变量

<script type="text/javascript"></script> 有两个 Visual Basic 函数,您可以使用"绑定"到 Word 的已声明的对象变量: CreateObjectGetObject。主要区别是 word 的 word 的 CreateObject 函数创建一个新的实例,并且 GetObject 函数使用现有,或已经正在运行实例。您还可以使用 GetObject 将您的对象变量绑定到特定的 Word 文档。

下面的示例命令行将 objWD 变量绑定到 Word 使用 CreateObject 函数:
Dim objWD as Word.Application
   Set objWD = CreateObject("Word.Application")
				
的下面的示例命令行将 objWdDoc 变量绑定到特定的 Word 文档:
Dim objWdDoc As Word.Document
   Set objWdDoc = GetObject("c:\my documents\doc1.doc")
				
: 建议您在自动化 Word for Windows 使用仅 CreateObject 函数。如果型 WordMail 正在运行,或如果 Word 文档嵌入在另一个程序内,GetObject 函数可能导致出现不可预知的行为。

有关帮助您使用 vba 的应用程序的详细信息请参阅 Microsoft 知识库中下面的文章:
237338  (http://support.microsoft.com/kb/237338/EN-US/ ) WD2000: 如何使用自动化型 WordMail 检查

步骤 4: 使用属性和方法,可自动进行 Word

<script type="text/javascript"></script> 您完成步骤 1 到步骤 3 您可以使用对象变量来使 Word 自动运行。

下面的示例宏使用自动化创建 Word 对象、 创建新文档、 添加一些的文本和保存该文档。
Sub AutomateWord()
   ' Declare the variable.
   Dim objWD As Word.Application
   ' Set the variable (runs new instance of Word.)
   Set objWD = CreateObject("Word.Application")
   ' Add a new document.
   objWD.Documents.Add
   ' Add some text.
   objWD.Selection.TypeText "This is some text."
   ' Save the document.
   objWD.ActiveDocument.SaveAs filename:="mydoc.doc"
   ' Quit Word.
   objWD.Quit
   ' Clear the variable from memory.
   Set objWD = Nothing
End Sub
				
: 下面的示例宏复制过程所述 AutomateWord 宏,并直接在 Word 中运行:
Sub WordMacro()
   Documents.Add
   Selection.TypeText "This is some text"
   ActiveDocument.SaveAs filename:="mydoc.doc"
   Quit
End Sub
				

参考
特定于自动化 Word 使用 Visual Basic 应用程序的详细信息,请参阅以下资源。 Microsoft Office 开发人员 Web 站点http:...

<script type="text/javascript"></script>

特定于自动化 Word 使用 Visual Basic 应用程序的详细信息,请参阅以下资源。

Microsoft Office 开发人员 Web 站点

<script type="text/javascript"></script>http://msdn.microsoft.com/office (http://www.msdn.microsoft.com/office)

新闻组

<script type="text/javascript"></script> 下面的对等新闻组是可以帮助您与其他用户的 Visual Basic 应用程序的交互:

microsoft.public.vb.ole.automation

知识库

<script type="text/javascript"></script> 有关帮助您使用 vba 的应用程序的详细信息请参阅 Microsoft 知识库中下面的文章:

226118  (http://support.microsoft.com/kb/226118/EN-US/ ) OFF2000: 为应用程序的 Visual Basic 编程资源
有关如何使用本文中示例代码的详细信息单击下面文章编号,以查看 Microsoft 知识库中相应的文章:
212536  (http://support.microsoft.com/kb/212536/EN-US/ ) OFF2000: 如何运行知识库文章中的示例代码


办公室助理

<script type="text/javascript"></script> 有关自动化,在 Visual Basic 编辑器中的详细信息在 帮助 菜单上单击 Microsoft Visual Basic 帮助、 在 Office 助手或应答向导中,键入 Communicating 与其他应用程序,然后单击 搜索 以查看相关主题。

 

http://msdn.microsoft.com/en-us/library/default.aspx

大家可以在以上找到方法

论坛首页 综合技术版

跳转论坛:
Global site tag (gtag.js) - Google Analytics