Oscillate position

Guessed · #2 06-13-2018, 04:42 PM

I'm not seeing in the code anything that uses the ParagraphSpace values so your description doesn't match the code. To just look at oscillating the position of the text I would do it like this

Code:

Sub HandWrittenSimulation()
  Dim arrPattern() As String, lngChar As Long, iPattCount As Integer, iScale As Integer
  arrPattern = Split("0,1,1,1,2,2,2,3,3,3,4,4,4,3,3,3,2,2,2,1,1,1,0,0", ",")
  iPattCount = UBound(arrPattern) + 1
  iScale = Int(ActiveDocument.Characters(1).Font.Size) / 8
  
  For lngChar = 1 To ActiveDocument.Characters.Count
    ActiveDocument.Characters(lngChar).Font.Position = Int(VBA.Rnd * iScale + arrPattern(lngChar Mod iPattCount))
  Next lngChar
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Textboxes position isn't equal to initial position	dxdevil	Word VBA	0	01-30-2017 04:32 AM
Shadow Position	shanemarkley	Excel	0	07-30-2014 08:23 PM
Hyperlink goes to wrong position	Stephen0352	Word	6	10-03-2012 04:41 AM
VBA: how can I know the position on a document?	tinfanide	Excel Programming	3	02-27-2012 03:24 PM
fix position for a segment in a doc	tai	Word	3	10-20-2011 01:04 PM