Skip to content

Update IEEE Body Macro #2

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
justinallmaras wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Update IEEE Body Macro #2

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
19 changes: 15 additions & 4 deletions src/body_macro.bas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
Sub Macro1()
'
' Macro1 Macro
Sub IEEEBodyMacro()
'
' Subroutine for formatting IEEE two column documents
' Running the macro will set up the formatting of the paper to adhere to the IEEE two column standard
'
Selection.WholeStory
With ActiveDocument.Styles(wdStyleNormal).Font
Expand All @@ -10,6 +10,7 @@ Sub Macro1()
End If
.NameFarEast = ""
End With

With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
Expand All @@ -36,6 +37,7 @@ Sub Macro1()
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With

With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
Expand All @@ -62,6 +64,7 @@ Sub Macro1()
.TextboxTightWrap = wdTightNone
.CollapsedByDefault = False
End With

With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
Expand Down Expand Up @@ -89,6 +92,7 @@ Sub Macro1()
.TextboxTightWrap = wdTightNone
.CollapsedByDefault = False
End With

With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0)
.RightIndent = InchesToPoints(0)
Expand All @@ -115,6 +119,7 @@ Sub Macro1()
.TextboxTightWrap = wdTightNone
.CollapsedByDefault = False
End With

Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0)
Expand Down Expand Up @@ -142,6 +147,7 @@ Sub Macro1()
.TextboxTightWrap = wdTightNone
.CollapsedByDefault = False
End With

Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 12
Selection.WholeStory
Expand All @@ -151,6 +157,7 @@ Sub Macro1()
End If
.NameFarEast = ""
End With

With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
Expand All @@ -177,25 +184,29 @@ Sub Macro1()
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If

With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=1
.EvenlySpaced = False
.LineBetween = False
End With

ActiveDocument.PageSetup.TextColumns.Add Width:=InchesToPoints(3.5), _
Spacing:=InchesToPoints(0.24), EvenlySpaced:=False
Selection.WholeStory
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
End Sub

Sub Heading()
'
' Heading Macro
' Subroutine for formatting IEEE two column format headings
'
'
Selection.Font.Name = "Times New Roman"
Expand Down