[Iska]

Starter1, выкладывайте образец/пример документа.

[Starter1]

В принципе всё тот же документ если вы помните. Документ PZ_formula.doc.

[Iska]

читать дальше »

если вы помните. »

Ну…


Сами-то как думаете?

выкладывайте образец/пример документа. » всё тот же документ »

Потому Вы выложили сразу три документа? Это шутка такая?

По работе: например, в документе «PZ_formula.doc» после текста «Вращающие моменты на валах:» есть числа «115062,16», «240583,044», «643558,523». Мы должны их поменять на «115,06216·10³», «240,583044·10³» и «643,558523·10³» соответственно. Так? Или на «115·10³», «240·10³» и «643·10³»?

[Starter1]

На «115·10³», «240·10³» и «643·10³»

[Iska]

Starter1, к сожалению, моих идей недостаточно.

На простом тексте, наподобие Вашего первого поста в этой теме, хорошо работает такое:

читать дальше »

Код:

Option Explicit

Sub Sample2()
    Dim objRegExp As Object
    
    Dim lngValue As Long
    Dim intOrder As Integer
    Dim strValue As String
    
    Set objRegExp = CreateObject("VBScript.RegExp")
    
    objRegExp.Pattern = "(?:1\d{4,}|[2-9]\d{4,}),?\d*"
    
    Do While objRegExp.Test(ThisDocument.Range.Text)
        With objRegExp.Execute(ThisDocument.Range.Text).Item(0)
            lngValue = CLng(Replace(.Value, ",", "."))
            intOrder = ((Len(CStr(lngValue)) - 1) \ 3) * 3
            strValue = CStr(lngValue \ 10 ^ intOrder) & "·10"
            
            Debug.Print .Value
            
            With ThisDocument.Range(.FirstIndex, .FirstIndex + .Length)
                Debug.Print .Information(wdActiveEndPageNumber) & " (" & .Information(wdNumberOfPagesInDocument) & ")"
                .Delete
                
                .InsertAfter strValue
                .Collapse wdCollapseEnd
                
                .InsertAfter intOrder
                .Font.Superscript = True
                .Collapse wdCollapseEnd
            End With
        End With
    Loop
    
    Set objRegExp = Nothing
End Sub

читать дальше »

Но, при наличии в документе полей, нумерация символов в «ThisDocument.Range()» и «ThisDocument.Range.Text» не совпадает.

Также, насколько я понимаю, не удастся перевести шаблон регулярного выражения в форму для Find & Replace Microsoft Word даже в Вашей версии (Find and replace text by using regular expressions (Advanced) - Word - Office.com).

Возможно, более опытные коллеги подскажут, что можно сделать.

[Starter1]

Iska, Понятно. Спасибо. Я хочу попробовать связать с builder.

[Starter1]

Iska, Частично удалось решить проблему. Первое что заметил это в документе числа до миллиона. То есть 10^3 достаточно. Поэтому воспользовался подстановочными знаками. Но теперь другая проблема. После 2-3х чисел стоит выражение "*10^3", прямо вот такое выражение, то есть 3 не надстрочный символ, галочка показывающая степень тоже стоит. И остаётся вопрос только как эту 3 сделать надстрочной и убрать галочку? Как галочку убрать я знаю, а вот цифру сделать надстрочной не понятно. Прикрепил документ на всякий случай.

[Iska]

Поэтому воспользовался подстановочными знаками. »

Просто поиск/замена с возрастающим количеством цифр? В принципе, да — иногда полуавтоматический вариант работает успешнее нежели полный автомат. Цифры при ГОСТ, случайно, не заменили ?

После 2-3х чисел стоит выражение "*10^3", прямо вот такое выражение, то есть 3 не надстрочный символ, галочка показывающая степень тоже стоит. И остаётся вопрос только как эту 3 сделать надстрочной и убрать галочку? Как галочку убрать я знаю, а вот цифру сделать надстрочной не понятно. »

Это-то просто:

читать дальше »

Надеюсь, «^» у Вас использовался только в качестве знака степени.

[Starter1]

Цифры при ГОСТ, случайно, не заменили ? »

Проверял вроде нормально.

Надеюсь, «^» у Вас использовался только в качестве знака степени. »

Тоже на это надеюсь .