嵌入式Word对象的Documents.Open
是一个用于打开嵌入在其他应用程序中的Word文档的方法。它允许在应用程序中直接访问和编辑嵌入的Word文档。
嵌入式Word对象是指将Word文档嵌入到其他应用程序中，以便在应用程序中进行编辑和查看。通过嵌入式Word对象，用户可以在不离开应用程序的情况下进行文档编辑，提高工作效率。
Documents.Open是Word对象模型中的一个方法，用于打开Word文档。通过该方法，可以指定要打开的文档的路径、文件名以及其他参数。打开文档后，可以对其进行编辑、保存或关闭操作。
嵌入式Word对象的Documents.Open方法的应用场景包括但不限于以下几个方面：
- 在办公软件中嵌入Word文档，方便用户在同一界面内进行编辑和查看。
- 在企业应用程序中嵌入Word文档，实现文档的在线编辑和共享。
- 在教育领域的应用程序中嵌入Word文档，方便教师和学生进行文档的批注和交流。
- 在医疗领域的应用程序中嵌入Word文档，实现病历和医疗报告的在线编辑和管理。
腾讯云提供了一系列与文档处理相关的产品和服务，可以满足嵌入式Word对象的Documents.Open方法的需求。其中，推荐的产品是腾讯云的文档处理服务（https://cloud.tencent.com/product/dps），该服务提供了丰富的API和SDK，支持各种文档格式的处理和转换，包括Word文档的打开、编辑、保存等操作。通过使用腾讯云的文档处理服务，开发人员可以方便地实现嵌入式Word对象的Documents.Open方法，并提供稳定可靠的文档处理能力。
相关·内容
1回答
我正在尝试将Word文档的内容复制到Excel中的任何单元格中。我有文档的文件路径和文件名。
我得到一个变量，值为'Nothing‘作为Word文档内容的值(变量名= wdoc)。
Sub readEmails()
Dim oFSO As Object, oFolder As Object, oFile As Object
Dim i As Integer
Dim sFileSmall As String, sFileYear As String, sFilePath As String
Dim wapp As Word.Application
Dim wdoc As Word.Do
浏览 1提问于2021-10-18得票数 0
我在一个文件夹中有160个word文档，每个.doc至少包含一个短语，比如'IO:'，我希望复制在'IO:'之后开始的所有文件名，并在光标找到Report Output:时停止复制。以下是一个示例输入：
`步骤名称:步骤3- GP00BMDR
Step描述: GENISYS的主要批处理驱动程序，它处理外部事务和内部事务，更新主程序，生成到会计子系统的事务记录，并生成打印文件。
文件规格:输入: 1. GPFTRNW - PHGP.GPFTRNW.TRN.STD.KSDS
2. GPFSCIM – PHGP.GPFSCIM.
浏览 0提问于2014-09-18得票数 0
2回答
我是VBA的新手，我设法拼凑了一段代码，可以从excel中的一个宏按钮(与数据库相同的文档)，从一个非常有用的堆栈上生成邮件合并。
宏大部分时间都是无缝运行的，但是我经常收到运行时错误424 (需要对象)消息。在不做任何更改的情况下再次运行宏总是有效的，所以我认为问题与定义我想要的word文档有关。
我的代码是：
Sub Letter_Generator()
Calculate
MsgBox "Please Select the Word Document (on below taskbar) & select ok to all options."
Dim wdAp
浏览 7提问于2017-08-17得票数 1
回答已采纳
我想复制所有的文本从活动的Word文档(docx)到另一个新的Word文档(docx)，事情是，在原来的word文档我得到了很多格式，我只是需要原始的文本！ 我试着做点什么，但我有点迷茫...： Sub extract_text()
Dim originalDoc As Document, targetDocAs Document,
Dim myPath As String, myPath1 As String, myPath2 As String
Dim rng As Range
myPath = ThisDocument.Path
myPath
浏览 9提问于2021-09-10得票数 0
1回答
您好，我正在尝试编写代码，以便使用excel处理两个现有的word文档，但我一直收到OLE错误。这只是个开始，但它一直在崩溃。我做错了什么？ Sub BoQtoWord()
Dim Word As Object
Dim WordDoc As Object
Dim WordDoc1 As Object
Dim StdSpec As String
Dim NewSpec As String
StdSpec = Application.GetOpenFilename()
Set Word = CreateObject("Word.Application")
Set WordDoc
浏览 11提问于2019-12-14得票数 0
回答已采纳
前部
在“前端”中，我有一个宏链接到我的命令栏中的Word按钮。此按钮的用途是允许用户将当前文档与其先前版本进行比较。
后端
在后端，我有一个Java服务器和一个带有几个servlet的Alfresco。当给定文档的名称时，其中一个servlet当前返回.doc文档。所以我只需要用包含我想要的版本的好名字来称呼它，它就会返回我想要的文档。
理想工作流
因此，对于用户来说，理想的工作流应该是：
用户打开MS Word文档
用户单击命令栏中的按钮。
用户获取一个新文档，其中包含当前文档的合并版本和服务器返回的文档。
我想知道的是
对我来说，挑战的部分是关于VB6的。我知道我可以
浏览 2提问于2012-08-22得票数 0
回答已采纳
我试图从Excel中通过VBA打开一个Word文档。我得到了
运行时错误2146959355 (80080005)
我需要将数据从Excel复制到Word，但是系统无法打开Word文档。
我的代码之一是：
Dim ws As Worksheet, msWord As Object
Set ws = ActiveSheet
Set msWord = CreateObject("Word.Application")
With msWord
.Visible = True
.Documents.Open ThisWorkbook.Path & &#
浏览 1提问于2018-08-19得票数 3
打开多个工作文档的最佳方式是什么？我想通过VBA从不同的word文档中复制/粘贴。我应该为每个实例打开一个新实例吗？我真的需要两个工作簿在同一时间活动，并将关闭后，粘贴已完成。
是
Set objWord1 = CreateObject("Word.Application")
Set objWord2 = CreateObject("Word.Application")
objWord1.Document.open("maindocument.docx")
obj2Word2.Document.open("seconddoc.docx&#
浏览 23提问于2018-02-27得票数 1
回答已采纳
我有一些奇怪的问题让我的代码起作用。我试图使用列表框SOPList上的双击事件来打开选定的word文档。它在第一次双击列表中的文档时运行良好，但是下一次双击文档时它会出现错误：“远程服务器计算机不存在或不可用”。该错误位于联机Documents.Open FileToOpen以打开文档。
虽然该位置是一个网络驱动器，但它仍然是可见的和连接的。我不知道我错过了什么，我希望第二双眼睛能帮我找出答案。
代码：
Private Sub SOPList_DblClick(Cancel As Integer)
Dim FilePath As String
Dim FileName As String
Di
浏览 4提问于2022-10-12得票数 0
回答已采纳
我试图将doc1内容(格式化文本和图像)复制到doc2中，其中doc2包含表，我希望将doc1的内容复制到doc2中的第18单元格中。
我从下面的引用中获得了代码，并对其进行了相应的修改。工作守则如下：
参考链接：
Sub copyContents()
Dim wordWasRunning As Boolean
wordWasRunning = IsMSWordRunning()
Dim mswApp As Word.Application
Set mswApp = AttachToMSWordApplication()
Dim doc1 As Wo
浏览 1提问于2021-09-02得票数 0
回答已采纳
2回答
如何使用文件名或文件路径作为将使用宏的用户的输入。它们可以在以下变量中输入文件名或文件路径。目前，文件名"fivetables.docx“是硬编码的。
Set wdDoc = .Documents.Open(ActiveWorkbook.Path & "\fivetables.docx")
下面是完整的剧本-
Sub ImportWordTables()
Application.ScreenUpdating = False
Dim wdApp As New Word.Application, wdDoc As Word.Document
Dim xlWkSht
浏览 8提问于2022-05-03得票数 0
回答已采纳
我试图通过一个带有.docm的字符串打开一个word Documents.Open文件。它工作并打开文件，但在WordHandle.Documents(x).Name中，它始终是"Document1“。此外，打开的文档名为"Document1“。
我做错了什么？
Sub FileOpen(ByVal fileName As String)
If Not gb_WordObjSet Then
Exit Sub
End If
If Not FileExists(fileName) Then
Exit Sub
E
浏览 1提问于2015-07-02得票数 0
回答已采纳
我想从Excel宏打开和读取Word文档的段落。下面是让我困惑的示例代码：
Sub example()
Dim docPath
docPath = "C:\temp\test.docx"
Dim wordApp
Set wordApp = CreateObject("Word.Application")
Dim doc
doc = wordApp.Documents.Open(docPath)
MsgBox (TypeName(doc)) 'This line displays String
浏览 0提问于2018-05-01得票数 1
回答已采纳
1回答
我正在从MS Access 2007自动创建MS Word 2007文档。
word文档是模板(.dotx)。它们有密码保护。
使用VBA时，我需要在打开模板时传递密码。然而，使用我目前的方法，我看不到任何这样做的选择。如果我使用documents.open方法，有一个密码选项，但是当我以这种方式打开模板时，它会打开活动模板，而不是副本。
下面是我目前的代码，任何帮助都将不胜感激。
'Pass in a path and open a word doc
Sub openWordTemplate(sDocumentPath As String, sDocumentName As Stri
浏览 1提问于2015-01-23得票数 0
我在一个文件夹中有大量的word文档，我想应用我自定义的样式。
这是我的VBA代码。我希望VBA像这样转到特定的文件夹，并将自定义样式应用于所有word文档。有什么想法吗？
Sub styleapply()
'
' styleapply Macro
'
'
Selection.WholeStory
ActiveDocument.UpdateStyles
'WordBasic.ApplyQFSetTemplate
Selection.Style = ActiveDocument.Styles("sam'sty
浏览 0提问于2013-03-25得票数 0
3回答
我有一个包含Word文档信息的excel计算。我想要的是打开word文档并自动将其保存为pdf -使用Excel中的宏。
我已经尝试了以下几种方法：
Set WordApp = CreateObject("Word.Application")
With WordApp.Application
.Visible = True
.Documents.Open (LocationTemplate)
.ExportAsFixedFormat OutputFileName:= _
OfferPath, _
ExportForma
浏览 0提问于2018-09-12得票数 2
尝试打开Word文件时Excel宏崩溃
我已经尝试过打开和关闭目标文件。这两个文件都在该文件夹中。
我已将以下对象模型添加到项目中: Visual Basic For Applications、Microsoft Excel 16.0对象库、Microsoft Forms 2.0对象库、Microsoft Word 16.0对象库。
Sub CopyCheckBoxesToWord()
CopyCheckBoxesToWord Macro
'http://learnexcelmacro.com/wp/2012/01/copy-from-excel
浏览 3提问于2019-05-20得票数 0
我有多个word文档，需要从开发人员模式对它们施加限制。
我使用wscript传递一个文件夹作为参数来运行脚本，但是它会导致错误。
Dim strFolder
Const xlTypePDF = 0
strFolder = WScript.Arguments(0)
if Wscript.Arguments.Count > 0 Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWord = CreateObject("Word.Application"
浏览 1提问于2017-10-17得票数 0
回答已采纳
我有一个宏，从一个小word文档复制到一个主word文档，插入书签。复制的内容位于表中，包含各种行和列，其中包含数据和一些图像。
我的代码如下：
Set SmallDoc = Documents.Open("small.doc")
Selection.WholeStory
Selection.Copy
'Paste document content at bookmark
Set MasterDoc = Documents.Open("main.doc")
Selection.GoTo What:=wdGoToBookmark, Name:="
浏览 3提问于2012-03-13得票数 2
回答已采纳
1回答
我有这个代码从数据网格视图导出到word文档，但我需要导出到一个现有的word文件，而不是创建另一个？因为我有一个包含两个图像的漂亮标题的word文档，所以我需要在它上创建，而不是创建另一个。
using Word = Microsoft.Office.Interop.Word;
public void Export_Data_To_Word(DataGridView DGV, string filename)
{
if (DGV.Rows.Count != 0)
{
int RowCount = DGV.Rows.Count;
浏览 2提问于2016-04-29得票数 0
我的excel文件中有一段代码，它打开某个Word文档以从中读取数据，该Word文档还有一个"Document_Open“事件处理程序(每次我打开该Word文档时，它都会显示一个UserForm )。 我的问题是，每次我运行我的Excel代码打开Word文件时，由于"Document_Open“事件处理程序，代码的控制卡在Word环境中。 到目前为止我的代码如下： Private Sub CommandButton18_Click()
Dim Word As New Word.Application
Dim MRpt As Word.Document
Word.Visib
浏览 22提问于2021-11-01得票数 0
回答已采纳
1回答
从Excel打开Word文档，将图像粘贴到当前位置，然后调整其大小。 我尝试在InlineShapes.AddPicture的末尾使用Height命令。 下面是插入图像的代码。 Sub CreateWordDocWithPicture()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
DocDirectory = "C:\Documents\"
Set wdApp = CreateObject("Word.Application") 'Create an
浏览 12提问于2021-03-30得票数 0
回答已采纳
请参考下面的截图了解更多详细信息。 Excel工作表 ? 源文档 ? 在目标文档中我的代码输出下面 ? 目标文档中的宏容器输出 ? excel文件表(“List1”)，包含两列文本/字符串。列A具有段落或表格的开始单词，列B具有段落或表格的结束单词。 根据A列和B列文本，宏查找源文档中的起始单词和结束单词。如果找到，则从具有格式的源文档复制所有文本或表格(包括开始和结束word )，并将其放在具有源格式的目标文档中的书签(Text1、Text2等)处。 我试图复制的段落包含文本和表格(在两个文本之间或结尾) 如何使用书签的循环来循环A和B列的文本/字符串。 在下面
浏览 35提问于2019-05-22得票数 0
回答已采纳
1回答
我在获得Excel打开Word文档时遇到了问题，我一直收到运行时错误5174。我似乎找不到问题，而且这条路似乎是正确的。
输出的代码行是documents.open行，在下面的代码中：
'Instantiate Word and open the "Transfer price" document.
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("C:\Users\SIDVI\Desktop" & "\" & "stWordDoc
浏览 3提问于2017-11-07得票数 0
回答已采纳
我发现这段代码可以将.doc文件更改为.docx文件。我想修改它，以便我可以指定一个顶级文件夹，并让它通过它和每个子文件夹。感谢你的帮助。
Sub TranslateDocIntoDocx()
Dim objWordApplication As New Word.Application
Dim objWordDocument As Word.Document
Dim strFile As String
Dim strFolder As String
strFolder = "C:\Temp\doc\"
strFile = Dir(strFolder &
浏览 9提问于2022-01-19得票数 0
回答已采纳
1回答
我在Microsoft.Office.Interop.Word命名空间中使用Documents.Open方法打开word文档。这很好用，除了当我打开一个不是word文档的文件时，它会自动转换为word文档。我想要找到一种方法，要么引发文档不是word文档的异常，要么在打开文档之前检测文档是不是word文档，或者检测文档在打开和转换后是否被转换。有没有人对如何做到这一点有什么想法？
浏览 3提问于2010-07-11得票数 2
我需要打印文档并隐藏应用程序。我正在使用微软Word 2010。
我试图用下面黄色注释中所示的代码隐藏应用程序。
objWord.Visible = False
&
objDoc.ActiveWindow.Visible = False
但是窗口仍然出现在这一行：
objDoc = objWord.Documents.Open("T:\Helsingborg\A\Transport\2. Transportdrift\11. M-trp\Fraktsedlar\Växjö\Växjö Mall.doc")
一旦它被隐藏到：
objDoc.ActiveWindow
浏览 3提问于2017-06-29得票数 0
我有一个vba makro，它打开一个从服务器的url文件。脚本如下所示：
Documents.Open("http://restservice/doc/" + TextBox1.value, True, False)
一切都很好。我拿到我的文件。但是通过查看that服务的日志，我发现每次调用Documents.Open时，它都会向给定的URL发出三次相同的请求。它为什么要这样做，我怎样才能防止它。file服务必须在归档中进行搜索才能传递文件。这是要付出一定代价的。我使用的是Word 10。
浏览 0提问于2016-11-04得票数 1
我试图通过使用.docm的字符串打开一个单词Documents.Open。它在脚本第二次运行后工作。在第一次运行时，文档不会打开，脚本也不会加载文档文件。有什么想法或建议吗？
Sub gerarproposta()
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Dim objWord As Word.Application, wdDoc As Word.Document
'banco de dados
Dim xl As New Excel.Appl
浏览 8提问于2022-06-24得票数 0
回答已采纳
有没有办法拥有两个文档，其中第一个文档包含将在第二个文档上执行和应用的所有代码和函数？ 例如: Doc 1有一个按钮和所有代码，当我按下该按钮时，它会在doc 2上绘制形状。 我想知道DocumentOpened是否是拟合方法。任何帮助或提示都将不胜感激。谢谢! PS。我的另一个问题已经结束了，所以我不得不做一个新的问题...
浏览 18提问于2019-12-12得票数 0
1回答
我的Word文档中有50个表格，大约有100页，
我需要知道如何根据页码/范围提取表，例如，从第48页-第56页中提取表格。目前我使用的代码是，它是基于word文档中的表索引提取的。从最终用户的角度来看，查找表索引并在弹出的MessageBox.中输入它将是很麻烦的。
如何使用文件路径作为用户的输入。它们可以在以下变量中输入文件名或文件路径
Set wdDoc = .Documents.Open(ActiveWorkbook.Path &“\fivetables.docx”)
目前使用的代码-
Sub ImportWordTables()
Application.ScreenUpdat
浏览 2提问于2022-05-03得票数 2
回答已采纳
2回答
在我的vba代码中，我需要转到word文档的末尾。vba是在Excel中编写和执行的。声明: Selection.EndKey unit:=wdStory，Extend:=wdMove“将不会运行。谁能解释一下我在哪里输入错误。 我曾尝试在其他vba代码中使用该语句，但均未成功。 Sub InsertFromFilesTestEnd()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Set wrdApp = New Word.Application
Set wrdDoc = wrdApp.Docu
浏览 34提问于2019-02-08得票数 0
我试图在保存Word文档之前使用Application.DisplayAlerts = wdAlertsNone或Application.DisplayAlerts = False来避免出现一个单词弹出消息。
保存的文档包含跟踪更改，是否继续保存？
Private Sub CreateReportButton_Click()
Dim objDocA As Word.Document
Dim objDocB As Word.Document
Dim objDocC As Word.Document
Dim objFSO As Scripting.
浏览 2提问于2017-12-18得票数 1
我试图创建一个从excel子，将打开两个现有的文字文件，一个与标准文本和另一个空白。这些word文档和excel工作簿具有与书签相同的字符串值。如果excel书签旁边的相应单元格不是空白，则希望将标准文本复制到另一个文档中。它一直在破坏我的excel，有什么想法吗？
Sub BoQtoWord()
'Proof of concept to copy text from standard word doc to new word doc at same bookmark if condition met in excel workbook
Dim StdDoc As Word.Docu
浏览 2提问于2019-12-16得票数 0
回答已采纳
3回答
我有一个用来处理Word文档的VBA脚本。该程序所做的第一件事是在一组已定义的文件夹中创建文档的索引。然后，它遍历处理每个已索引文档的列表。
我遇到的问题是，它有时会决定找不到某个特定的文档，即使它以前对该文档进行了索引，并且快速抽查显示该文档位于正确的位置。
有人能解释一下为什么VBA要显示这种行为吗？
该脚本使用Dir$函数为文件编制索引，并使用Documents.Open函数打开每个word文档进行处理。
示例代码：
ChangeFileOpenDirectory (folderName)
inputFileName = Dir$(folderName & "*.doc&
浏览 1提问于2010-11-15得票数 2
我正在尝试使用Excel打开Word文档。然后，我想根据某些Excel单元格中的内容替换Word中的文本字符串。 例如，MS Word包含这样的文本："This is a test and only a test“。Excel有一个名为“同义词”的工作表。单元格A1包含文本字符串"a test“。单元格B1包含文本"an exam“。在Excel中使用文本字符串后，MS Word文档将显示为"This is a exam and only a exam“。 我已经能够在Excel中执行查找/替换(通过稍微修改代码)。但我似乎无法在Word中执行查找/替换操作。
浏览 57提问于2019-02-26得票数 0
回答已采纳
首先，我在VBA Excel中有一个函数，它告诉我Word文档是否打开。出于测试目的，我没有打开Word文档，并且希望返回'False‘。
Function IsFileOpen(filename As String) As Boolean
Dim filenum As Integer, errnum As Integer
On Error Resume Next ' Turn error checking off.
filenum = FreeFile() ' Get a free file number.
浏览 7提问于2016-08-20得票数 0
1回答
我创建了这段vb代码，它提示在word中打开特定的文件，对其进行修改，然后将其保存到特定的位置。我希望在完成后能够关闭这两个窗口，即word宏文件窗口和保存的文档窗口。
Private Sub Document_Open()
adresse_debut = ActiveDocument.Path
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.InitialView = msoFileDialogViewDetails
.Title
浏览 6提问于2013-04-04得票数 1
1回答
我在Vba中创建了一个脚本，允许比较Word中的报告，我希望在HTML中创建一个页面，允许在单击按钮后启动Vba脚本。
当我尝试这样做时，我得到了火狐和Chrome中的消息"ReferenceError: myFunction未定义“。如果在IE上尝试相同的操作，就会得到"'myFunction‘是未定义的“错误。
<!DOCTYPE html>
<html>
<head>
<title>Reports Comparison</title>
<script type="text
浏览 2提问于2017-12-06得票数 0
回答已采纳
1回答
我在wordfile A中使用vba将一个word文件B添加到文件A的末尾。文件A有一个标题(Kopfzeile)，B文件没有这个。当B被添加到A的末尾时，A中的所有标题都消失了，但是我想要的是，A的标题也在B使用的代码的添加内容上：
Set Doc_A = Documents.Open(path_A)
Doc_A.Range.InsertBreak (wdSectionBreakNextPage)
Selection.Collapse Direction:=wdCollapseEnd
Selection.InsertFile FileName:=Path_B
浏览 2提问于2022-08-31得票数 0
1回答
我已经用Word做了一个文本比较宏，我需要循环它，以便它可以在几组文档之间进行比较。你知道该怎么做吗？以下是我的代码
Dim template1 As Word.Document
Dim spool1 As Word.Document
Set template1 = Documents.Open("D:\Users\tmp4jj\Desktop\ComparisonTool\template1.docx")
Set spool1 = Documents.Open("D:\Users\tmp4jj\Desktop\ComparisonTool\sp
浏览 3提问于2015-04-21得票数 0
我在VB6项目中的工作步骤如下：-通过单击命令按钮从目录中打开文件。或者创建一个新的。(word document .DOC)将图像-adding作为徽标...-请保存结果，任何人都可以帮助设计和编码？
浏览 3提问于2014-12-07得票数 1
1回答
我正在尝试在word中插入一个新的页面，即插入一个分段中断。问题是，我希望将此页面更改为A3风景，并删除所有标题，而我的代码目前没有这样做。如何修改下面的代码来实现这一点？
下面是插入新页面的当前代码，但保留了标题和a4概要：
If wordDrawingExist Then
Selection.EndKey Unit:=wdStory
Selection.InsertFile FileName:=wFile, link:=False
Set wb = Documents.Open(wFile)
Selection.WholeStory
Selecti
浏览 1提问于2016-03-02得票数 0
回答已采纳
我正在尝试替换编号(单词是1.，2，等等)。在一个简单的字符串和替换搜索，但我似乎找不到数字。 这是针对Word 365的，我在其中使用了VB编辑器。 Sub ayaya()
Documents.Open FileName:=ActiveDocument.Path + "\Doc1.docm"
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "SSS"
.Replacement.Text =
浏览 25提问于2019-05-29得票数 1
回答已采纳
我有一些word文件，我试图从其中提取第一页和最后一页，并复制到另一个文档中。
我已经尝试了以下代码，我能够让它部分工作，第一页被复制到新的文档，但我不能让最后一页复制工作，因为最后一页覆盖了第一页复制。如何在复制最后一页之前将课程移动到结束页。
Sub getfirstlast()
Dim Counter As Long, Source As Document, Target As Document
Dim strFolderA As String
Dim strFileSpec As String
Dim strFileName As String
Dim objDocA As Wor
浏览 0提问于2019-05-29得票数 0
首先，我通过用户表单上的一个按钮将一个word文档doc1复制到一个新的word文档中，其中包含它的格式。其次，我在word文档的末尾插入了一个新的word文档doc2 (doc1和doc2获得了文本和表以及各种颜色)。每次我按下另一个用户表单上的一个按钮来放置doc2时，我都会丢失doc2格式。
这里我的代码：
Dim docSource As Document
Dim docTarget As Document
Set docTarget = ActiveDocument
Set docSource = Documents.Open(strFilename)
' Add the c
浏览 0提问于2019-02-02得票数 2
回答已采纳
我已经创建了一个用户控件(windows表单应用程序)来获取Word实例(无论是活动的还是新的)，并提供一个按钮来使用文件对话框选择器将文档打开到该实例中。
该表单包含两个按钮，一个用于获取单词实例，另一个用于打开文档。它还包含一个列表框，用于显示打开的文档，以及一个openfiledialog控件，用于提供选择要打开的文档的方法。
我处理Application.DocumentOpen事件是为了填充列表框.
m_wordApp.DocumentOpen += new msoWord.ApplicationEvents4_DocumentOpenEventHandler(m_wordApp_D
浏览 3提问于2013-05-28得票数 3
我正在和三个Word Documents一起工作。
粗
CEEMEA & LATAM
[消]墓地
开始时只打开Rough文档。我需要将数据从Rough转换到CEEMEA & LATAM，并使用Ticker Graveyard来匹配一些查询，因此应该已经打开了两个CEEMEA & LATAM Ticker Graveyard。
为此，我检查其他两个文档是否已打开。如果没有，我需要使用Documents.Open打开特定的文档。为此，我正在执行更新代码
sub ErrHandling()
On Error GoTo PROBLEM
Windows(&#
浏览 0提问于2019-02-11得票数 0
我看过一些关于如何从Excel复制范围并粘贴到Word文档的VBA代码，但我无法让它工作，它创建了一个pdf文件，但该文件已损坏。 我有以下VBA代码： Sub CopyToWordAndPrintPDF()
'PURPOSE: Copy/Paste An Excel Table Into a New Word Document
'NOTE: Must have Word Object Library Active in Order to Run _
(VBE > Tools > References > Microsoft Word 1
浏览 63提问于2021-02-28得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
腾讯会议
实时音视频活动推荐
腾讯云开发者
