查找替换的问题

weiyingde

dafanshu1 发表于 2017-4-9 23:26
我在word中极少用换行符，对它理解不深。
个人认为，换行符就是仅仅换行而已，换行符前后的内容均属于同 ...

如何判断段落序号？
段序=1 then
怎样表达？

weiyingde

我这样表达是错误的：
For Each par In ActiveDocument.Paragraphs
    With par
            If par.ID = 1 Then
不能用ID，我不熟，想当然……

weiyingde

这个替换代码应该怎样改？
Sub 将数字和英文由半角变全角()
With ActiveDocument.Content.Find
     .Replacement.Parent.CharacterWidth = wdWidthFullWidth
     .Execute "^$", , , , , , , , , "^&", 2
End With
With ActiveDocument.Content.Find
     .Replacement.Parent.CharacterWidth = wdWidthHalfWidth
     .Execute "^#", , , , , , , , , "^&", 1
End With
End Sub
目的是将word文档中的半角英文和数字变成全角。

jiminyanyan

weiyingde 发表于 2017-4-10 15:03
这个还要杜老师教我，我还一时领悟不到。
With .Parent
                .Start = .Start + 1: .End =  ...

给啊杜老师点学费，让他教你．．．．
哈，这帖太长了，不看了，有问题，开新帖吧．．．

dafanshu1

weiyingde 发表于 2017-4-10 16:09
我这样表达是错误的：
For Each par In ActiveDocument.Paragraphs
    With par

不懂呢……
正如jiminyanyan兄所说的，楼主你还是另起新贴来提问吧。

dafanshu1

weiyingde 发表于 2017-4-10 16:09
我这样表达是错误的：
For Each par In ActiveDocument.Paragraphs
    With par

或者参考这贴吧：http://club.excelhome.net/thread-62134-1-1.html

13907933959

weiyingde 发表于 2017-4-10 18:15
这个替换代码应该怎样改？
Sub 将数字和英文由半角变全角()
With ActiveDocument.Content.Find

网友好！

Sub 英文字母和数字半角转为全角()
    Dim myRange As Range
    Set myRange = ActiveDocument.Content
    myRange.Find.ClearFormatting
    Do While myRange.Find.Execute(FindText:="[0-9A-Za-z]", Wrap:=wdFindStop, Format:=False, MatchWildcards:= True)
       myRange.CharacterWidth = wdWidthFullWidth
       Set myRange = ActiveDocument.Range(myRange.End, ActiveDocument.Content.End)
    Loop
End Sub

weiyingde

13907933959 发表于 2017-4-12 14:48
网友好！

Sub 英文字母和数字半角转为全角()

谢谢你，已经解决了。