متطلبات البرنامج يستعرض مع MS Word - كيف يمكنني الحصول على مقاييس بطريقة آلية?

Question

دعونا نقول لدي وثيقة المتطلبات في MS Word و شخص آخر استعراض أنه يوفر قائمة من القضايا العثور على استخدام "تعقب التغييرات" الميزة.

هل هناك طريقة لاستخراج "كم الرئيسية/قضايا بسيطة تم العثور عليها من خلال هذا الاستعراض ؟" باستخدام برنامج نصي الآلي - على مقاييس أغراض ؟

أرى CodeCollaborator لديه بعض MS Word التكامل ، ولكن يبدو أنها لا تعرف كيف تبدو كلمة داخل لاستخراج التغييرات المتعقبة البيانات.فقط تطلق الوثيقة.

Answer 1

لم بمجرد كتابة كلمة ماكرو مقتطفات التعليقات على وثيقة منفصلة, انكم مدعوون الى محاولة التكيف مع هذه الأغراض الخاصة بك, إذا كان لديك مشكلة ثم الرد هنا و أستطيع مساعدتك في إجراء التغييرات.

Public Sub PROCESS_COMMENTS()

Dim strReplaceText As String
Dim myPar As Paragraph
Dim strCurrentColumn As String
Dim i As Integer
Dim Com As Comment

    Application.ScreenUpdating = False

    '   set the input and output docs.
    Set inDoc = ActiveDocument
    '   check we have comments to process in the original document
    If inDoc.Comments.Count < 1 Then
        MsgBox "No comments in the document"
        Exit Sub
    End If

    '   comments exist so create new document
    Set outDoc = Documents.Add
    Set outRange = outDoc.Content

    outDoc.Range.InsertAfter "List of Comments:"
    outDoc.Paragraphs(outDoc.Paragraphs.Count).Style = outDoc.Styles("Heading 1")
    outDoc.Range.InsertParagraphAfter


    '   cycle through comments, inserting them in the new document
    '   display the new document and refresh
    outDoc.Activate
    Application.ScreenRefresh

    For Each Com In inDoc.Comments
        outRange.InsertAfter "[" & Com.Author & " - " & Com.Initial & Com.Index & "] "
        outDoc.Paragraphs(outDoc.Paragraphs.Count).Range.Font.Bold = True
        outDoc.Range.InsertParagraphAfter
        outRange.InsertAfter Com.Range.Text
        outDoc.Paragraphs(outDoc.Paragraphs.Count).Range.Font.Bold = False

        Set myRange = Com.Scope


        outDoc.Range.InsertParagraphAfter
        outDoc.Range.InsertParagraphAfter
    Next

    Application.ScreenUpdating = True
    Set outDoc = ActiveDocument

End Sub