어떻게 Word 2007 VBA를 사용하여 모든 텍스트를 복사하고이를 for csv 행 문서

Question

Word 2007 (또는 Word 2003) VBA를 사용하여 모든 텍스트를 복사하여 4 행 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 

Answer 1

다음 코드는 .csv 파일로 출력되어야합니다.

참고! 첫째, 마이크로 소프트 스크립팅 런타임 DLL (Scrrun.dll에)에 대한 참조를 추가하십시오 : 도구 - VBA를 창에서

> References-> (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 

당신은 당신의 필요에 따라이를 완화 할 수 ...이 도움이

희망을.