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();
具体说明:
Applies to: 2007 Microsoft Office System, Microsoft Office Word 2007
Joel Krist, Akona Systems
April 2007
<!---->
<!--src=[..\local\97421a3c-b771-4007-988f-496df6b850d3.gif]--> 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]-->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 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]-->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
C#
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
C#
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 Use the
Visual Basic
Dim paramSourceDocPath As String = "C:\Temp\Test.docx"
C#
object paramSourceDocPath = @"C:\Temp\Test.docx";
object paramMissing = Type.Missing;
The following variables are used with the Document.ExportAsFixedFormat method. The
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
C#
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
C#
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(); } 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
<!--src=[../local/note.gif]-->Note:
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.<!---->
<!----> |
自动化 (以前称为 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 自动执行的四个主要步骤:- 添加到 Microsoft Word 9.0 对象库 的引用。
- 将变量声明为一个 Word 对象类型 (应用程序、 文档,和 so on)。
- 分配给您在步骤 2 中声明该对象变量 CreateObject 函数返回该对象。
- 使用属性和方法的对象变量来使 Word 自动运行。
第 1 步: 添加到 Word 9.0 对象库的引用
<script type="text/javascript"></script> 若要将对使用 Microsoft Access 2000、 Microsoft PowerPoint 2000,或 Microsoft Excel 2000 中, Microsoft Word 9.0 对象库 的引用,请按照下列步骤操作:- 在 Microsoft Access、 PowerPoint,或 Excel 工具 菜单上的指向 宏,然后单击 Visual Basic 编辑器。
- 在 Visual Basic 编辑器中,在 工具 菜单上单击 引用。
- 在 可用引用 的列表,单击以选中 Microsoft Word 9.0 对象库 复选框。
添加在 Microsoft Word 9.0 对象库 的引用允许您访问 Microsoft Word 联机帮助和 Microsoft Word vba 的应用程序的常数、 属性和方法的程序。注意若要直接自动化 Word 对象类型所需的 Microsoft Word 9.0 对象库 的引用。
添加到 Microsoft Word 9.0 对象库 的引用称为早期绑定。
有关对象绑定的详细信息请参阅 Microsoft 知识库中下面的文章:
步骤 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 的已声明的对象变量: CreateObject 和 GetObject。主要区别是 word 的 word 的 CreateObject 函数创建一个新的实例,并且 GetObject 函数使用现有,或已经正在运行实例。您还可以使用 GetObject 将您的对象变量绑定到特定的 Word 文档。下面的示例命令行将 objWD 变量绑定到 Word 使用 CreateObject 函数:
Dim objWD as Word.Application
Set objWD = CreateObject("Word.Application")
Dim objWdDoc As Word.Document
Set objWdDoc = GetObject("c:\my documents\doc1.doc")
有关帮助您使用 vba 的应用程序的详细信息请参阅 Microsoft 知识库中下面的文章:
步骤 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
Sub WordMacro()
Documents.Add
Selection.TypeText "This is some text"
ActiveDocument.SaveAs filename:="mydoc.doc"
Quit
End Sub
参考
<script type="text/javascript"></script>
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 应用程序的交互:知识库
<script type="text/javascript"></script> 有关帮助您使用 vba 的应用程序的详细信息请参阅 Microsoft 知识库中下面的文章:办公室助理
<script type="text/javascript"></script> 有关自动化,在 Visual Basic 编辑器中的详细信息在 帮助 菜单上单击 Microsoft Visual Basic 帮助、 在 Office 助手或应答向导中,键入 Communicating 与其他应用程序,然后单击 搜索 以查看相关主题。
http://msdn.microsoft.com/en-us/library/default.aspx
大家可以在以上找到方法