|
|
|
|
|
|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 프런트페이지 버전(2002):
2. 윈도우즈의 버전(winXP):
3. CPU (PentiumIV):
4. RAM (512MB):
* 아래줄에 질문을 작성하세요 >>
죄송합니다.
MS 프런트페이지로 수백 개의 HTML 파일을 만들었는데 그 속에 있는 URL을 몽땅 고쳐야 합니다.
여러 HTML 파일들을 동시에 열어 한꺼번에 “c:/home.registrations.com/” 에서 “http://211.242.66.22/” 로 고치려고 했어요…
그래서 프런트 페이지에 도구-매크로 메뉴에 있는 Visual Page Editor로 매크로를 작성했는데 실행해 보니 오류가 있다고 하네요 ^_^;
아래에 있는 것이 제가 작성한 VB 소스입니다. 고수님의 수정과 지도를 기대합니다.
미리 고맙다고 말씀드립니다.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
오류 내용: Selection의 개체가 필요하답니다. Selection은 프런트페이지의 개체가 아닌 것 같습니다.
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub ChangeURL()
'
' ChangeURL Macro
'
'문서가 FrontPage의 페이지 보기에 있으며
'적어도 한 페이지 이상 열려 있는지 확인합니다.
If (Application.ActiveWebWindow.ViewMode = fpWebViewPage _
And ActiveWebWindow.PageWindows.Count > 0) Then
Dim activePage, page As PageWindow 'Declare variables
'ActivePage 변수를
'현재 활성 페이지로 설정합니다.
Set activePage = ActivePageWindow
'열려 있는 모든 페이지에 대해 이 과정을 반복합니다.
For Each page In ActiveWebWindow.PageWindows
page.Activate
'각 페이지마다 편집, 바꾸기 단추를 클릭합니다
CommandBars("추가 명령").Controls("바꾸기(^H)").Execute
대화 창에 '찾기 및 바꾸기 내용 입력
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "c:/home.registrations.com/"
.Replacement.Text = "http://211.242.66.22/"
.forward = True
.wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
'모두 바꾸기 실행
Selection.Find.Execute Replace:=wdReplaceAll
Next
'모든 활성 페이지에서 찾기 및 바꾸기가 끝나면
'작업 중이었던 페이지를 다시 표시합니다
activePage.Activate
End If
End Sub
==============[에스제이님 글에 대한 답변입니다]==============
당연히 작동하지 않습니다. 프론트페이지에 모든 문서있는 글자 찾아서
바꾸기가 있습니다. 그러나 이것은 어디까지나 내용에만 해당되는 것으로 알고
있고요. 그리고 웹열기 상태에서만 작동을 합니다. 그리고 위의 스크립트와
같은 것 역시 작동하기 위해서는 웹열기 상태이어야 합니다. 페이지 하나하나
독립적으로 연 것이라면 각 페이지는 각기 별도의 프론트페이지에서 돌아가는
것으로 인식하기 때문에..... 웹열기 상태라면 웹게시를 해보시지요? 그러면
하이퍼링크는 알아서 대부분 수정이 됩니다. (또는 보고서 화면이나 하이퍼링크
화면에서 쉽게 일괄적으로 변경할 수 있습니다.)
뭐.. 이런 방법이 힘드시다면 EditPlus받으셔서 문서 전부 다 열으시고
검색-바꾸기에서 열려진 모든 파일로 바꾸셔서 일을 처리하시길........
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2003-01-14(19:22)
최종수정일 : 2003-01-14(19:22) |
|
|
|
|