Is it possible to make a macro for inserting a 'division box?'

macropod · #1 08-30-2018, 06:40 PM

Creating such equations with VBA using the equation editor gets fairly complex. See: https://software-solutions-online.co...ing-equations/

A simpler alternative might be to use an EQ field. For example:

Code:

Sub LongDivision()
Dim StrVal As String, Fld As Field
StrVal = Trim(InputBox("Amount to divide"))
Set Fld = ActiveDocument.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, _
  Text:="EQ \s\up6(\f(,\)" & StrVal & "))", PreserveFormatting:=False)
Fld.Code.Text = Trim(Fld.Code.Text)
Set Fld = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Footnote extraction macro [Why is this macro so slow? / anyway to make it faster?]	Le_Blanc	Word VBA	10	03-22-2021 11:38 AM
Equations - Bracketed division size	Dan110024	Word	0	09-03-2015 11:10 PM
Division by Zero error	Nate	PowerPoint	1	11-29-2012 10:51 PM
No paragraphs division	hbrt	Word	1	01-24-2012 05:01 PM
division zero escape?	gmyls	Excel	2	05-22-2009 02:37 AM