Aqui estão alguns VBA que exportarão as entradas de correção automática para um arquivo e, em seguida, serão importados desse arquivo. Execute a exportação no primeiro computador, transfira o código e exporte o arquivo para o segundo computador e execute a importação. Uma limitação, no entanto: esse método não transfere nenhuma entrada de rich text. Coisas como :-)
se tornando ☺ ou <=>
se tornando ⇔ quando você está tentando exportá-lo. Se alguém souber como ajustar o código para que funcione , eu ficaria grato.
Certifique-se de alterar o caminho constante do arquivo para algo que funcione para você.
Const strDelimeter As String = "|||"
Const fPath As String = "C:\Temp\AutoCorrectEntries"
Sub ExportAutoCorrect()
Dim ace As AutoCorrectEntry
Open fPath For Output As #1
For Each ace In Application.AutoCorrect.Entries
If Not ace.RichText Then
Write #1, ace.Name & strDelimeter & ace.Value
End If
Next
Close #1
End Sub
Sub ImportAutoCorrect()
Dim i As Integer
Dim fLine As String
Dim aceName As String
Dim aceValue As String
Open fPath For Input As #1
Do Until EOF(1)
Line Input #1, fLine
If Left(fLine, 1) = """" Then fLine = Mid(fLine, 2)
If Right(fLine, 1) = """" Then fLine = Left(fLine, Len(fLine) - 1)
i = InStr(1, fLine, strDelimeter)
If i > 0 Then
aceName = Left(fLine, i - 1)
aceValue = Mid(fLine, i + Len(strDelimeter))
Application.AutoCorrect.Entries.Add aceName, aceValue
End If
Loop
Close #1
End Sub