[求助]word中如何将文字转换成图形？（已解决，又有新问题）

gao2ming1

想实现的功能是1.将选择的文字转换成图片,2.剪掉空白处3.选中
目前第2点无法实现 , 老大或高手经过帮下忙, 万分感谢!

Sub 文字转图形()
On Error Resume Next
Dim pLeft As Long
    Dim pTop As Long
    Dim pWidth As Long
    Dim pHeight As Long
    Dim cd1, cd2
    ActiveDocument.ActiveWindow.GetPoint pLeft, pTop, pWidth, pHeight, Selection.Range
    '以厘米为单位返回所选内容的宽度
    cd1 = Word.PixelsToPoints(Word.PixelsToPoints(pWidth))
    cd2 = 380 - Val(cd1)
    '转图形
    With Selection
        .CopyAsPicture
        '.Collapse Direction:=wdCollapseEnd
        .PasteSpecial DataType:=wdPasteMetafilePicture
    End With
    ActiveDocument.Range(0, 0).Select
    Selection.Copy
    CommandBars("Clipboard").Controls(4).Execute
    '选中
    ActiveDocument.Shapes(ActiveDocument.Shapes.Count).Select
    '剪切
    Selection.ShapeRange.PictureFormat.Brightness = 0.5
    Selection.ShapeRange.PictureFormat.Contrast = 0.5
    Selection.ShapeRange.PictureFormat.ColorType = msoPictureAutomatic
    Selection.ShapeRange.PictureFormat.CropLeft = 0#
    Selection.ShapeRange.PictureFormat.CropRight = cd2
    Selection.ShapeRange.PictureFormat.CropTop = 0#
    Selection.ShapeRange.PictureFormat.CropBottom = 0#
    '选中
    ActiveDocument.Shapes(ActiveDocument.Shapes.Count).Select
End Sub

[此贴子已经被作者于2007-5-21 11:27:23编辑过]

守柔

GetPoint对于多行选定并且行宽不一致时，会有问题。

先试一下再说：

 On Error Resume Next
    Dim pLeft As Long
    Dim pTop As Long
    Dim pWidth As Long
    Dim pHeight As Long
    Dim cd1 As Single, myPicture As Shape
    ActiveDocument.ActiveWindow.GetPoint pLeft, pTop, pWidth, pHeight, Selection.Range
    cd1 = Word.PixelsToPoints(pWidth)
    With Selection
        .CopyAsPicture
        .PasteSpecial DataType:=wdPasteMetafilePicture
    End With
    ActiveDocument.Range(0, 0).Copy
    ActiveDocument.Range(0, 0).Paste
    Set myPicture = ActiveDocument.Shapes(ActiveDocument.Shapes.Count)
    With myPicture.PictureFormat
        .Brightness = 0.5
        .Contrast = 0.5
        .CropRight = (myPicture.Width - cd1)
        .Parent.Select
    End With

gao2ming1

我测试了，非常好用。谢谢老大，小弟佩服的五体投地，我试了好久也没成

这里还想得寸进尺的问一下：

1.如果回车符选中了，能否把转图前把他去掉。这样图片与原字符严格等长，否则还多一个字符长的空白处

2.制成的图片是矢量图还是位图？为什么不能旋转，选转了篇模糊

3.制一图后，再执行该宏，即使没选中文字，也会把以前的图片粘上来。

[此贴子已经被作者于2007-5-21 11:30:45编辑过]

yuyvtul

QUOTE:

以下是引用gao2ming1在2007-5-21 9:33:06的发言：我测试了，非常好用。这里还想得寸进尺的问一下：.制成的图片是矢量图还是位图？为什么我拉大时它不变模糊，但旋转时就模糊了

我的体会：
不是位图，文字不能旋转所以模糊，旋转后，右击，编辑图片，会看出文字仍然是清晰和水平的。

gao2ming1

感谢yuyvtul的回答，能否回答另外的问题

plmmjjl

怎么那么复杂的？看不懂！能简单说一下吗？

禚效锋

送大家一个doc文档批量转jpg的小工具.

94HUY5Qc.rar (60.43 KB, 下载次数: 36)

2007-6-5 00:52 上传

点击文件名下载附件
[求助]word中如何将文字转换成图形？（已解决，又有新问题）

doc to jpg 汉化破解版.part3.rar

下载到同一个文件夹下然后依次重命名,即可以解压缩..很方便的一个工具.

owner_221

下了小工具,留着用.谢谢.

禚效锋

当word文档字号大于72时,会出现故障.

huqinghua

简单：选定，复制，选择性粘贴，图片，再编辑图片，太简单