☰

하드 코딩된 Word 참고 문헌 목록 변환

tag-icon • tag-icon microsoft-word
하드 코딩된 Word 참고 문헌 목록 변환

나는 ~250페이지 정도의 꽤 큰 단어 문서를 가지고 있습니다. 단어 참조/인용은 사용되지 않습니다. 문서에 포함된 참조는 간단한 텍스트입니다.

Tarptautinės savižudybių prevencijos asociacijos (angl. International Association for Suicide Prevention (IASP) rekomendacijas [18, 36, 202]. Tyrimais nustatyta, jog geresni expertų savižudybių intervencijos įgūdžiai susiję su specifiniais savižudybių moky mais arba tiesioginiu expertų darbu su savižudiškais pacientais [19, 176, 177].`

참고문헌 목록은 문서 마지막에 직접 입력합니다.

  1. Abbas MAF, Abu Zaid LZ, Hussaein M. 사우디아라비아 킹 파하드 메디컬 시티(King Fahad Medical City) 간호 직원의 불안과 우울증. AIMS 의학 2015; 2(4): 303–309.
  2. Ahmed-Little Y. 하급 의사를 위한 교대 근무의 의미. BMJ 2007; 334:777-778.
  3. Ahola K, Honkonen T, Pirkola S, Isometsa E, Kalimo R, Nykyri E 외. 핀란드 근로 인구의 소진과 관련된 알코올 의존 // The Authors. 저널 편집. 중독 연구 학회 2006;11:1438 – 1443.
  4. Ajzen I. 성격과 운영 태도. 심리학 연례 검토 2001;52:27–58.

...

250.

적절한 참고문헌 목록을 작성하기 위해 하나씩 항목을 작성하는 것 외에 다른 방법이 있습니까?

답변1

VB 스크립트 작성을 마쳤습니다.

Sub ChangeText()


    Dim cDoc As Word.Document
    Dim cRng As Word.Range
    Set cDoc = ActiveDocument
    Set cRng = cDoc.Content
    cRng.Find.ClearFormatting

    'Dim dic As Dictionary
    'Set dic = New Dictionary

    Dim c As Object
    Set c = CreateObject("Scripting.Dictionary")
    c.Add "x1", "1"
    c.Add "x2", "62"
    c.Add "x3", "2"

With cRng.Find
    .Forward = True
    .Text = "["
    .Wrap = wdFindStop
    .Execute
    Do While .Found

        cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd
        cRng.MoveEndUntil Cset:="]", Count:=Word.wdForward

        Dim TextStr As String
        Dim Result() As String
        TextStr = cRng.FormattedText.Text
        Result() = Split(TextStr, ",")
        For i = LBound(Result()) To UBound(Result())
                Dim temp As String
                temp = CStr(LTrim(Result(i)))
                Result(i) = c(temp)
        Next i
        Debug.Print "before: " & cRng.FormattedText.Text

        cRng.FormattedText.Text = Join(Result, ", ")
        Debug.Print "after:" & cRng.FormattedText.Text
        cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd
        .Execute
    Loop
End With        
End Sub

관련 정보