Comments on: Add some text at the end of Word document

By: cathy

cathy — Fri, 11 Apr 2008 12:02:35 +0000

VBScript:
Sub CreateDoc()
OA1.Open “C:\\1.doc”
Set objWord = OA1.ActiveDocument
objWord.Application.Selection.EndKey 6
OA1.WordInsertBreak 6
OA1.WordInsertPicture “C:\\1.bmp”, False
End Sub

By: office viewer

office viewer — Fri, 11 Apr 2008 10:00:54 +0000

Javascript: insert a picture in the end of Word Document
function InsertPicture()
{
document.all.OA1.Open(“C:\\1.doc”);
var objWord = document.all.OA1.ActiveDocument;
var dd = objWord.Application.Selection.EndKey(6);
document.all.OA1.WordInsertBreak(6);
document.all.OA1.WordInsertPicture(“C:\\test.bmp”, true);
}

By: office viewer

office viewer — Fri, 11 Apr 2008 09:58:29 +0000

Javascript: insert a signature in the end of Word Document
function CreateDoc()
{
document.all.OA1.Open(“C:\\1.doc”);
var objWord = document.all.OA1.ActiveDocument;
var dd = objWord.Application.Selection.EndKey(6);
document.all.OA1.WordInsertBreak(6);
document.all.OA1.WordInsertText (“Insert signature”);
}

By: office viewer

office viewer — Sun, 30 Mar 2008 02:15:13 +0000

We want to insert the text at the end of the word document.

The function OA1.WordInsertText val is inserting the text but at cursur
location, how do I move the cursor to end of the document and insert the
text.

Solution:

document.all.OA1.Open(“C:\\test.doc”);
var objWord;
objWord = new Object(document.all.OA1.ActiveDocument);
//objWord.Content.Text = “This was added by Automation”
var dd;
dd = objWord.Application.Selection.EndKey 6;
document.all.OA1.WordInsertBreak 6;
document.all.OA1.WordInsertText (“Insert signature”);