파일 시스템에 저장하지 않고 Word 문서에 Word 문서 추가

Question

나는 VB.NET에서 즉시 워드 문서를 만들려고 노력하고 있으며,이 모든 문서는 매우 드문 것처럼 보입니다. 지금 당장 내 프로그램은 데이터베이스 테이블을 반복하여 작동하고 각 행에 대해 변수를 추출합니다. 그런 다음 프로그램은 템플리트 단어 doc를 반복하고 구문 분석하여 해당 템플리트의 변수를 데이터베이스의 변수로 바꾸고 새 문서로 저장합니다.

대신에, 내가 만들려는 "새로운 문서"마다 테이블에 1000 개의 행을 파싱 할 때마다 다른 문서에 추가하려고합니다. 파일 시스템에 1000 개의 다른 워드 문서를 저장하십시오.

나는 이것에 관해서 아무 것도 찾을 수 없을 것 같습니다. 모든 문서에 병합 (실제로 병합하지 않고 추가하려는 경우) 또는 문서를 추가 (삽입) 할 수있는 유일한 방법은 WordApplication.Selection.InsertFile(newWordDocument.FullName)을 사용하는 것입니다. 이 작동하지만, 나를 삽입하기 전에 파일 시스템에 newWordDocument을 저장해야합니다.

메모리에있는 동안 WordApplication 객체에 newWordDocument을 추가 할 수 있습니까? 여기

내가 지금

For each row in TableOfVariables 
Dim WordApplication as New Word.Application 
Dim tempDoc as New Word.Document 
tempDoc = WordApplication.Documents.Add 
tempDoc = fillVariablesOfTheDocument(tempDoc, row) 
tempDoc.Save() 'This is the problem - it saves as a new file rather than appending into WordApplication 
Next 

Answer 1

에서

Dim Word As Word.Application 
Dim Doc As Word.Document 
'Start Word and open the document template. 
Word = CreateObject("Word.Application") 
Word.Visible = True 
Doc = Word.Documents.Add 

를 작동하는 동안 걸렸지 만 어떻게 든 난 아무 생각이 존재하지 있던 약 MailMerge을 발견했다. 간단히 말해서, 변수가있는 템플릿 문서를 가질 수 있으며 입력 문서를 Excel로 가져올 수 있습니다. Excel 문서에는 변수 이름이 포함 된 머리글 행이 있으며 Excel 문서의 각 개별 셀은 문서에 들어갈 변수를 나타냅니다. MailMerge을 실행하면 템플릿이 n 페이지 수로 대체됩니다 (여기서 n은 Excel 행 수). 이것은 하나의 큰 엑셀 문서에 여러 문서를 추가하는 제 문제를 해결합니다. 필자는 Excel 문서에서 1,000 행을 테스트했으며 완벽하게 작동했습니다.

여기에 내가 함께 종료 코드는 다음과 같습니다

 Dim wrdSelection As Word.Selection 
     Dim wrdMailMerge As Word.MailMerge 
     Dim wrdMergeFields As Word.MailMergeFields 

     ' Create an instance of Word and make it visible. 
     wrdAppMailMrg = CreateObject("Word.Application") 
     wrdAppMailMrg.Visible = True 

     ' Add a new document. 
     wrdDocMailMrg = wrdAppMailMrg.Documents.Open("Template.docx") 
     wrdDocMailMrg.Select() 

     wrdSelection = wrdAppMailMrg.Selection() 
     wrdMailMerge = wrdDocMailMrg.MailMerge() 

     'Open Data Source 
     wrdDocMailMrg.MailMerge.OpenDataSource("InputVariables.xlsx", SQLStatement:="SELECT * FROM [Sheet1$]") 

     ' Perform mail merge. 
     wrdMailMerge.Destination = _ 
        Word.WdMailMergeDestination.wdSendToNewDocument 
     wrdMailMerge.Execute(False) 

     ' Close the original form document. 
     wrdDocMailMrg.Saved = True 
     wrdDocMailMrg.Close(False) 

     ' Release References. 
     wrdSelection = Nothing 
     wrdMailMerge = Nothing 
     wrdMergeFields = Nothing 
     wrdDocMailMrg = Nothing 
     wrdAppMailMrg = Nothing 

지금 난 그냥 빨리 실행하고 UI를 정리하기 위해 그것을 조정할 필요가 있지만, 기능이 완전히있다.

Answer 2

당신은 할당,

objWordApp.Documents.Add (tempDoc) 그냥 성명을 발표하지 않았다 무슨의 의사의 '이것은 어디 문제는!

Dim wordApp as new Microsoft.Office.Interop.Word.Application 
wordApp.Visible = true 
Dim doc as Word.Document 
doc = wordApp.Documents.Add 

당신이 좋은 준비가 될 때까지 당신이 그것을 저장할 필요가 없습니다. 이것은 또한 http://support.microsoft.com/kb/316383