Tag: ms word

VBA复制从单词表到Excel: 我试图从一个word文件（从word表复制到excel）的特定表格单元格中生成5列的excel文件。我的文件有280个表格。我在解决我想从我的文件中复制的单元格时没有问题。但我不知道为什么结果是一个空白的Excel文件。也许我错在粘贴方法呃我不知道…。这是我的代码： Sub copyfromwordtoexcel() Dim exApp As Excel.Application Dim exDoc As Excel.Workbook Set exApp = CreateObject("Excel.Application") Set exDoc = exApp.Workbooks.Add For xx = 1 To ActiveDocument.Tables.Count On Error Resume Next ActiveDocument.Tables(xx).Cell(2, 2).Range.Copy exApp.Visible = True Cells(xx, 1).Select ActiveSheet.Paste Application.Visible = True exApp.Visible = False ActiveDocument.Tables(xx).Cell(3, 2).Range.Copy exApp.Visible = True Cells(xx, 2).Select […]

在WPF控件中显示Microsoft Office文档: 我正在开发一个WPF应用程序，允许用户浏览目录的内容。我想要做的是，如果用户点击一个Microsoft Word或Excel文档，让文件显示在WPF应用程序中的视图控件（如滚动查看器或其他）。我试图做一个全function于一身的文件查看器，所以用户不必打开单独的Word和Excel窗口。用户不需要能够编辑文件，只需查看它。另外，用户将在他们的计算机上安装Word和Excel。这可能吗？我正在阅读冲突的答案，似乎有一个假设，用户不一定安装Office。在这种情况下，是的，他们将在他们的本地机器上安装Office。

Word / Excel模板，可以从数据库中获取信息: 我为一家小公司使用简单的word / excel模板来撰写备忘录/报告和类似的文件。我正在寻找更多关于如何完成这个任务的信息。我们很可能需要某种数据库来存储所有必要的信息（客户端名称，联系信息等等），或许是一系列复杂的word和excel模板来从数据库中提取信息。在这一点上，我只是在研究可能的方法来解决这个问题。也许有一些Microsoft软件（或其他供应商）具有此function内置？

Word文档只能从文档中提取表格: 我正在使用这个代码。它打开一个Word文档从文档中提取表格并填充一个Excel文件。一切都很适合这个部分。现在我想填充Excel文件，只有当字表中的第一个单元格包含这个string“Row N＃”，我被封锁了。在这里我的代码： Option Explicit Sub ImportWordTable() Dim wdDoc As Object Dim wdFileName As Variant Dim tableNo As Integer 'table number in Word Dim iRow As Long 'row index in Excel Dim iCol As Integer 'column index in Excel Dim resultRow As Long Dim tableStart As Integer Dim tableTot As Integer On […]

使用正则expression式创build分隔文本: 我有一个词汇表，其中的条目以粗体显示，说明文字是常规字体。我想要做的是在每一串粗体文本之后添加逗号（星号或任何其他标点符号），然后使我能够在Excel中将词汇表转换为以逗号分隔的文本。有没有办法在Word的查找和replace对话框中使用正则expression式来做到这一点，所以我可以在词汇或词组的结尾处获得逗号，这是词汇表中的一个条目。以词汇表中的一个条目为例：在生效时废止 ….正式字体的内容该条目是粗体短语，与其相关的解释以正则文本给出。在查找表单中find<[A-Za-z \，.-）（/ \ ?!] {1，}> Jerry和MS Word中的replace框中的^＆后，得到所需的结果粗体短语后跟段落标题，如标题和标题： http://img811.imageshack.us/img811/6338/frontpagep.jpg 但词汇表条目没有发生变化，因为它们后面跟着条目的内容，没有段落中断。以下是词汇表中的示例，显示词汇表条目的特征布局： http://img571.imageshack.us/img571/6558/samplefromtheglossary.jpg

