Writing a Macro for Ms Word, anyone knows VBA?

Replies

• 

  Kaustubh Katdare

  I'm sure we've big number of CEans who know VB. Could you post the details of macro you're trying to write and tell us where you're stuck?
  
  That should help us help you 😀
• 

  Mrunalini

  Thanks for a reply..
  
  I am writing a VBA application which scans the entire document.
  While scanning if it comes across any font which is not Times New Roman, it takes the user to that particular location.
  
  The code is as follows:
  
  Sub functionxyz1()
  Selection.HomeKey Unit:=wdStory
  For i = 1 To ActiveDocument.ComputeStatistics(Statistic:=wdStatisticLines)
  Selection.EndKey Unit:=wdLine, Extend:=wdExtend
  Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
  If Selection.Font.Name <> "Times New Roman" Then
  Selection.EndKey Unit:=wdLine, Extend:=wdExtend
  Font_Change.Show
  End If
  Next i
  End Sub
  
  
  The user form Font_Change has 2 buttons "Ok and Canel"
  If the user clicks on Ok.. it converts the font to Times New Roman, if cancel, then the font is not changed.
  
  The code behind Ok is:
  Private Sub Ok_Command_Click()
  With Selection.Font
  .Name = "Times New Roman"
  .Size = 10
  Unload Me
  End With
  End Sub
  
  and behind cancel is:
  
  Private Sub Cancel_Command_Click()
  Unload Me
  End Sub
  
  
  Now, the problem is that, the above code Moves down and selects the next text as well, so when I run the Macro on a document, say I Cancel to change the font on the 1st line, but I want to change the font on line 2. But according to the code both the lines are selected (as I'm using MoveDown), and so the font for both the lines are changed.
  But actually this not the thing that I need..
  
  
  Please help me, and let me know where I've gone wrong..
  Waiting for a reply and kind suggestions if any.
  
  Thanks
  Mrunalini 😀