Tag: ms word

从python创buildoffice文件: 我们有一个Django的python项目。我们需要生成复杂的单词，excel和pdf文件。对于我们在PHP中完成的其余项目，我们使用PHPexcel ， PHPWord和tcpdf作为PDF。 python的什么库，你会build议创build这种文件？（对于excel和word来说，它使用开放的xml文件格式xlsx，docx）

用户types未定义工作表VBA: 我试图添加引用到我的项目，所以我可以得到这个错误解决，但我没有成功。任何人都可以告诉我应该添加哪些库？ Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim ws As Worksheet Set objFSO = CreateObject("Scripting.FileSystemObject") Set ws = Worksheets.Add 'Get the folder object associated with the directory Set objFolder = objFSO.GetFolder("C:\") ws.Cells(1, 1).Value = "The files found in " & objFolder.Name & "are:" 'Loop through the Files collection […]

表select邮件合并从Excel到Word的错误: 首先在这里是我的代码。 Sub RunMerge() ' Word constants Dim wd As Object Dim wdocSource As Object Dim strWorkbookName As String On Error Resume Next Set wd = GetObject(, "Word.Application") If wd Is Nothing Then Set wd = CreateObject("Word.Application") End If On Error GoTo 0 Set wdocSource = wd.Documents.Open(ThisWorkbook.Path & "\AAFCAAC-#4077508-v1-AAFC-FFPB-COPE-SATD-_AgriInnovation_Draft_Survey_Instructions_189318.doc") strWorkbookName = ThisWorkbook.Path & "\" & "MD.xlsm" […]

Word和Excel文件版本: 跟踪Excel和Word文件版本的最佳方法是什么？上次修改的date不适用于我，因为只要将文件复制到新位置，它就会更改。我正在使用C＃。 Thx任何答复。

从Excel中replaceWord文档中的文本: 我需要通过在Excel表中的行，并使用单元格值在Word文档中进行replace。我用loggingmacros来获取代码，它实际上取代了文本。但是，当我从Excelmacros使用它，它不起作用。 Dim WordApp As Object Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Dim WordDoc As Object Set WordDoc = WordApp.Documents.Open(doc_path_str) Dim find_what, find_repl As String For col_idx = params_hdr_range.Column To params_hdr_range.Column + params_hdr_range.Columns.Count – 1 find_what = CStr(scnd_sheet.Cells(params_hdr_range.Row – 1, col_idx).Value) find_repl = CStr(scnd_sheet.Cells(model_found_range.Row, col_idx).Value) WordApp.Selection.Find.ClearHitHighlight WordApp.Selection.Find.ClearFormatting WordApp.Selection.Find.Replacement.ClearFormatting With WordApp.Selection.Find .Text = find_what […]

如何杀死在C＃中的Word / Excel文件的实例: 我有两个文件demo1.docx，demo2.docx.When我将打开这两个文件，然后创build两个实例到应用程序部分中的任务pipe理器，并创build一个进程WinWord.exe到进程Section.When我杀了demo1.docx实例它自动杀死另一个实例，但我只想杀死那个实例demo1.docx。目前我正在使用这个代码杀死实例 string instanceName="demo1.docx"; Process[] runingProcess = Process.GetProcesses(); for (int i = 0; i < runingProcess.Length; i++) if (runingProcess[i].MainWindowTitle.Contains(instanceName)) runingProcess[i].Kill();

计算文档中的单词并输出为excel: 我有大约10个Word文档（1,2,3等）。我需要计算每个文档中单词的数量和拼写错误的单词的数量，并将此计数输出到Excel。我该如何编写一个VBA脚本？在字我知道如何找出字数和拼写错误的单词的数量，并显示作为一个Msgbox，但我不知道如何使excel通过word文档读取和显示输出。理想的情况下，excel文件将要求我select所有的单词文档，然后生成一个表单，其中包含： Doc Name Word_count Misspelled_count 1 30 9 2 45 8 3 50 15 . . 在Word中，我的VBA代码显示错误和字数是： Sub get_wpm_errorcount() Dim ThisDoc As Document Dim ErrorCnt As Integer Dim WordCnt As Integer Set ThisDoc = ActiveDocument WordCnt = ThisDoc.Range.ComputeStatistics(wdStatisticWords) ErrorCnt = ThisDoc.SpellingErrors.Count MsgBox ("WPM = " & WordCnt & " Error Count […]

Word VBA显示文档: 这可能是一个相当微不足道的问题，但我在VBA方面很新颖，所以我的知识很拼凑。基本上，我所做的是我有一些Excel中的VBA代码，我想用来从模板中创build一个新的Word文档，然后find/replace我放在它的一些标记文本基于什么是在excel工作簿。我想我已经find/replace部分了，但我似乎无法得到Word文档打开正确。以下是相关的代码： Set wordApp = New Word.Application wordApp.Documents.Add Template:=ThisWorkbook.Path & "\Template.dotx" 当我运行这个代码时，它执行得很好，并且产生了一个新的WINWORD.EXE进程，但是没有打开新的窗口，并且据我所知，文档实际上并没有打开或处于活动状态。带有代码和模板的工作簿保存在同一个文件夹中，因此两者的path应该相同。我也已经在VB编辑器中添加了对Word的引用。就像我说的，这可能是很简单的修复。如果有人可以给我一些指导，将不胜感激！

打开Word模板，粘贴Excel数据并保存: 我有一个Excel数据范围，我需要能够粘贴到Word文档模板中，并使用Excel中的macros自动保存。目前它运行时，它告诉我模板文件已经打开/locking，我必须打开一个只读副本才能继续。它确实创build并保存word文件，但是当我尝试打开保存的word文档时，表示存在内容问题。我GOOGLE了很多，认为我很接近，但如果任何人都可以给我一些指针，将不胜感激。 Option Explicit Sub CopyExcelDataToWord2() Dim wdApp As New Word.Application Dim wdDoc As Word.Document Dim wsSource As Excel.Worksheet Dim docWordTarget As Object Dim SaveAsName As String Dim customSavePath As String Dim nameFile, WordName2 Dim ColRange As Range Set wdDoc = wdApp.Documents.Open("C:\test\templ.dotx") wdApp.Visible = True 'Cell with the filename to save final doc […]

如何searchclosures的excel文件: 我试图search一个closures的excel文件进行匹配，然后将相对于该匹配的引用转换为一个string，然后将该string放入打开的word文档，然后重复，直到find所有匹配。我完全坚持打开Excel文件来访问它来search开始虽然。它会在任务pipe理器中生成一个excel进程，但是我无法引用它，我实际上期望它打开该应用程序。我可能会完全错误的。 Sub stringPrompt2() 'Find match 'build output 'put into word doc 'repeat Dim sSearchString As String Dim sSearchDirectory As String Dim dlgFile As FileDialog Dim vSelectedItem As Variant Dim Loc As Excel.Range Dim sPath As String sSearchString = InputBox("String to search for", vbOKOnly, "Search String") Set vSelectedItem = Application.FileDialog(filedialogtype:=msoFileDialogFilePicker) With vSelectedItem .AllowMultiSelect […]