Как добавить к текстовому документу макросы VBA

Question

Я пишу макрос в MS Word.
Мне нужен макрос, чтобы разобрать список имен файлов, номеров страниц и заметок и отфильтровать только имена файлов и номера страниц. Каждый абзац (строка) в документе относится к отдельному файлу, поэтому я перебираю оператор For / Next.

Для каждой новой строки я вытаскиваю имя файла и номера страниц и помещаю его в строку. Наряду с этим, я также добавляю несколько примечаний в строку для каждого имени файла.

Прежде чем перейти к следующей строке в документе, я хочу вывести строку, встроенную в текстовый документ.

У меня сейчас открыт текстовый документ с этим кодом:

Dim oWord as Object
Set oWord = CreateObject("Word.Application")
oWord.Documents.Open "C:\document.doc"
oWord.visible = true

Это позволяет мне успешно открыть документ, но мне нужна помощь с выяснением того, как выводить в этот документ.

Концептуально, я знаю, что мне нужно сначала сделать его активным документом, затем перейти к концу документа, а затем добавить его.

Любая помощь будет оценена. Спасибо!

Answer 1

Как насчет этого ... больше здесь .

Sub test()
    Dim app As Word.Application
    Dim doc As Word.Document

    Set app = CreateObject("Word.Application")
    app.Visible = True
    Set doc = app.Documents.Open("C:\test.doc")
    doc.Content.InsertAfter "Hello World"
    doc.Save
    doc.Close
    app.Quit
End Sub

Answer 2

Это поможет вам перебрать список файлов в данном каталоге

Sub ProcessDocs()
    Dim rng As Range
    Dim MainDoc As Document
    Dim strFile As String
    Const strFolder = "d:\Userfiles\yourname\testFiles\" 'change to suit
    Set MainDoc = Documents.Add
    strFile = Dir$(strFolder & "*.doc") ' can change to .docx
    Do Until strFile = ""
        'Extract your filename, pagenum here, and build a string
        'write string into the file
        strFile = Dir$()
    Loop

Во время цикла вы можете извлечь имена файлов и т.д .; постройте свою строку и запишите ее в файл. Надеюсь, это поможет