如何实现“一问一答”的交替出现排版样式

daocao2003

各位大神好！

我在工作中需要和当事人谈话做记录，word文档中固定格式就是上一段“问：……”，然后下一段“答：……”

想要请教的是，如何实现在“问：……”这个段落后，回车，直接生成“答：”，然后再回车，就显示“问：”

我目前的想到的方法是定义样式，样式的项目符号设置为“问”或者“答”，然后在后续段落样式里面设置为相应的“答”或者“问”

但是缺点就是项目符号只能是一个字，且后面紧跟一个制表符。请教各位大神有没有办法实现回车后自动在段首交替出现“问：”和“答：”

谢谢！

sylun

在项目符号列表设置中除了符号外，还可选图片作为项目符号的。可试试先自行制作两个问与答的小图片，然后设置将其作为项目符号（图片），其余设置不变。

daocao2003

感谢楼上的建议。
http://wordfaqs.ssbarnhill.com/QandA.htm
http://wordfaqs.ssbarnhill.com/QandA2007.htm
我参考上面这两篇文章，终于弄清楚了，实现了一问一答交替功能。

shenjianrong163

试试这个，先运行test程序：

1. Sub test()
   
2.     On Error Resume Next
   
3.     Call InsertAskAndAnswer
   
4.     Application.OnTime Now + 0.000002, "test"
   
5.     DoEvents
   
6. End Sub
   
7. Function InsertAskAndAnswer()
   
8.     Dim s As Long, n As Long, Myrange As Range
   
9.     s = Selection.Paragraphs(1).Range.End
   
10.     Set Myrange = ActiveDocument.Range(0, s)
    
11.     n = Myrange.Paragraphs.Count
    
12.     If Len(ActiveDocument.Paragraphs(n).Range.Text) = 1 Then
    
13.         If n = 1 Then
    
14.             Selection.InsertAfter Text:="问："
    
15.             Selection.MoveDown unit:=wdParagraph
    
16.         Else
    
17.             If Left(ActiveDocument.Paragraphs(n - 1).Range.Text, 2) = "问：" Then
    
18.                 Selection.InsertAfter Text:="答："
    
19.                 Selection.MoveDown unit:=wdParagraph
    
20.             Else
    
21.                 Selection.InsertAfter Text:="问："
    
22.                 Selection.MoveDown unit:=wdParagraph
    
23.             End If
    
24.         End If
    
25.     End If
    
26. End Function

复制代码