word 2013 operation on text

macropod · #1 09-26-2018, 06:35 AM

Try:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "<[0-9]{1,4}>?????"
    .Replacement.Text = ""
    .Forward = True
    .Format = False
    .Wrap = wdFindStop
    .MatchWildcards = True
    .Execute
  End With
  Do While .Find.Found
    If InStr(.Text, " ") > 0 Then
      Select Case Split(.Text, " ")(1)
        Case "B.C."
          .Text = .Text & " (chinese year " & Split(.Text, " ")(0) + 2699 & ")"
        Case "A.D."
          .Text = .Text & " (chinese year " & Split(.Text, " ")(0) + 2698 & ")"
        Case Else
          .End = .Words.First.End
          .Text = .Text & " (chinese year " & .Text + 2698 & ")"
      End Select
    Else
      .End = .Words.First.End
      .Text = .Text & " (chinese year " & .Text + 2698 & ")"
    End If
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop
End With
Application.ScreenUpdating = True
End Sub

Do note, however, that the code will now insert the text after any 4-digit number; numbers of other lengths will be ignored.

PS: Please give the magenta a rest...

dogufo · #2 04-05-2019, 01:42 AM

hallo,

I would like to ask whether is possible to do a macro

the argument is that I have a long text in word 2013, with several length, weight and surface measurements inside (e.g.: 30 meters, 50 tons, 24.5 square meters).

So, I need to find a way to add in the text, concurrently, after these numbers and specific measurement type another number which is the related chinese measuremente

for example:

30 meters, to become in the text after the 'operation': 30 meters (990 jou) - that is the result of 960 is given multipling 30 meters for 32

145 tons, to become in the text after the 'operation': 145 tons (239,751.7 jin) - that is the result of 239,751.7 is given multipling 145 tons for 1653.46

23,000 square meters, to become in the text after the 'operation': 23,000 square meters (34.5 mu) - that is the result of 34.5 is given multipling 23,000 square meters for 0.0015

Of course the automatic operation should be done only by presence of the related words meters, tons, square meters after the numbers, and not with every number in the text

Is that possible to do in word 2013? let me save time and energy

Thanks again for your reply

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Automatically duplicate text for word templates (word 2013)	Old	Word	1	04-11-2018 11:25 PM
Changing numerals to red in one operation	oldyeller38	Word	10	04-27-2015 04:09 AM
video operation	tomasball	PowerPoint	0	10-29-2010 03:06 PM
Associated operation	ECPL_3	Excel	2	10-14-2010 05:29 PM
Basic operation of Excel not working!	praveen_p	Excel	2	04-23-2009 10:21 AM