2017-01-05 1 views
0

Excel에서 일부 Word 파일을 편집하고 수정하는 VB 스크립트가 있습니다. 이제 단어 파일의 바닥 글에있는 일부 텍스트를 찾아서 바꾸기 위해 노력하고 있습니다. 나는 이것을 수행 할 수있는 Word 파일의 스토리를 통해 단계를 밟을 수있는 명령을 알아낼 수 없다. 찾을 수는 &이다.Excel VB에서 Word 문서 바닥 글에서 찾기 및 바꾸기를 수행합니다.

지금 당장이 코드를 얻었는데, 필자는 그렇게해야한다고 생각합니다. 그러나 찾기가 강조 표시된 상태에서 "인수가 선택 사항이 아닙니다"오류가 발생합니다.

Set wrdDoc = wrdApp.Documents.Open(ThisWorkbook.Path & "\Raw\Template\" & strFile, ReadOnly:=True) 
... 
Dim myStoryRange As Range 
For Each myStoryRange In wrdDoc.StoryRanges 
    myStoryRange.Find.Execute FindText:=strField, ReplaceWith:=strValue, Replace:=wdReplaceAll, Wrap:=wdFindContinue 
Next myStoryRange 

누구나 Excel에서 VB 스크립트를 사용하는 방법을 알고 있습니까?

감사합니다.

+0

'.Find.Execute' 논리는 절대적으로 맞습니다. 'ReadOnly : = False' 상태에서 문서를 열면 어떻게됩니까 ?? –

+0

"인수가 선택 사항이 아닙니다"오류가 계속 나타납니다. – tincanfury

답변

0

적어도 내 문서에 대한 해결책을 찾았습니다.

wrdDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Find.Execute FindText:=strField, Format:=False, ReplaceWith:=strValue, Replace:=wdReplaceAll, Wrap:=wdFindContinue

나는 또한 내가 바닥 글에서 교체 찾던 strField 값이 결코에서 그 라인에 "그것을하지"어떤 이유로, 사용하려면 코드의 이전 부분에 라인을 이동했다 코드.