Skip to content
Permalink
master
Switch branches/tags

Name already in use

A tag already exists with the provided branch name. Many Git commands accept both tag and branch names, so creating this branch may cause unexpected behavior. Are you sure you want to create this branch?
Go to file
 
 
Cannot retrieve contributors at this time
Attribute VB_Name = "NewMacros"
Sub AutoExec()
' Wait until a document opens.
Application.OnTime Now, "AutoNew"
End Sub
Sub AutoOpen()
If DocumentIsText() Then
AutoNew
End If
End Sub
Sub AutoNew()
If Windows.Count = 0 Then
Exit Sub
End If
' Ensure that the draft font isn't used
' (e.g., if you say "draft view" by accident)
With Dialogs(wdDialogToolsOptionsView)
.DraftFont = DocumentIsText()
.Execute
End With
' Draft view is wdNormalView.
If ActiveWindow.View.Type = wdPrintView Then
ActiveWindow.View.Type = wdNormalView
End If
' If window isn't maximized, ribbon doesn't collapse fully.
ActiveWindow.WindowState = wdWindowStateMaximize
' Use full screen mode since we can control it from VBA.
ActiveWindow.View.FullScreen = True
' Wrap to window and hide the horizontal scroll bar.
ActiveWindow.View.WrapToWindow = True
ActiveWindow.DisplayHorizontalScrollBar = False
End Sub
Public Sub SimulateSave()
If ActiveDocument.Path = vbNullString Then
Application.Dialogs(wdDialogFileSaveAs).Show
Else
ActiveDocument.Save
End If
End Sub
Public Sub SaveWithoutPrompting()
If ActiveDocument.Saved = True Then
Exit Sub
End If
If DocumentIsText() Then
Application.DisplayAlerts = wdAlertsNone
SimulateSave
Application.DisplayAlerts = wdAlertsAll
Else
SimulateSave
End If
End Sub
Public Function DocumentIsText()
Select Case ActiveDocument.SaveFormat
Case WdSaveFormat.wdFormatText, _
WdSaveFormat.wdFormatTextLineBreaks, _
WdSaveFormat.wdFormatDOSText, _
WdSaveFormat.wdFormatDOSTextLineBreaks, _
WdSaveFormat.wdFormatEncodedText, _
WdSaveFormat.wdFormatUnicodeText
DocumentIsText = True
Case Else
DocumentIsText = False
End Select
End Function
Sub FindPlaceholder(Forward As Boolean)
With Selection.Find
.ClearFormatting
.Wrap = wdFindContinue
.MatchWholeWord = False
.Forward = Forward
.Execute FindText:="***"
End With
End Sub
Public Sub FindNextPlaceholder()
FindPlaceholder (True)
End Sub
Public Sub FindPreviousPlaceholder()
FindPlaceholder (False)
End Sub