实现文字方向的从右起向左功能

qinyunxue

包括两点：

1、输入文字时就能从右起向左出文；

2、把已有文字完美地转换为从右起向左文档格式。

sandyw

Private Sub Document_New()
ThisDocument.Paragraphs.Format.Alignment = wdAlignParagraphRight

Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
End Sub

andysky

这个更简单

qinyunxue

重新说明一下

[此贴子已经被作者于2006-5-20 20:22:33编辑过]

qinyunxue

我想可能是理解有误，我的意思是把已有的文字段落整段进行转换。

比如，把下面的段落内容转换为从右起向左：

嗟夫！予尝求古仁人之心，或异二者之为，何哉？不以物喜，不以己悲；居庙堂之高则忧其民；处江湖之远则忧其君。是进亦忧，退亦忧。然则何时而乐耶？其必曰“先天下之忧而忧，后天下之乐而乐”乎。噫！微斯人，吾谁与归？

转换后：

；民其忧则高之堂庙居；悲己以不，喜物以不？哉何，为之者二异或，心之人仁古求尝予！夫嗟
下天后，忧而忧之下天先“曰必其？耶乐而时何则然。忧亦退，忧亦进是。君其忧则远之湖江处
？归与谁吾，人斯微！噫。乎”乐而乐之

选按功能按钮后，并能实现文档在输入时从右到左排列，如：

先天下之忧而忧，后天下之乐而乐

输入成：乐而乐之下天后，忧而忧之下天先

鑫11

注意：运行前请把段落开头的空格（即让所有的段落开头顶格），因为不这样运行宏时会出现问题，这也是该宏不完善之处，但我想了很久无法解决
试一试，可能等待一段时间才能出结果
Sub Macro76()
Application.ScreenUpdating = False
Dim a, b, f As Range, sdf As Long
d = Chr(13)
sdf = Selection.Information(wdNumberOfPagesInDocument)
For j = 1 To sdf
For k = 1 To ActiveDocument.ActiveWindow.Panes(1).Pages(j).Rectangles(1).Lines.Count
Set f = ActiveDocument.ActiveWindow.Panes(1).Pages(j).Rectangles(1).Lines.Item(k).Range
t = Right(f.Text, 1)
If InStr(d, t) = 0 Then
g = 1
Else: g = 2
End If
For i = 1 To Len(f.Text) - 1
Set a = ActiveDocument.Range(f.End - g, f.End - g + 1)
a.Cut
Set b = ActiveDocument.Range(f.Start + i - 1, f.Start + i - 1)
b.Select
Selection.Paste
Next
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Next
Next
Application.ScreenUpdating = true
End Sub

ssq1109

应可用下列语句删除段首空格(全角和半角,不超过20个,当然可修改相应的数字),但这不能删除文首的空格.
With Selection.Find
.Text = "^13([ 　]{1,20}*)"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll