如何从WORD中把域代码成功放入新浪博客使其生效?
来源:百度知道 编辑:UC知道 时间:2024/06/22 09:04:40
按照1楼朋友的方法来做后,粘贴到新浪博客中不能显示正常的带链接的文字和图片,都是在VBA编辑器中得到的域代码而已,怎么办?
通常情况下,在Word里面复制域只能得到域的结果,而不能得到域代码。可以用下面几个步骤来获取域代码的纯文本形式:
1、在Word中选中需要复制的域(此时显示不显示域代码都无所谓);
2、ALT+F11弹出VBA编辑器,“插入-模块”,然后在编辑区中粘贴如下宏代码:
Sub CopyOutFieldCode()
Dim Fieldstring As String
Dim NewString As String
Dim CurrChar As String
Dim CurrSetting As Boolean
Dim fcDisplay As Object
Dim X As Integer
NewString = ""
Set fcDisplay = ActiveWindow.View
Application.ScreenUpdating = False
CurrSetting = fcDisplay.ShowFieldCodes
If CurrSetting <> True Then fcDisplay.ShowFieldCodes = True
Fieldstring = Selection.Text
For X = 1 To Len(Fieldstring)
CurrChar = Mid(Fieldstring, X, 1)
Select Case CurrChar
Case Chr(19)
CurrChar = "{"
Case Chr(21)
CurrChar = "}"
Case Else
End Select