Macro til automatisk at lukke "tidligere" word dokument.
Jeg vil gerne lave en generel macro i Microsoft Word 2003, der når en bruger på et delt netværk åbner et word dokument automatisk brevfletter til et nyt dokument fra et excel ark og herefter automatisk lukker det oprindelige dokument.Min macro ser forløbig sådan her ud.
Sub AutoOpen()
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
.LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord
End With
.Execute Pause:=False
End With
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"FILENAME \p ", PreserveFormatting:=True
Windows("BB2.doc").Activate
ActiveDocument.Close wdDoNotSaveChanges
End Sub
Det er specielt linien Windows("BB2.doc").Activate, der volder mig problemer, og som jeg gerne vil erstatte med en generel linie så macroen også vil virke på andre dokumenter end BB2.doc
