macro i Worddokument kører ikke auto_open ved start.
Jeg har følgende kode som ikke bliver kørt ved oprettelse af et nyt dokument:Sub Auto_Open
' Exit macro if no fields in document
If ActiveDocument.FormFields.Count = 0 Then Exit Sub
' Create variables.
Dim OfficeAppName As String
Dim RegSection As String
Dim RegKey As String
Dim FieldObj As Object
Dim RegValue As Long
OfficeAppName = "Word 2003"
RegSection = "UserData"
RegKey = "Current Counter"
' Generate error if form field doesn't exist
On Error GoTo ErrHandler
Set FieldObj = ActiveDocument.FormFields("IncField")
' Get stored registry value, if any
RegValue = GetSetting(OfficeAppName, RegSection, RegKey, 0)
' If not previously set, set to default
If RegValue = 0 Then RegValue = 1
' Set form field result to stored value
FieldObj.Result = CStr(RegValue)
' Increment and update invoice number
SaveSetting OfficeAppName, RegSection, RegKey, RegValue + 1
ErrHandler:
If Err <> 0 Then
MsgBox Err.Description
End If
End Sub
Der kommer ingen fejl og jeg bliver spurgt om jeg vil køre macroen. Så den er ikke blokkeret. Er der nogen som har et godt forslag?