[求助]vba问题：word中的MillimetersToPoints

casablanca

我在word2000中使用“分散对齐”的功能
想把选定的6个字符设定成“6字”单位的分散对齐，想用vba实现

于是利用宏纪录的方式得到以下代码：
Selection.Range.FitTextWidth = MillimetersToPoints(22.3)
但是，当我选定其他的6个字符时，再使用这个宏，就会发现被设定成了”5.99字“


我的本意是：
把选定的字符的长度存到变量a
再把a的值赋给Selection.Range.FitTextWidth
但是谁知道不可以直接写成
Selection.Range.FitTextWidth = a


请问如何能解决这个问题

先谢了！

守柔

QUOTE:

以下是引用casablanca在2007-3-8 19:17:16的发言：

我在word2000中使用“分散对齐”的功能
想把选定的6个字符设定成“6字”单位的分散对齐，想用vba实现

于是利用宏纪录的方式得到以下代码：
Selection.Range.FitTextWidth = MillimetersToPoints(22.3)
但是，当我选定其他的6个字符时，再使用这个宏，就会发现被设定成了”5.99字“


我的本意是：
把选定的字符的长度存到变量a
再把a的值赋给Selection.Range.FitTextWidth
但是谁知道不可以直接写成
Selection.Range.FitTextWidth = a


请问如何能解决这个问题

先谢了！

在VBA中，或者说WORD的处理过程中，都把度量单位（厘米、毫米、字符、等）转换成磅，因此，你会看到这个录制宏结果。

casablanca

谢谢斑竹！

但是，要怎样才能做到我想要的功能呢？

就是得到的结果不是5.99，而是6

用什么代码可以取代Selection.Range.FitTextWidth = MillimetersToPoints(22.3)
，或者需要更改什么设置？

我想要的就是：把变量a值赋给Selection.Range.FitTextWidth
a是多少，我查看时的结果就是多少。

[此贴子已经被作者于2007-3-11 15:20:55编辑过]

casablanca

工作急需要

请帮帮忙吧

守柔

这是必然存在的精度误差的问题，我建议使用格式刷的方式予以解决。

CopyFormat,PasteFormat

casablanca

能不能举个例子，说明一下这两个命令的用法？

sylun

QUOTE:

以下是引用casablanca在2007-3-17 14:10:37的发言：

能不能举个例子，说明一下这两个命令的用法？

对这样的问题，找帮助文件看看也许更方便快捷些。

以下是帮助文件copyformat条目的内容：

CopyFormat方法
本方法复制所选文字第一个字符的字符格式。如果选定了段落标记，则Word同时复制字符格式和段落格式。
注释  用PasteFormat方法可将复制的格式应用于其他选定内容。
expression.CopyFormat
expression      必需。该表达式返回一个Selection对象。
示例
本示例将活动文档第一段的格式复制到第二段。
ActiveDocument.Paragraphs(1).Range.Select
Selection.CopyFormat
ActiveDocument.Paragraphs(2).Range.Select
Selection.PasteFormat

本示例折叠所选内容，并将所选内容的字符格式复制到下一个单词。
With Selection
    .Collapse Direction:=wdCollapseStart
    .CopyFormat
    .Next(Unit:=wdWord, Count:=1).Select
    .PasteFormat
End With

[此贴子已经被作者于2007-3-17 14:40:01编辑过]

casablanca

非常感谢！！！