Word for Mac doesn't quit

Alyb · #1 11-13-2024, 02:01 AM

I have this macro to fill a form (an RTF document) with {FORMTEXT} fields. I found no way to access these fields directly, so this is what I came up with:

Code:

Sub FillForm()
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Comments"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCell
    Selection.TypeText Text:="No comment"
    Selection.MoveRight Unit:=wdCell
    Selection.EndKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.InsertDateTime DateTimeFormat:="MMMM dd, yyyy", InsertAsField:=False
    Selection.MoveRight Unit:=wdCell
    Selection.EndKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.TypeText Text:="Alyb"
    ActiveDocument.save
    Application.Quit SaveChanges:=wdDoNotSaveChanges
End Sub

The strange thing is that Word for Mac (Microsoft® Word for Mac, Version 16.91 (24111020)) doesn't quit after running the macro. How come?

And I have one other question: every time I change a macro, I have to grant Word for Mac access to the normal.dotm. Can this step be automated/prevented?

Charles Kenyon · #2 11-18-2024, 06:43 AM

Quote:

Originally Posted by Alyb

***
And I have one other question: every time I change a macro, I have to grant Word for Mac access to the normal.dotm. Can this step be automated/prevented?

If you press Ctrl+S while in the visual basic editor after you made the change, you will have saved the change and will not be asked for permission.

macropod · #3 11-19-2024, 12:37 AM

A fairly simple way to access formfields programmatically:

Code:

Sub FillForm()
With ActiveDocument
  .FormFields(1).Result = "No comment"
  .FormFields(2).Result = Format(Now(), "MMMM dd, yyyy")
  .FormFields(3).Result = "Alyb"
End With
Application.Quit True
End Sub

More importantly, once you apply 'Filling in Forms' protection, which is required for formfields to work, your code won't work.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Close file or quit application ?	MartinGM	Excel Programming	1	09-29-2023 03:25 AM
Help Quit Working in All Office 365 Apps	RetiredCHE	Office	0	10-01-2019 06:56 PM
The Word userform checkbox (checked/unchecked) is not saved on the Application Quit	matapagi2019	Word VBA	3	03-31-2019 02:29 AM
all of my formulas quit automatically calculating	chenstrap	Excel	4	03-16-2016 08:04 AM
Word Crash on Quit	masomenos	Word	2	11-09-2010 12:35 AM