Tag: ms word

VBA将Word中的多行文本复制到Excel单元格中: 我的目标是使用VBAmacros将多行格式的文本从Word复制到Excel工作表中。现在我有一个需要两个单元格的多行文本。这是我现在的代码： With oWB.Worksheets("EPICS") ' Insert DESCRIPTION – todo ' ' HEADING xyz is selected, move one down and go to Pos1 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine ' Save current line number (BEGIN) BeginText = Selection.Range.Information(wdFirstCharacterLineNumber) ' Go to the first table and one move up Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:="" Selection.MoveUp Unit:=wdLine, Count:=1 […]

通过Excel在MS Word书签中插入多个图像: 我希望使用Excel将图像插入MS Word文档（.docx）中的书签。我偶然发现一个Word VBA的解决方法，几乎完美的工作，除了它是当然，在Word中的代码（我只是将其保存在全局模板）。之所以我需要它在Excel中是因为我无法将macros保存在.docx文件中 – 我不能将其保存为启用macros的文档，因为它会混淆现有的Excel中的VBA（另一个人做到了:)。我用尽了所有努力Googlesearch，但没有确切的解决scheme。作为参考，这里是我正在谈论的“修改”代码。我从vbaexpress.com用户fumei复制它 Sub FillABookmark(strBM As String, strText As String) Dim j As Long With ActiveDocument .Bookmarks(strBM).Range _ .InlineShapes _ .AddPicture FileName:=strText j = ActiveDocument.InlineShapes.Count .InlineShapes(j).Select .Bookmarks.Add strBM, Range:=Selection.Range End With End Sub Sub InsertScreenshots() Call FillABookmark("Image_1", "C:\Users\Public\Documents\Image1.png") Call FillABookmark("Image_2", "C:\Users\Public\Documents\Image_2.png") Call FillABookmark("Image_3", "C:\Users\Public\Documents\Image_3.png") End Sub 我将不胜感激任何forms的帮助:) 更新： […]

将excel数据移至已有的word文档: 这是我使用VBA的第三天。我目前正在为这家公司工作一个为期三个月的合同，并且已经想出了如何自动将数据从excel传输到一个新的word文档（他们想要多年的过程）。我还发现如何从Excel中打开现有的Word文档。事情是，我还没有制定如何将数据从Excel转移到现有的Word文档。以下是我正在为上述原因编写的代码。任何人都可以指出我要去哪里错了吗？任何和所有的答案将不胜感激:) Sub CopyRangeToWord() Dim objWord As Word.Application Dim objDoc As Word.Document Set wordApp = GetObject("C:\Users\CoffeeFuelsMeNow\Documents\Ladedadeda\Testplate.dotx") Set objDoc = objWord.Documents objWord.Visible = True Range("A1:B10").Copy With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range 'All formatting goes here .Paste .Font.Name = "broadway" .Font.Color = wdColorBlue .Font.Bold = True .Font.Italic = True .Font.Allcaps = True .Font.Size = 20 End […]

将Word Excel加载到WPF中: 我想将Word或Excel文档加载到WPF应用程序的窗口中，以便用户可以在应用程序中查看或编辑文档。有什么办法可以实现吗？

在Word中改变图表的数据源c＃: 我正试图创build一个文字文件，在那里我想有一个图表。为此，我有 doc.InlineShapes.AddChart(Microsoft.Office.Core.XlChartType.xlCylinderCol, ref oRange); 但是，打开Excel，从某种默认数据源读取数据，然后再closures。我如何控制这个图表并select数据源和轴上的标签？

在Excel中创build一个生成Word文档的macros: 我想在Excel中创build一个macros来复制Excel文件中特定单元格的数据，并使用Office 2007将这些值填充到MS Word表单中。我需要它在每个Excel行的相同模板中创build一个新的Word文档。在添加新行时，会生成一个附加的Word文档。如果用户可以指定该行可能会更好。这可能吗？本质上，Excel文件包含名称，联系信息，我想将这些信息填充到Word文档中以避免手动重复input。

在C＃中使用embedded的Word文档读取Excel文件: 所以现在我的ASP.net应用程序工作得很好，我能够读取这个Excel文件没有什么奇特的地方在这里： string conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Sample.xls;Extended Properties=\"Excel 8.0;HDR=Yes\""; string SQLString = "SELECT * FROM [Sheet1$]"; OleDbConnection DBConnection = new OleDbConnection(conString); OleDbCommand DBCommand = new OleDbCommand(sQuery, DBConnection); IDataReader iReader = DBCommand.ExecuteReader(); 在此之后，我可以在DataGrid对象上显示电子表格，大部分单元格看起来都很好。但是，这个电子表格在一些单元格中包含embedded的单词文档。例如，如果我突出显示单元格，我会看到“= EMBED（”Word.Document.8“，”“）”，并且单元格中有一个单词文档。所以我的问题是有人知道我可以如何访问这些embedded式word文档？现在，单元格在DataGrid上显示为空。

如何为Word，Excel和PDF文档创build只读查看器？: 我们需要设置一个页面，使一些高度机密的文件（PDF，Excel，Word）可供查看。页面/文档需要尽可能安全（不保存，不打印等）。我们了解到，我们无法停止打印屏幕，但希望我们可以限制大多数其他选项。你最好怎么做？我目前只有两个选项，我正在考虑：打开IFrame内的文档，用javascript和css进行试验在Silverlight（或Flash）中创build一个查看器如果你们有什么想法，请告诉我。这将是非常感谢！

取数据从ms访问到ms-word: 我期待在MS-excel或MS-word中创build发票。此发票将包含多个字段，如发票号码，客户名称，产品信息，数量，金额，date，客户地址，电话号码。等等。发票的function是为了生成一个唯一的发票号码，每当我打开它，然后供应商会提及客户的信息，产品的信息，点击提交button或保存。发票中提到的信息将自动保存在MS-Access数据库中，无论何时提交button被点击或文档被保存。因此，客户的所有logging都将保存在MS-Access数据库中。每当我需要search一个特定的客户，我应该能够从任一发票号码search。或该特定发票的任何唯一字段。我希望我的查询清楚解释。请让我知道最简单的方法来做到这一点。我对这个主题没有深入的了解，所以给我一些新手可以理解的build议。

通过Excel修改Word文档中的行间距: 我有这个excel文件，我已经能够通过vba将数据写入Word文档中作为报告。 VBA代码在包含数据的excel文件中。我已经完成了大部分的代码，它工作正常，但我不知道如何告诉单词（通过在Excel中的VBA代码）来改变段落间距。有什么build议？我正在使用下面的代码从excel中写入单词（而不是完整的代码只是一个例子）： Dim wdApp As Word.Application Dim wdDoc As Word.Document Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Add wdDoc.Content.InsertAfter "Test" wdDoc.Content.InsertParagraphAfter wdDoc.SaveAs (file & "\SpecificReport_" & filter & ".doc") wdDoc.Close wdApp.Quit Set wdDoc = Nothing Set wdApp = Nothing