VBS를 사용하여 MSWord 테이블 위에 텍스트 추가

Question

VBS를 사용하여 Outlook에 서명을 만들어 사용자에게 전달하려고합니다. 서명에는 로고가있는 표준 텍스트 대 로고/사용자 정보를 나란히 배치 할 수 있도록 표가 들어 있습니다. (원래 테이블 코드는 여기에 있습니다 : http://www.vbforums.com/showthread.php?526706-resolved-question-with-tables-in-vbscript-for-AD-signature)

다음은 doc 파일에 기록하는 코드의 스 니핏입니다. 코드는 성공적으로 두 개의 colun을 만들고 원하는 정보를 넣습니다. 테이블 작성/편집을 시작하기 전에 doc 파일 맨 위에 텍스트를 추가하는 방법이 있습니까?

Set objWord = CreateObject("Word.Application") 
objWord.Visible = True 
Set objDoc = objWord.Documents.Add() 
Set objSelection = objWord.Selection 
objSelection.Style = "No Spacing" 
Set objRange = objDoc.Range() 
Set objEmailOptions = objWord.EmailOptions 
Set objSignatureObject = objEmailOptions.EmailSignature 
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries 


'I want to add text here above the two tables below. Not sure how to do it. 


'Create Tables 
objDoc.Tables.Add objRange, 1, 2 
Set objTable = objDoc.Tables(1) 

'** Logo table ** 
objTable.Cell(1, 1).select 
'Put Logo information here 

'** User table ** 
objTable.Cell(1, 2).select 
'Put User information here 

objSelection.EndKey 6 'Command to end the above tables 

Answer 1

내가 스크립트와 협력하여 문제 우연히 이곳을 발견 : http://blogs.technet.com/b/heyscriptingguy/archive/2006/06/09/how-can-i-add-multiple-tables-to-a-word-document.aspx

'Create Tables 
Set objRange = objSelection.Range 'Adding this line fixed the problem 
objDoc.Tables.Add objRange, 1, 2 
Set objTable = objDoc.Tables(1)