0

私は、VBS を使用して Outlook で署名を作成し、ユーザーにプッシュする作業を行っています。署名にはテーブルが含まれているため、ロゴの上に標準のテキストと並べてロゴ/ユーザー情報を表示できます。(元のテーブル コードはこちら: http://www.vbforums.com/showthread.php?526706-resolved-question-with-tables-in-vbscript-for-AD-signature )

以下は、doc ファイルに書き込むコードの抜粋です。コードは 2 つの列を正常に作成し、必要な情報をそれらに挿入します。テーブルの作成/編集を開始する前に、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
4

1 に答える 1

0

ここにあるスクリプトを使用して、この問題に遭遇しました: 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)
于 2012-10-24T11:33:47.893 に答える