Hi,

I trying to write a program in VB6 that will update word templates to remove the existing gif logo (which is part of a group of items) and replace it with a True Type Fonts version of the logo.

So far I've been able to ungroup the items, delete the picture and create a textbox in it's place. What I need to do now is change the colour of the outline of the textbox from black to white (or clear) and then insert the text "abc" into the textbox, using font "company logo" and font size 72.

Any ideas how I do this? My code so far is listed below.

Cheers,

Toashy



Private Sub updateTemplates(strPath As String, strFileName As String)


Dim strSaveTo As String
Dim GroupName As String

strSaveTo = "C:\New Templates" & "\" & strFileName


Set oApp = New Word.Application
Dim oDoc As Word.Document

Set oDoc = oApp.Documents.Open(strPath)

'Ungroup
If oDoc.Shapes(1).Type = msoGroup Then
oDoc.Shapes(1).Ungroup
End If


'Delete Picture Logo
If oDoc.Shapes(1).Type = msoPicture Then
oDoc.Shapes(1).Delete
End If


'Create TextBox
Dim TextBox1

Set TextBox1 = oDoc.Shapes. _
AddTextbox(msoTextOrientationHorizontal, 31.05, _
45.2, 63#, 81#)



oDoc.SaveAs FileName:= _
strSaveTo _
, FileFormat:=wdFormatTemplate, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=True, SaveNativePictureFormat:=False, SaveFormsData:= _
False, SaveAsAOCELetter:=False

oDoc.Close

Set oApp = Nothing


End Sub