☰

轉換硬編碼的Word參考書目列表

tag-icon • tag-icon microsoft-word
轉換硬編碼的Word參考書目列表

我有相當大的Word文檔~250頁。未使用文字參考/引文。文件中的參考文獻是簡單的文字：

Tarptautinės savižudybių prevencijos asociacijos (engl. International Association for Suicide Prevention (IASP) rekomendacijas [18, 36, 202]. Tyrimais nustatyta, jog geresni professionalųn intern​​asyk ijoti professionalųy intern​​an sot​​i a​​i a​​khehehe lewemi leoti iniais savižudybių mo kymais arba tiesioginiu professionalų darbu su savižudiškais pacientais [19, 176 , 177]。

參考書目清單是在文件末尾手動輸入的。

  1. Abbas MAF、Abu Zaid LZ、Hussaein M。 AIMS醫學科學2015; 2（4）：303-309。
  2. Ahmed-Little Y. 輪班工作對初級醫師的影響。英國醫學雜誌 2007； 334：777–778。
  3. Ahola K、Honkonen T、Pirkola S、Isometsa E、Kalimo R、Nykyri E 等。酒精依賴與芬蘭勞動人口倦怠的關係 // 作者。期刊彙編。成癮研究學會 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

相關內容