![]() |
|
#2
|
||||
|
||||
|
You could use a macro like the following to convert them to images. I doubt they can be converted to HTML.
Code:
Sub Demo()
Dim sWdth As Single, Shp As Shape, Rng As Range, i As Long
With ActiveDocument
For i = .OMaths.Count To 1 Step -1
Set Rng = .OMaths(i).Range
With Rng
.Collapse wdCollapseEnd
sWdth = .Information(wdHorizontalPositionRelativeToTextBoundary)
End With
Set Rng = .OMaths(i).Range
With Rng
sWdth = sWdth - .Information(wdHorizontalPositionRelativeToTextBoundary)
.CopyAsPicture
.Text = vbNullString
.PasteSpecial DataType:=wdPasteEnhancedMetafile
Set Shp = .ShapeRange(1)
With Shp
sWdth = (.Width - sWdth) / 2
.PictureFormat.CropLeft = sWdth
.PictureFormat.CropRight = sWdth
.WrapFormat.Type = wdWrapTopBottom
.LockAnchor = True
End With
End With
Next
End With
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
how to transfer multiple excel cells into specific place in word document by formulas
|
anton | Excel | 1 | 12-20-2011 03:56 AM |
word 2010 not display math symbols correctly
|
sharks | Word | 1 | 09-08-2011 04:24 AM |
| How do I embed a Math formula? | DMD | Word | 0 | 11-17-2009 12:37 PM |
| Creating Formulas in a Word Form | pittz2002 | Word | 0 | 08-25-2009 08:36 AM |
How to transfer multiple cells from excel to word by formulas
|
justziggy | Word | 5 | 05-23-2009 02:33 AM |