[Rollin_Again]

When you say "Drop Down" are you referring to the combo box control from the control toolbar in word?

Have you tried issuing a command like.

Documents("Document2.doc").Protect Password:="Password1", _
   NoReset:=False, Type:=wdAllowOnlyFormFields

Regards,

Rollin

[zeo]

Hi guys,

wondering if you can help me again with a slight modifcation to the code.

Currently the code inserts the running sequence number at the top left hand corner of the document.

I've now added a 2nd page to my template, which is just below the first page in word. I need the running seq number to also be inserted into the same place on the 2nd document. (Just as it is currently doing on the first).

The code that I am using to insert the number into the document is:

' This inserts the file name at the top of the document
Selection.HomeKey Unit:=wdStory

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"FILENAME ", PreserveFormatting:=True

A copy of the full macro is below:

Sub Ordersheets()

' Automatically creates a new document in a sequentially-numbered order
' based upon the stored sequence number in MySeq text file

' Dimension the variables
Dim strMyFileName As String


' Open MySeq file and load the sequence number
MySeq = System.PrivateProfileString("\\Office\Private drive\Macro\MySeq.txt", _
     "", "MySeq")

If MySeq = "" Then
     MySeq = 1
Else
     MySeq = MySeq + 1
End If

' Update the sequence number in MySeq
System.PrivateProfileString("\\Office\Private drive\Macro\MySeq.txt", "", _
     "MySeq") = MySeq

' Load the filename string with leading zeroes
strMyFileName$ = Format(MySeq, "2000#")

' Set the filename to the new sequence number & location of where to archieve the orders docs
ActiveDocument.SaveAs "\\Office\Private drive\SAVED ORDER ARCHIEVE\" & strMyFileName$ & ".doc"

' This inserts the file name at the top of the document
Selection.HomeKey Unit:=wdStory

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"FILENAME ", PreserveFormatting:=True

' Saves the document
ActiveDocument.Save


' Auto print
Dim sCurrentPrinter As String
  sCurrentPrinter = ActivePrinter
    ActivePrinter = "DYMO LabelWriter 400 Turbo"
    Application.PrintOut FileName:=""
    ActivePrinter = sCurrentPrinter

' close and exit
ActiveDocument.Close
Application.Quit



End Sub

[zeo]

bumpy bumpy

[cybertech]

zeo,
I received your report to removed solved and rename the thread but you didn't say what you want to rename it to...

[zeo]

bump

[zeo]

hmmm maybe its not possible?