替换为首行缩近的问题

tongyi

在替换为中设置为格式段落首行缩近，明明是2字符，可回到文档里看段落属性却是以厘米做的单位。请问个位是怎么回事呢。我找了一下论坛里没有找到答案。怎样用替换可以替换为首行缩近以字符为单位。谢谢

如意

若楼主只是想对版式进行修改，我建议在“样式和格式”里进行修改，效果更好，方法也更简单，你打开“样式和格式”对话框就明白了。

tongyi

我是有几个操作连起来的，我想把她录制成宏。最好还是能解决我所说的问题，难道是word不支持吗

或者用vba代码，查找一个段落将其设置为缩近2字符，然后再查找下一段落。谢谢版主的回复

[此贴子已经被作者于2005-6-19 22:53:07编辑过]

如意

以下是引用tongyi在2005-6-19 22:51:00的发言：

我是有几个操作连起来的，我想把她录制成宏。最好还是能解决我所说的问题，难道是word不支持吗

或者用vba代码，查找一个段落将其设置为缩近2字符，然后再查找下一段落。谢谢版主的回复

下面是我录的一个宏，操作内容是Ctrl+A，然后拉动悬挂进行缩进2个字符。这知这样能不能让楼主满意。

Sub Macro1() ' ' Macro1 Macro ' 宏在 2005-06-19 由 gxr 录制 ' Selection.WholeStory With Selection.ParagraphFormat .SpaceBeforeAuto = False .SpaceAfterAuto = False .FirstLineIndent = CentimetersToPoints(1.03) End With End Sub

tongyi

我还没有试，但你这个代码可能也是缩近以厘米为单位的吧，1.03应该不是字符单位吧，而且我的要求是我只选中某几段，就只对选中的段落生效

konggs

把 .FirstLineIndent = CentimetersToPoints(1.03) 改为：.firstlineindent=InchesToPoints(1.03)

试试！

tongyi

不行啊，而且缩近了2.62厘米啊，没有高人肯指点吗

konggs

在工具/选项/常规/下的以字符为单位，试试

守柔

Sub sample() ActiveDocument.Content.ParagraphFormat.CharacterUnitFirstLineIndent = 2 End Sub 关于字符与厘米的问题，可见工具/选项/常规/度量单位中的设置。

另，你这个问题，完全没有必要使用VBA来解决。

普通的替换即可做到，无论是格式还是样式，俱可。

请上传你的附件，我看一下。

[此贴子已经被作者于2005-6-20 18:57:21编辑过]

tongyi

版主你好，就比如我有几段文字，是没有首行缩近的，我想通过运行一个宏，将其设置为首行缩近两格，但必须满足1.如果没有选定文本就要从光标处开始到尾结束，2.如果选定了一些段落就只改选定了的段落，而不是全部都替换为首行缩近。谢谢