Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Replace the VBA code with the Qm code error
#12
Try this:
Macro Macro5
Code:
Copy      Help
;/exe 1
out
typelib Word {00020905-0000-0000-C000-000000000046} 8.0
Word.Application app._getactive ;;connect to Word. Note: need the /exe 1.
Word.Document doc=app.ActiveDocument
VARIANT StartRange=doc.Paragraphs.Item(2).Range.Start
VARIANT EndRange=doc.Paragraphs.Item(4).Range.End
Word.Range ran=doc.Range(StartRange EndRange)
ran.Bold=1
ran.Font.Size=15
ran.Font.Name="Stencil"


Messages In This Thread

Forum Jump:


Users browsing this thread: 1 Guest(s)