如何设置每行的前两个单词格式为斜体？

hunthunt2002

Clochidion lanceolarium (Roxb.) Voigt 艾胶算盘子

Fimbristylis fusca (Nees) Benth.暗褐飘拂草

。。。

如上植物的学名，要设置每行的前两个单词格式为斜体，请问有什么方法？谢谢

所需效果如下：

Clochidion lanceolarium (Roxb.) Voigt 艾胶算盘子

Fimbristylis fusca (Nees) Benth.暗褐飘拂草

。。。

stiger

还是用无能不能的宏！

413191246se

录制一个宏，复制如下代码：（如果不知道何为宏，查 WORD 帮助---录制宏）

Sub 前两个单词斜体()
    Selection.WholeStory
    Selection.Font.Color = wdColorBlue
' 删除空行
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If Len(Trim(i.Range)) = 1 Then i.Range.Delete
    Next
' 前两个单词斜体
    For Each i In ActiveDocument.Paragraphs
        i.Range.Select
        With Selection.Words(1)
            .Font.Color = wdColorRed
            .Font.Italic = True
            .Bold = True
        End With
        i.Range.Select
        With Selection.Words(2)
            .Font.Color = wdColorRed
            .Font.Italic = True
            .Bold = True
        End With
    Next
End Sub

tangqingfu

学习ing……

sqhsqhli

3楼代码是在段落中循环，这个是按1楼要求每行。。。
Sub s1()
With Selection
.EndKey unit:=wdStory
Do Until ActiveDocument.Range.Start = .Start
.MoveStart unit:=wdLine, Count:=-1
.Words(1).Font.Italic = True
.Words(2).Font.Italic = True
.HomeKey unit:=wdLine
Loop
End With
End Sub

hunthunt2002

谢谢大家的指导，很有帮助。
现在新的问题是：中文名在写在前，英文名在后，要求依然是英文名的前两个单词是斜体。
难度加大了很多吗？例子如下：

艾胶算盘子 Clochidion lanceolarium (Roxb.) Voigt
飘拂草 Fimbristylis fusca (Nees) Benth.
。。。
所需效果如下：
艾胶算盘子 Clochidion lanceolarium (Roxb.) Voigt
飘拂草 Fimbristylis fusca (Nees) Benth
.....
谢谢

sylun

可试试如下代码：

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     With ActiveDocument.Content.Find
   
4.         .Text = "[A-Za-z]@^32[a-z]@^32\("
   
5.         .MatchWildcards = True
   
6.         Do While .Execute
   
7.             With .Parent
   
8.                 .End = .End - 2
   
9.                 .Font.Italic = True
   
10.                 .Collapse wdCollapseEnd
    
11.             End With
    
12.         Loop
    
13.     End With
    
14.     Application.ScreenUpdating = True
    
15. End Sub

复制代码

hunthunt2002

谢谢7楼，但不是每个植物的第二个单词后都以括号开头的，例如：
淡黄荚迷 Viburnum lutescens Bl.
滴水珠 Pinellia cordata N. E. Brown
吊裙草 Crotalaria retusa L.
请问还有什么办法吗？例如介于第一个空格与第三个空格之间的格式设置为斜体？
谢谢大家

tomb88

学习了！！！

sylun

例如介于第一个空格与第三个空格之间的格式设置为斜体？

如果就这样的要求，可试试如下简单一点的代码：

1. Sub test2()
   
2.     Application.ScreenUpdating = False
   
3.     With ActiveDocument.Content.Find
   
4.         .Text = "[A-Za-z]@^32[a-z]{1,}"
   
5.         .MatchWildcards = True
   
6.         .Replacement.Font.Italic = True
   
7.         .Execute Replace:=wdReplaceAll
   
8.     End With
   
9.     Application.ScreenUpdating = True
   
10. End Sub

复制代码

如果要复杂一点的，可试试：

1. Sub test3()
   
2.     Application.ScreenUpdating = False
   
3.     With ActiveDocument.Content.Find
   
4.         .Text = "[一-龥][^13^32][A-Za-z]@^32[a-z]{1,}"
   
5.         .MatchWildcards = True
   
6.         Do While .Execute
   
7.             With .Parent
   
8.                 .Start = .Start + 2
   
9.                 .Font.Italic = True
   
10.                 .Collapse wdCollapseEnd
    
11.             End With
    
12.         Loop
    
13.     End With
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    

复制代码

代码通常要针对具体的文档来写的，否则很容易导致处理不当。