复制关键字之间内容

413191246se

楼主，附件我看了，做了一下第 2 道小题的 VBA 代码，前提是：两文段落不多不少，否则会出错，因为专门针对两文的第 8 段进行替换赋值。——第 1 道小题：1.将“船东午报”中相同内容复制到“管理公司午报中”。——这个“相同内容”是什么意思呢？ 我建议你重新做附件，把 A文档、B文档 做成 C 文档 的目标要求重新叙述清楚……

413191246se

第 2 道小题代码：

1. Sub a1复制经纬度()
   
2.     Dim a$
   
3.     Documents("船东午报").Activate
   
4.     ActiveDocument.Paragraphs(8).Range.ListFormat.ConvertNumbersToText
   
5.     a = ActiveDocument.Paragraphs(8).Range.Text
   
6.     Documents("管理公司午报").Activate
   
7.     ActiveDocument.Paragraphs(8).Range.Text = a
   
8.     ActiveDocument.Paragraphs(8).Range.Characters(3).Text = "PSN Lat:"
   
9.    
   
10.     If ActiveDocument.Paragraphs(8).Range.Characters(InStr(ActiveDocument.Paragraphs(8).Range, "/") + 1) = " " Then
    
11.         ActiveDocument.Paragraphs(8).Range.Characters(InStr(ActiveDocument.Paragraphs(8).Range, "/") + 1).InsertAfter Text:="Long:"
    
12.   
    
13.     Else
    
14.         ActiveDocument.Paragraphs(8).Range.Characters(InStr(ActiveDocument.Paragraphs(8).Range, "/")).InsertAfter Text:="Long:"
    
15.     End If
    
16.     If ActiveDocument.Paragraphs(8).Range.Characters(InStr(ActiveDocument.Paragraphs(8).Range, "/") + 1) = " " Then ActiveDocument.Paragraphs(8).Range.Characters(InStr(ActiveDocument.Paragraphs(8).Range, "/") + 1).Delete
    
17.     If ActiveDocument.Paragraphs(8).Range.Characters(InStr(ActiveDocument.Paragraphs(8).Range, "/") - 1) = " " Then ActiveDocument.Paragraphs(8).Range.Characters(InStr(ActiveDocument.Paragraphs(8).Range, "/") - 1).Delete
    
18.     ActiveDocument.Paragraphs(8).Range.Font.Color = wdColorRed '红色
    
19. End Sub

复制代码