Newbie Help - Userform

[jamestregg]

Hi,

I am tyring to set up a contract document with a userform in word to enter all the input information throughout the document. all fields are setup in the document and the reference names are all correct however I am getting an issue with my code when I run it, which is no surprise really!

If anyone could give me some assistance, it would be much appreciated!


Option Explicit

Private Sub UserForm_Initialize()
With cboWorks_Ins
.AddItem "Alternative 1"
.AddItem "Alternative 2"
End With
With cboPL_Ins
.AddItem "Alternative 1"
.AddItem "Alternative 2"
End With
With cboPC_Date_Time
.AddItem "Date"
.AddItem "Duration (in weeks)"
End With
End Sub


Private Sub cmdCancel_Click()
Unload Me
ActiveDocument.Close SaveChanges:=False
End Sub


Private Sub cmdOK_Click()

Application.ScreenUpdating = False
With ActiveDocument
.Bookmarks("Project_No").Range.Text = txtProject_No.Value
.Bookmarks("Proj_Name").Range.Text = txtProj_Name.Value
.Bookmarks("Client").Range.Text = txtClient.Value
.Bookmarks("Client_Address").Range.Text = txtClient_Address.Value
.Bookmarks("Client_ABN").Range.Text = txtClient_ABN.Value
.Bookmarks("Council").Range.Text = txtCouncil.Value
.Bookmarks("Water_Auth").Range.Text = txtWater_Auth.Value
.Bookmarks("Elect_Auth").Range.Text = txtElect_Auth.Value
.Bookmarks("Main_Drain_Auth").Range.Text = txtMain_Drain_Auth.Value
.Bookmarks("Comms_Auth").Range.Text = txtComms_Auth.Value
.Bookmarks("Tender_Close").Range.Text = txtTender_CLose.Value
.Bookmarks("LDs").Range.Text = txtLDs.Value
.Bookmarks("Works_Ins").Range.Text = cboWorks_Ins.Value
.Bookmarks("PL_Ins").Range.Text = cboPL_Ins.Value
.Bookmarks("Possession_Time").Range.Text = txtPossession_Time.Value
.Bookmarks("Possession_Trigger").Range.Text = txtPossession_Trigger.Value
.Bookmarks("PC_Date_Time").Range.Text = cboPC_Date_Time.Value
.Bookmarks("PC").Range.Text = txtPC.Value
End With
Application.ScreenUpdating = True
Unload Me
End Sub

[SamT]

I think the *cough cough* error is in the *cough cough* line

[Paul_Hossler]

Welcome to the forum

I added CODE tags around your macro for formatting and readability -- use the [#] next time


I am getting an issue with my code when I run it,

Afraid that doesn't help much

Can you attach a sanitized (if necessary) document that shows the issue?

My sig has instructions

[Paul_Hossler]

Ninja-ed by SamT again

[SamT]

I dint see nuttin in dat code dat jumped up an said "I'm bad!"