Launch " Λόγος ", κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ανοίξει το Visual Basic Editor. " . Ενότητα " Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο 2
Ξεκινήστε πληκτρολογώντας τον ακόλουθο κώδικα VBA για να δημιουργήσετε μια νέα διαδικασία ρουτίνας :
Private Sub centerText ( )
Η 3
κηρύξει δύο μεταβλητές που θα χρησιμοποιήσετε για να κρατήσει την αρχή και το κείμενο τελειώνει θέλετε να το κέντρο :
Dim firstWord Όπως String Dim
lastWord As String
Φτηνές 4
Ορίστε τα λόγια αρχίζει και τελειώνει τις λέξεις της παραγράφου σας , όπως τα ακόλουθα :
firstWord = " αρχή της παραγράφου "
lastWord = " τέλος του παράγραφο "
5
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να κάνετε αναζήτηση στο έγγραφο του Word , χρησιμοποιώντας τις μεταβλητές που έχετε ορίσει και να κεντράρει το κείμενο μεταξύ τους :
με ActiveDocument.Content.Duplicate
Find.Execute Findtext : . = firstWord & " * " & lastWord , MatchWildcards : . . = True
MoveStart wdCharacter , Len ( firstWord )
MoveEnd wdCharacter , Len - . ( lastWord )
ParagraphFormat.Alignment = wdAlignParagraphCenter
End με τη
6
Ολοκληρώστε τη διαδικασία ρουτίνας , πληκτρολογώντας τα εξής :
End Sub
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα