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

hunthunt2002

验证过了，非常感谢。“代码通常要针对具体的文档来写的，否则很容易导致处理不当。”这句很重要。
我较常调整文档来适应代码。希望经过学习可以做到针对具体的文档来写。
再次感谢！

r591

其实也可以用通配符查找换行符和“(”之间的文字，替换成斜体。
期间可能需要一点手工操作，不难。

双莉

sqhsqhli 发表于 2011-12-5 14:52
3楼代码是在段落中循环，这个是按1楼要求每行。。。
Sub s1()
With Selection

是将代码复制到宏里面就可以么？为什么我复制了还是不行呢

guanqingcheng

sylun 发表于 2011-12-8 17:42
如果就这样的要求，可试试如下简单一点的代码：如果要复杂一点的，可试试：代码通常要针对具体的文档来写 ...

Pteridium aquilinum (L.) Kuhn. var. latiusculum (Desv.) Undrew ex Heller
Athyrium brevifrons Nakai ex Kitagawa
Cystopteris sudetica A. Braun et Milde
这样的数据后面的也会变为斜体，怎样改呢？

guanqingcheng

413191246se 发表于 2011-12-5 00:26
录制一个宏，复制如下代码：（如果不知道何为宏，查 WORD 帮助---录制宏）

Sub 前两个单词斜体()

大神，如果不删空行，空行或一行里只有一个单词跳到下一行就好了

guanqingcheng

413191246se 发表于 2011-12-5 00:26
录制一个宏，复制如下代码：（如果不知道何为宏，查 WORD 帮助---录制宏）

Sub 前两个单词斜体()

大神，如果不删空行，空行或一行里只有一个单词跳到下一行就好了

kingtau

guanqingcheng 发表于 2019-12-26 16:55
Pteridium aquilinum (L.) Kuhn. var. latiusculum (Desv.) Undrew ex Heller
Athyrium brevifrons Naka ...

前几楼把简单的问题复杂化了

1. Sub 段落前两单词格式调整()
   
2.     Dim p As Paragraph
   
3.         For Each p In ActiveDocument.Paragraphs
   
4.             If p.Range.Words.Count > 2 Then
   
5.                 p.Range.Words(1).Font.Italic = True
   
6.                 p.Range.Words(2).Font.Italic = True
   
7.             End If
   
8.         Next
   
9. End Sub

复制代码

kingtau

hunthunt2002 发表于 2011-12-8 09:01
谢谢大家的指导，很有帮助。
现在新的问题是：中文名在写在前，英文名在后，要求依然是英文名的前两个单词 ...

1. Sub 测试专用()
   
2. Dim p As Paragraph
   
3.     For Each p In ActiveDocument.Paragraphs
   
4.         With p.Range.Find
   
5.             .Replacement.Font.Italic = True
   
6.             .Text = "<[A-Za-z]@>[!<]@<[A-Za-z]@>"
   
7.             .MatchWildcards = True
   
8.             .Execute Replace:=1
   
9.         End With
   
10.     Next
    
11. End Sub

复制代码