Как мне получить конвертировать пробелы во вкладку - PullRequest
Новая
       27

Как мне получить конвертировать пробелы во вкладку

0 голосов
/ 13 июня 2018

У меня есть слово (2010) с данными, которые выглядят так: 

----------------------------------------------------------------------------
15-aug-2017 15:28                Start Template                          Page  2

----------------------------------------------------------------------------- (mm) ACTUAL NOMINAL LO-TOL HI-TOL DEVIATION GRAPHIC ERROR

------------------------------------------------------------------------------- Circle:Ø15_H13_2

X-axis(PCS)-74.815 74.940 -0.125

Y-axis(PCS) 74.975 74.940 0.035

Diameter 15.420 15.000 +0.000 +0.270 0.420 -*-+--> 0.150 TruePos2D 0.260 1.770(M=0.27) <--*---

----------------------------------------------------------------------

То, что я пытаюсь сделать:

  • удалить все ----, но не тогда, когда это отрицательное число (-0.125) и заменить ничем.
  • удалить все символы +, *,>, <и заменить ничем</li>
  • Между всеми цифрами / словами есть пробелы, и вместо них я хочу использовать вкладки, например: X-axis(PCS) 74.815 74.940 -0.125 между 74,940 и -125 больше 22 пробелов, поэтому я хочу 3 табуляции и между 74,815 и 74,940.затем 12 пробелов, поэтому я хочу 2 вкладки и между (PCS) и 74.815 это больше, чем 2 пробела, поэтому я хочу только 1 вкладку
  • Я хочу удалить все от даты до ошибки
  • ИПоследнее, что нужно сделать, это сделать табуляцию между (PCS) символом - X-axis(PCS)-

, так что я хочу закончить так:

Circle:Ø15_H13_2

X-axis(PCS) ^t -74.815 ^t ^t 74.940 ^t ^t ^t -0.125

Y-axis(PCS) ^t 74.975 ^t ^t 74.940 ^t ^t ^t 0.035

Diameter ^t 15.420 ^t 15.000 ^t 0.000 ^t 0.270 ^t 0.420 ^t 0.150

`TruePos2D ^ t 0.260 ^ t ^ t ^ t 1.770 (M = 0.27)

Сообщение об ошибке, которое я получаю, когда подстановочный знак =true: ошибка времени выполнения 5560, текст Find what содержит выражение Pattern Match, которое недопустимо

, и когда подстановочный знак = false, я не получаю сообщение об ошибке, но оно только удаляет текст с шаблоном в нем, а такжетекстовая страница

Итак, я считаю, что подстановочный знак = true, и у меня проблема с .Text = "[ ]{22,}"

Пожалуйста, помогите мне!это первый раз, когда я программирую 

    Sub CleanUpPastedText()
    Application.ScreenUpdating = False
    With Selection.Range.Find
    .ClearFormatting
  .Replacement.ClearFormatting
  .Forward = True
  .Wrap = wdFindStop
  .Format = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = False
  .Text = "[ ]{22,}"
  .Replacement.Text = "^t^t^t"
  .Execute Replace:=wdReplaceAll
  .Text = "[ ]{12,}"
  .Replacement.Text = "^t^t"
  .Execute Replace:=wdReplaceAll
  .Text = "[ ]{2,}"
  .Replacement.Text = "^t"
  .Execute Replace:=wdReplaceAll
  .Text = "[-]{2,}"
  .Replacement.Text = ""
  .Execute Replace:=wdReplaceAll
  .Text = "[ ]{1,}"
  .Replacement.Text = "^t"
  .Execute Replace:=wdReplaceAll
  .Text = "                Start Template"
  .Replacement.Text = ""
  .Execute Replace:=wdReplaceAll
  .Text = "Page  "
  .Replacement.Text = ""
  .Execute Replace:=wdReplaceAll
  .Text = "\(mm\)          ACTUAL   NOMINAL    LO-TOL    HI-TOL DEVIATION GRAPHIC       ERROR"
  .Replacement.Text = ""
  .Execute Replace:=wdReplaceAll
  .Text = "X-axis\(PCS\-)"
  .Replacement.Text = "X-axis\(PCS\)^t- "
  .Execute Replace:=wdReplaceAll
  .Text = "[\*]"
  .Replacement.Text = ""
  .Execute Replace:=wdReplaceAll
  .Text = "[+]"
  .Replacement.Text = ""
  .Execute Replace:=wdReplaceAll
  .Text = "[<]"
  .Replacement.Text = ""
  .Execute Replace:=wdReplaceAll
  .Text = "[>]"
  .Replacement.Text = ""
  .Execute Replace:=wdReplaceAll

  End With
Application.ScreenUpdating = True

 End Sub
...