Как использовать Word 2007 (или Word 2003) VBA для копирования всего текста и вставки его в документ csv с четырьмя строками. Например: «Я люблю мир». Это будет:
I - Line 1 - page 1 - Paragraph 1
love - Line 1 - page 1 - Paragraph 1
the - Line 1 - page 1 - Paragraph 1
word - Line 1 - page 1 - Paragraph 1
Следующий код должен выводиться в файл .csv.
Примечание! Сначала добавьте ссылку на dll среды выполнения сценариев Microsoft (scrrun.dll):
Из окна VBA Tools-> References-> Check Microsoft Scripting Runtime dll
Вот код, который работает (вы можете создать макрос и поместить в него код):
Dim wordsArray, arrayElement
Dim delimiter As String
Dim fileName As String
Dim fso As FileSystemObject
Dim outputFile As textStream
'select all document's content
ActiveDocument.Select
'provide delimiter
delimiter = InputBox("Please enter delimiter to use")
'split the selected content and place it inside the array
wordsArray = Split(Selection.Text, delimiter)
'generate output file name
fileName = "C:\Output.csv"
'create new FileSystem object and open text stream to write to
Set fs = New FileSystemObject
Set outputFile = fs.CreateTextFile(fileName, True) 'note file will be overwritten
'iterate through array and write to the file
For Each arrayElement In wordsArray
'Use the following code to place each word into separate COLUMN
'outputFile.Write (arrayElement) & ","
'Use the following code to place each word into separate ROW
outputFile.WriteLine (arrayElement)
Next
'close output stream
outputFile.Close
Вы можете массировать его в зависимости от ваших потребностей ...
Надеюсь это поможет.
