나눔터  
  HOME > 나눔터 > 묻고답하기 > 프론트페이지
프론트페이지
프론트페이지에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 에스제이 (everclick)

추천:  45
파일:     조회:  2773
제목:   프런트페이지에서 일 저지르고 잠 못잡니다 ㅡ ^_^;;
　 　 　
　 * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

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



 		　
[불량 게시물 신고]  
 　  　  　
  

작성일 : 2003-01-13(19:30)
최종수정일 : 2003-01-13(19:30)
　


 ◎ 관련글
  제 목   작성자   날짜
◎ 프런트페이지에서 일 저지르고 잠 못잡니다 ㅡ ^_^;; 에스제이 2003-01-13
[RE]프런트페이지에서 일 저지르고 잠 못잡니다 ㅡ ^_^;; 대구루루 2003-01-14