Как скопировать исходные коды полей Microsoft Word в другой текстовый документ?

7596
Faye Dyce

Можно ли скопировать текст из документа Word, содержащего коды полей, чтобы при вставке в другое приложение ПОЛЕВЫЕ КОДЫ ОСТАЮТСЯ КАК RAW-ТЕКСТ. то есть что-то вроде

This is about whales { XE "Cetations:Whales" }. This is about dolphins { XE "Cetations:Dolphins" }.

вместо того, чтобы удалить коды полей?

0
Возможно, я не объяснил это очень четко. Я не хочу вырезать и вставлять отдельные коды полей по одному, а скорее основной текст всего документа с сохранением кодов полей без изменений ... Faye Dyce 14 лет назад 0
вам удалось создать две учетные записи. Пишите team@superuser.com, чтобы объединить их. ChrisF 14 лет назад 0

2 ответа на вопрос

0
WireGuy

Нажмите Alt+, F9чтобы показать код поля, затем выделите весь текст внутри фигурных скобок {}. Вы можете скопировать и вставить этот текст.

Вот ссылка на макрос, который кто-то написал для выполнения всей работы: Копирование и вставка кодов полей

В офисе 2010 его ALT + F9 не может проверить прямо сейчас, то же самое в предыдущих версиях. integratorIT 12 лет назад 0
0
integratorIT

Добавить макрос в документ, выбрать текст, запустить макрос, Теперь вы можете копировать коды полей в буфер обмена.

Ps. в офисе 2010 ALT + F9 используется для отображения полей кодов.

Sub StuffFieldCode() Dim sField As String Dim sTextCode As String Dim bSFC As Boolean Dim MyData As DataObject Dim sTemp As String Dim J As Integer  Application.ScreenUpdating = False  If Selection.Fields.Count = 1 Then bSFC = Selection.Fields.Item(1).ShowCodes Selection.Fields.Item(1).ShowCodes = True sField = Selection.Text sTextCode = "" For J = 1 To Len(sField) sTemp = Mid(sField, J, 1) Select Case sTemp Case Chr(19) sTemp = "{" Case Chr(21) sTemp = "}" Case vbCr sTemp = "" End Select sTextCode = sTextCode & sTemp Next J  Set MyData = New DataObject MyData.SetText sTextCode MyData.PutInClipboard  Selection.Fields.Item(1).ShowCodes = bSFC End If  Application.ScreenUpdating = True End Sub
для запуска этого кода необходимо добавить ссылку на форму microsoft формы 2.0 в макрос. Он расположен в c: \ windows \ system32 \ FM20.dll. К сожалению, даже несмотря на то, что код копирует текст, представляющий код поля, все форматирование теряется при копировании. Когда вы вставляете обратно, это просто текст. TWood 6 лет назад 0

Похожие вопросы