Dim I_par只要
Dim rng_TXT為字符串，Rel_txt為字符串
昏暗的火車壹樣長，明亮的火車壹樣長
做
I_par = I_par + 1
If I _ par & gt活動文檔。段落。計數然後退出Do
rng_TXT = ActiveDocument。段落（I_par）。範圍。文本
STRlen = Len（RNG _ TXT）
strfindelen = instr（1，RNG _ txt，“doi:“）“這個地方應該與您更換的正面相匹配。
如果Strfindlen & gt那就0
RNG _ TXT = Mid（RNG _ TXT，Strfindlen，STRlen - Strfindlen）
rel _ TXT = Replace（RNG _ TXT，““，““）
選擇。查找。執行rng_TXT、、、、、、、Rel_txt
如果…就會結束
環
我愛許巍。
末端接頭