VBA操作word问题

yuanmeng7848

各位前辈大佬们！我在VBA中创建（打开）一个word文档后，想设置文档中特定字符（只是整个文档中的某几个字符，如“张三”）的字体格式，代码如何写，请前辈们不吝赐教。谢谢！




   Set WordObject = CreateObject("Word.Application")
   WordObject.Visible = 0
   Set MyWord = WordObject.Documents.Add
   WordObject.Application.Activate

   MyWord.Range(0, MyWord.Range.End) = "张三，李四，王五"
   MyWord.Content.InsertAfter "其中张三表现优秀，给予奖励！"
   With MyWord.Content.Find
          .Text = "张三"
          .Font.Name = "华文行楷"
          .Font.Bold = True
   End With

这段代码是有什么问题吗？为什么不能将文档中的“张三”字体设置成 "华文行楷"并“加粗”呢？

limonet

搜索，替换为格式。

yuanmeng7848

limonet 发表于 2025-3-30 21:39
搜索，替换为格式。

代码如何写？

yuanmeng7848

limonet 发表于 2025-3-30 21:39
搜索，替换为格式。

Set WordObject = CreateObject("Word.Application")
   WordObject.Visible = 0
   Set MyWord = WordObject.Documents.Add
   WordObject.Application.Activate

   MyWord.Range(0, MyWord.Range.End) = "张三，李四，王五"
   MyWord.Content.InsertAfter "其中张三表现优秀，给予奖励！"
   With MyWord.Content.Find
          .Text = "张三"
          .Font.Name = "华文行楷"
          .Font.Bold = True
   End With

这段代码是有什么问题吗？为什么不能将文档中的“张三”字体设置成 "华文行楷"并“加粗”呢？

IE_Crayon

1. Set WordObject = CreateObject("Word.Application")
   
2. WordObject.Visible = 0
   
3. Set MyWord = WordObject.Documents.Add
   
4. WordObject.Application.Activate
   
5. 
   
6. MyWord.Range(0, MyWord.Range.End) = "张三，李四，王五"
   
7. MyWord.Content.InsertAfter "其中张三表现优秀，给予奖励！"
   
8. 
   
9. With MyWord.Content.Find
   
10.     .Text = "张三"
    
11.     .Execute ' 必须调用 Execute 方法来执行查找
    
12.     If .Found Then ' 确保找到了匹配项
    
13.         With .Parent ' 应用于找到的范围
    
14.             .Font.Name = "华文行楷"
    
15.             .Font.Bold = True
    
16.         End With
    
17.     End If
    
18. End With
    

复制代码

lss001

yuanmeng7848 发表于 2025-3-31 09:15
代码如何写？

   With MyWord.Content.Find '查找
          .Text = "张三" '文本
          .Replacement.Font.Name = "华文行楷" '字体名称
          .Replacement.Font.Bold = True '加粗文本
          .Execute Replace:=wdReplaceAll '执行替换
   End With

Windor123

Sub 设置文档中特定字符的字体格式()
Dim wdApp, wdDoc
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add

wdApp.Selection.Text = "张三，李四，王五，"
wdDoc.Content.InsertAfter "其中张三表现优秀，给予奖励！"
With wdDoc.Content.Find
   .Text = "张三"
   With .replacement
      .Font.Name = "华文行楷"
      .Font.Bold = True
   End With
   .Execute Replace:=wdreplaceall
End With
wdDoc.SaveAs ThisWorkbook.Path & "\设置文档中特定字符的字体格式.doc"
wdDoc.Close
wdApp.Quit
End Sub

Windor123

Sub 设置文档中特定字符的字体格式()
Dim wdApp, wdDoc
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add

wdApp.Selection.Text = "张三，李四，王五，"
wdDoc.Content.InsertAfter "其中张三表现优秀，给予奖励！"
With wdDoc.Content.Find
   .Text = "张三"
   With .replacement
      .Font.Name = "华文行楷"
      .Font.Bold = True
   End With
   .Execute Replace:=wdreplaceall '修改所有找到的"张三"的格式
End With
wdDoc.SaveAs ThisWorkbook.Path & "\设置文档中特定字符的字体格式.doc"   '用.docx 出现 格式不统一 的错误
wdDoc.Close
wdApp.Quit
End Sub

yuanmeng7848

IE_Crayon 发表于 2025-3-31 10:03

谢谢各位前辈们的帮助！

yuanmeng7848

IE_Crayon 发表于 2025-3-31 10:03

谢谢各位前辈们的帮助！