При копировании текста из другого редактора в Microsoft Word абзацы начинаются с вкладок. Как преобразовать их в абзацы, чтобы получить лучшее форматирование?
1 ответ
0
Лучший способ сделать это - написать макрос VBA.
Вероятно, он не оптимизирован для производительности, но он выполняет свою работу. знак равно
Sub ConvertLeadingTabsToIndents()
On Error GoTo Error
Application.ScreenUpdating = False
Dim found As Boolean
found = FindNextTab()
While (found)
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeBackspace
Selection.Paragraphs.Indent
found = FindNextTab()
Wend
MsgBox "Success!", vbInformation
Exit_Sub:
Exit Sub
Error:
Application.ScreenUpdating = True
' Regenerate original error.
Dim intErrNum As Integer
intErrNum = Err
Err.Clear
Err.Raise intErrNum
End Sub
Function FindNextTab()
With Selection.Find
.Text = "^p^t"
.Forward = True
.Wrap = wdFindContinue
.Format = False
End With
FindNextTab = Selection.Find.Execute
End Function