EXCEL，PDF，WORD中的数据（数据将是文本，表格，图像）到XML: 有什么免费的工具，将EXCEL表单，PDF文件和WORD文件（数据将文本，表格，图像）的数据转换为XML？我已经search，但主要是得到相反的事情（从XML转换到其他）请尝试提供任何工具/链接/代码（如果有的话）。提前致谢。

ADODB将不会连接到我启用excel文件的macros: 我打算从具有表单的Word文档中导出数据。我可以将数据导出到扩展名为.xlsx的excel文件，但是当试图将数据导出到使用扩展名.xslm的启用了macros的Excel文件时，出现错误消息（条件expression式中的数据types不匹配）。有谁知道为什么我会得到这个错误信息？为什么它会导出到.xlsx，而不是.xlsm？这是我的代码： Set cnn = New ADODB.Connection With cnn .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=C:\Users\Desktop\OG Database\OG Database.xlsm;" & _ "Extended Properties=Excel 12.0 Macro;" .Open .Execute strSQL End With

通过Word文档循环提取表格数据并放置到Excel中: 我目前需要从Word表中提取数据并将其放入Excel中。我可以在文件的基础上做到这一点。我需要能够遍历文件path中的所有单词文档。更具体地说，我需要能够打开一个单词文件，从这个单词文件的表中读取信息导入下面需要的信息，closures这个单词文件，然后在指定的所有单词文件（doc或docx）中重复夹。目前我的代码是这样的： Sub ImportWordTable() Dim eRow As Long Dim ele As Object Dim mainBook As Workbook Set mainBook = ActiveWorkbook mainBook.Sheets("Sheet1").Range("A:BB").Clear Set sht = Sheets("sheet1") Application.Goto (ActiveWorkbook.Sheets("Sheet1").Range("A1")) Dim wordDoc As Object Dim wdFileName As Variant Dim noTble As Integer Dim rowNb As Long Dim colNb As Integer Sheet1.Range("A1").Select Dim x As Long, […]

MailMerge Excel到Word单个文件: 我正在尝试创build以下内容：在Excel中，数据被存储以创build具有单个pdf文件中的输出的邮件合并，具有来自数据的文件名“Letter + name”。个别文件需要用Excel中的“创build字母”button来创build。我几乎在那里，唯一的问题是，我有个人的PDF文件创build，但所有与每行1相同的数据。我怎样才能创build具有单独的数据每个文件的单个文件？ Sub RunMailMerge() Dim wdOutputName, wdInputName, PDFFileName As String Dim x As Integer Dim nRows As Integer wdInputName = ThisWorkbook.Path & "\Templates\LetterExample.docx" Const wdFormLetters = 0, wdOpenFormatAuto = 0 Const wdSendToNewDocument = 0, wdDefaultFirstRecord = 1, wdDefaultLastRecord = 3 'This will get you the number of records "-1" accounts […]

使用VBA将Excel对象导出到MS-Word: 我想创build一个Word文档的Excel结果，这样做我将使用VBA导出带有文本的形状。我可以将Shape导出到word文档，但是一旦文字变为文字，文本就会丢失。有人可以让我知道我做错了什么，或者需要添加到让我的形状包含文字，一旦它到达Word文档。问题：一旦复制到单词上，我的形状上没有文字 Dim wrdApp As Word.Application Dim embedWord As oleObject Dim wordDocument As Object 我的Word文档embedded到Excel中 Set embedWord = ActiveWorkbook.Sheets("Sheet1").OLEObjects(1) embedWord.Verb Verb:=xlPrimary Set wordDocument = embedWord.Object wordDocument.SaveAs (ActiveWorkbook.Path & "\test1.docx") Set wrdApp = GetObject(, "Word.Application") wrdApp.Quit 我保存word文档，然后将其分配给我的wrdApp Set wrdApp = CreateObject("Word.Application") wrdApp.Documents.Open ActiveWorkbook.Path & "\test1.docx" 这是一个矩形，我可以得到复制到单词，但没有文字来与它。 ThisWorkbook.Sheets("Sheet1").Shapes("Rectangle 8").Copy With wrdApp .Selection.Goto What:=wdGoToBookmark, Name:=Bookmark1 'Using […]