Microsoft Office Forums - View Single Post - [Solved] VBA code for Microsoft Word macro — select text and insert footnote

Thread: [Solved] VBA code for Microsoft Word macro — select text and insert footnote

View Single Post

Old

01-23-2013, 09:17 AM

gmaxey

gmaxey is offline

gmaxey uses Windows 7 32bit

Windows 7 32bit gmaxey uses Office 2010 (Version 14.0)

gmaxey uses Office 2010 (Version 14.0)

Office 2010 (Version 14.0)

Expert

Join Date: May 2010

Location: Brasstown, NC

Posts: 1,437

gmaxey is a jewel in the rough

gmaxey is a jewel in the rough

gmaxey is a jewel in the rough

gmaxey is a jewel in the rough

Default

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oFN As Footnote
Set oFN = Selection.Range.Footnotes.Add(Selection.Range, , Selection.Text & ":")
oFN.Range.Font.Italic = True
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Reply With Quote