Ken Vleminckx

IT Pro Days 2006

MicMicrosoft Developer & IT Pro Days 2006 takes place on 7th and 8th March 2006. For the third consecutive time, both developers and IT professionals are the target audience. While there are different tracks for both target audiences, attendees are free to follow sessions from both tracks. The first day consists out of an opening keynote and 20 different technical sessions (4 times 5 parallel sessions). The second day consists out of 25 different technical sessions (5 times 5 parallel sessions) rosoft Developer & IT Pro Days 2006 takes place on 7th and 8th March 2006. For the third consecutive time, both developers and IT professionals are the target audience. While there are different tracks for both target audiences, attendees are free to follow sessions from both tracks. The first day consists out of an opening keynote and 20 different technical sessions (4 times 5 parallel sessions). The second day consists out of 25 different technical sessions (5 times 5 parallel sessions)

More information.

- Ken

A virtual encrypted harddisk.

I was always looking for a secure way to store my data. Now I found the best tool for it: Cryptainer from Cypherix.
The program will generate a virtual harddisk and everything you copy, paste,.. on it will be encrypted.

It's all protected with a phasphrase. It's also possible to put the virtual disk on a dvd-rom, usb stick,...back-up

With the free version you can make disks up to 25 Mb, but with the full version, you can make disks up to 250 GB.

More info on

http://www.cypherix.com/

- Ken

Change the Header (or footer) of an MS Word document.

Someone asked me to change the headers of a couple of MS Word documents. I could not do it manually because there were more than 8000 documents.
So I wrote a little program. I used the MS Office object model.

Just get a reference to "Microsoft Office 9.0 Object Library"

Dim objMsword As New Word.Application
Dim objHeader As Word.HeaderFooter
Dim arDocfiles() As String
Dim strDocFile As String

objMsword = New Word.Application

objMsword.Visible = False
Clipboard.SetDataObject(Image.FromFile("header.jpg"))
arDocfiles = IO.Directory.GetFiles("C:\docfiles", "*.doc")

For Each strDocFile In arDocfiles

Dim objworddoc As Word.Document

objworddoc = objMsword.Documents.Open(strDocFile)
objHeader = objworddoc.Content.Sections.First.Headers.Item(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary)

objHeader.Range.Paste()

objworddoc.Save()
objworddoc.Close()

objworddoc = Nothing

Next

objMsword = Nothing

- Ken